Kamis, 28 April 2016

[belajar-excel] Digest Number 3837

7 Messages

Digest #3837

Messages

Wed Apr 27, 2016 2:13 am (PDT) . Posted by:

"Nang Agus"

wa alaikumsalam warahmatullah.
Bagaimana kalau menggunakan nama aktenya saja, bukan nama dinas ke workbook
seperti pesan mas KId di sini
<http://b-excel.blogspot.co.id/2013/06/belajarvba-001-vbe-visual-basic-editor.html>

coba gunakan cekrip:
Dim w As Worksheet
For Each w In ActiveWorkbook.Worksheets
w.Visible = xlSheetVisible
Next w

salam

KenangAgus

2016-04-27 13:27 GMT+07:00 Darwis Arief d_arief72@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:

>
>
> Aslm,
> Para pakar Excel yg budiman,
> Aku punya Skrip untuk unhide sheets sbb:
> Sheets("AA-1").Visible = xlSheetVisible
> Saya ingin mengganti menjadi:
> Sheets("*"&"-1").Visible = xlSheetVisible namun terjadi Debug
> Saya menginginkan demikian berhubung nama sheet sering berubah sesuai
> inputan dicell tertentu.
>
> Adakah Skrip yang salah?
> Mohon pencerahannya.
>
> Wassalam,
> Arief
>
>
>

Wed Apr 27, 2016 3:04 am (PDT) . Posted by:

"Darwis Arief" d_arief72

Makasih masukannya mas KenangAgus.Kami sdh menggunakan skrip itu diatasx jd ada bbrp sheet sj yg sy ingin tampilkn yg laen msh sy hide. Wassalam,Arief

Sent from Yahoo Mail on Android

On Wed, Apr 27, 2016 at 17:13, Nang Agus nangagus@gmail.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:  

wa alaikumsalam warahmatullah.
Bagaimana kalau menggunakan nama aktenya saja, bukan nama dinas ke workbook seperti pesan mas KId di sini

coba gunakan cekrip:
Dim w As Worksheet
For Each w In ActiveWorkbook.Worksheets
w.Visible = xlSheetVisible
Next w

salam

KenangAgus

2016-04-27 13:27 GMT+07:00 Darwis Arief d_arief72@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

 

Aslm,Para pakar Excel yg budiman,Aku punya Skrip untuk unhide sheets sbb:Sheets("AA-1").Visible = xlSheetVisibleSaya ingin mengganti menjadi:Sheets("*"&"-1").Visible = xlSheetVisible namun terjadi Debug
Saya menginginkan demikian berhubung nama sheet sering berubah sesuai inputan dicell tertentu.
Adakah Skrip yang salah?Mohon pencerahannya.
Wassalam,Arief

Wed Apr 27, 2016 6:44 pm (PDT) . Posted by:

"Nang Agus"

Coba tambahkan cekrip untuk menyembunyikan:

Private Sub Workbook_Open()
Dim w As Worksheet
For Each w In ActiveWorkbook.Worksheets
If w.Name <> "1" Then w.Visible = xlSheetVeryHidden
Next w
End Sub

yang disembunyikan adalah semua sheet kecuali sheet dengan nama "1"
salam

2016-04-27 16:39 GMT+07:00 Darwis Arief d_arief72@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:

>
>
> Makasih masukannya mas KenangAgus.
> Kami sdh menggunakan skrip itu diatasx jd ada bbrp sheet sj yg sy ingin
> tampilkn yg laen msh sy hide.
> Wassalam,
> Arief
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>
> wa alaikumsalam warahmatullah.
> Bagaimana kalau menggunakan nama aktenya saja, bukan nama dinas ke
> workbook seperti pesan mas KId di sini
> <http://b-excel.blogspot.co.id/2013/06/belajarvba-001-vbe-visual-basic-editor.html>
>
> coba gunakan cekrip:
> Dim w As Worksheet
> For Each w In ActiveWorkbook.Worksheets
> w.Visible = xlSheetVisible
> Next w
>
> salam
>
> KenangAgus
>
> 2016-04-27 13:27 GMT+07:00 Darwis Arief d_arief72@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Aslm,
>> Para pakar Excel yg budiman,
>> Aku punya Skrip untuk unhide sheets sbb:
>> Sheets("AA-1").Visible = xlSheetVisible
>> Saya ingin mengganti menjadi:
>> Sheets("*"&"-1").Visible = xlSheetVisible namun terjadi Debug
>> Saya menginginkan demikian berhubung nama sheet sering berubah sesuai
>> inputan dicell tertentu.
>>
>> Adakah Skrip yang salah?
>> Mohon pencerahannya.
>>
>> Wassalam,
>> Arief
>>
>>
>
>

Wed Apr 27, 2016 11:25 pm (PDT) . Posted by:

"Darwis Arief" d_arief72

Terima ksh banyak atas bantuannya.Semoga ilmunya menjadi amal jariah disisi Allah SWT. Amin.WslmArief

Sent from Yahoo Mail on Android

On Thu, Apr 28, 2016 at 9:43, Nang Agus nangagus@gmail.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:  

Coba tambahkan cekrip untuk menyembunyikan:

Private Sub Workbook_Open()
Dim w As Worksheet
For Each w In ActiveWorkbook.Worksheets
If w.Name <> "1" Then w.Visible = xlSheetVeryHidden
Next w
End Sub

yang disembunyikan adalah semua sheet kecuali sheet dengan nama "1"
salam

2016-04-27 16:39 GMT+07:00 Darwis Arief d_arief72@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

 
Makasih masukannya mas KenangAgus.
Kami sdh menggunakan skrip itu diatasx jd ada bbrp sheet sj yg sy ingin tampilkn yg laen msh sy hide. Wassalam,Arief

Sent from Yahoo Mail on Android

 

wa alaikumsalam warahmatullah.

Bagaimana kalau menggunakan nama aktenya saja, bukan nama dinas ke workbook seperti pesan mas KId di sini

coba gunakan cekrip:
Dim w As Worksheet
For Each w In ActiveWorkbook.Worksheets
w.Visible = xlSheetVisible
Next w

salam

KenangAgus

2016-04-27 13:27 GMT+07:00 Darwis Arief d_arief72@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

 

Aslm,Para pakar Excel yg budiman,Aku punya Skrip untuk unhide sheets sbb:Sheets("AA-1").Visible = xlSheetVisibleSaya ingin mengganti menjadi:Sheets("*"&"-1").Visible = xlSheetVisible namun terjadi Debug
Saya menginginkan demikian berhubung nama sheet sering berubah sesuai inputan dicell tertentu.
Adakah Skrip yang salah?Mohon pencerahannya.
Wassalam,Arief

Wed Apr 27, 2016 6:04 am (PDT) . Posted by:

"Insan Biasa"

Terimakasih Mr. Kid untuk arahannya. Saya sudah pelajari comand SQL nya dan

saya sudah berhasil melakukan penggabungan data sheet dengan *fitur get
external data *excel. Command SQL yang saya gunakan adalah :

SELECT * FROM [dt1$] Where Nomor LIKE '[0-9]%';
UNION ALL
SELECT * FROM [dt2$] Where Nomor LIKE '[0-9]%';
UNION ALL
SELECT * FROM [dt3$] Where Nomor LIKE '[0-9]%';
UNION ALL
SELECT * FROM [dt4$] Where Nomor LIKE '[0-9]%';
UNION ALL
SELECT * FROM [dt5$] Where Nomor LIKE '[0-9]%';
UNION ALL
SELECT * FROM [dt6$] Where Nomor LIKE '[0-9]%';

Kendala : - Jika menggunakan 3 sheet atau lebih muncul notif error *"Data
Could not be retrieved from the database. Check the database or contcat
your database administrator. Make sure the external database is available,
and then try the opertion again"*

jika hanya mengumpulkan 2 sheet saja atau menggunakan, data berhasil di
gabungkan. mohon pencerahannya kembali Mr. Kid.

2016-04-24 7:48 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Belajar query-nya bisa disini <http://www.w3schools.com/sql/>.
>
> Regards,
> Kid
>
> 2016-04-21 13:39 GMT+07:00 Insan Biasa dodybireuen@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Terimakasih Mr Kid untuk pencerahannya, saya sudah coba menggunakan fitur
>> Get External Data, tapi saya masih terkendala dengan command text nya.
>> Saya masih gagal paham dengan perintah berikut :
>>
>> *SELECT 'dt1' AS [sumber],a.[kol1],a.[kol2],a.[kol3],a.[kol4] FROM [dt1$]
>> AS a*
>> *UNION ALL*
>> *SELECT 'dt2' AS [sumber],a.[kol1],a.[kol2],a.[kol3],a.[kol4] FROM [dt2$]
>> AS a*
>>
>> Jujur saya baru kali ini bersentuhan dengan yang namanya fitur Get
>> External Data, dan dari yang sudah saya pelajari akan sangat banyak manfaat
>> dari fitur Get External Data ini. Saya mohon bantuan Mr Kid untuk perintah
>> (bunyi query) yang harus saya isikan pada bagian *Command Text*, jika
>> saya punya header seperti berikut :
>>
>> - No
>> - Tanggal
>> - Nomor Antrian
>> - Counter
>> - Pukul
>> - Waktu Mulai
>> - Waktu Selesai
>> - Waktu Service
>> - Segment
>> - Handphone
>> - Nama Pelanggan
>> - Note
>> - Detail Transaksi
>> - Status
>> - Petugas
>> - IPK
>> - Transaksi
>> - Revenue
>>
>> dan setiap sheet saya beri nama masing masing petugas seperti berikut :
>> - Andri Sagita
>> - Ahmad Afdhal
>> - Putra M
>> - Nofri Rizal
>> - Joeliardi
>> - Mohd Achtar
>>
>> Saya sudah mencoba lakukan dengan metode Get External Data seperti arahan
>> MR Kid Sebelumnya namun pada langkah akhir muncul notifikasi error *"No
>> valeu given for one or more required parameters"*
>>
>> Mohon bantuan dan pencerahannya kembali Mr Kid
>>
>>
>
>

Wed Apr 27, 2016 6:09 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Coba diperiksa lagi tabel yang dibutuhkan setiap baris query nya.
1. Ada atau tidak tabel yang dirujuk setiap baris query itu di dalam file
yang dikoneksi ?
2. Apakah jumlah kolom seluruh tabelnya sama dengan susunan kolom yang
ber-datatype sama ?
3. mbok yao mendefinisikan setiap nama kolomnya dibanding menggunakan * ?

File terlampir menggabungkan 16 tabel (16 sheets) dan baik-baik saja kok.
Unduh dan Extract here di drive D

Regards,
Kid

2016-04-27 18:14 GMT+07:00 Insan Biasa dodybireuen@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Terimakasih Mr. Kid untuk arahannya. Saya sudah pelajari comand SQL nya
> dan saya sudah berhasil melakukan penggabungan data sheet dengan *fitur
> get external data *excel. Command SQL yang saya gunakan adalah :
>
> SELECT * FROM [dt1$] Where Nomor LIKE '[0-9]%';
> UNION ALL
> SELECT * FROM [dt2$] Where Nomor LIKE '[0-9]%';
> UNION ALL
> SELECT * FROM [dt3$] Where Nomor LIKE '[0-9]%';
> UNION ALL
> SELECT * FROM [dt4$] Where Nomor LIKE '[0-9]%';
> UNION ALL
> SELECT * FROM [dt5$] Where Nomor LIKE '[0-9]%';
> UNION ALL
> SELECT * FROM [dt6$] Where Nomor LIKE '[0-9]%';
>
> Kendala : - Jika menggunakan 3 sheet atau lebih muncul notif error *"Data
> Could not be retrieved from the database. Check the database or contcat
> your database administrator. Make sure the external database is available,
> and then try the opertion again"*
>
> jika hanya mengumpulkan 2 sheet saja atau menggunakan, data berhasil di
> gabungkan. mohon pencerahannya kembali Mr. Kid.
>
>
>
>
> 2016-04-24 7:48 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Belajar query-nya bisa disini <http://www.w3schools.com/sql/>.
>>
>> Regards,
>> Kid
>>
>> 2016-04-21 13:39 GMT+07:00 Insan Biasa dodybireuen@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Terimakasih Mr Kid untuk pencerahannya, saya sudah coba menggunakan
>>> fitur Get External Data, tapi saya masih terkendala dengan command text nya.
>>> Saya masih gagal paham dengan perintah berikut :
>>>
>>> *SELECT 'dt1' AS [sumber],a.[kol1],a.[kol2],a.[kol3],a.[kol4] FROM
>>> [dt1$] AS a*
>>> *UNION ALL*
>>> *SELECT 'dt2' AS [sumber],a.[kol1],a.[kol2],a.[kol3],a.[kol4] FROM
>>> [dt2$] AS a*
>>>
>>> Jujur saya baru kali ini bersentuhan dengan yang namanya fitur Get
>>> External Data, dan dari yang sudah saya pelajari akan sangat banyak manfaat
>>> dari fitur Get External Data ini. Saya mohon bantuan Mr Kid untuk perintah
>>> (bunyi query) yang harus saya isikan pada bagian *Command Text*, jika
>>> saya punya header seperti berikut :
>>>
>>> - No
>>> - Tanggal
>>> - Nomor Antrian
>>> - Counter
>>> - Pukul
>>> - Waktu Mulai
>>> - Waktu Selesai
>>> - Waktu Service
>>> - Segment
>>> - Handphone
>>> - Nama Pelanggan
>>> - Note
>>> - Detail Transaksi
>>> - Status
>>> - Petugas
>>> - IPK
>>> - Transaksi
>>> - Revenue
>>>
>>> dan setiap sheet saya beri nama masing masing petugas seperti berikut :
>>> - Andri Sagita
>>> - Ahmad Afdhal
>>> - Putra M
>>> - Nofri Rizal
>>> - Joeliardi
>>> - Mohd Achtar
>>>
>>> Saya sudah mencoba lakukan dengan metode Get External Data seperti
>>> arahan MR Kid Sebelumnya namun pada langkah akhir muncul notifikasi error *"No
>>> valeu given for one or more required parameters"*
>>>
>>> Mohon bantuan dan pencerahannya kembali Mr Kid
>>>
>>>
>>
>
>

Thu Apr 28, 2016 2:00 am (PDT) . Posted by:

"Ardi Anugrah" abirawa12

Dear Pakar Excel,
Mohon pencerahannya agar pada sheet "hasil" secara otomatis update ketika saya update di sheet "Data".  saya pernah mencoba menggunakan kombinasi vlookup, index dan match tetapi dalam satu tanggal (Sheet "Hasil") keluarnya tetap 1 unit, padahal di sheed data dalam tanggal yang sama ada 2 atau 3 unit.
terima kasih atas pencerahan dan sharingnya.
 Best Regards,
M.Ardi Anugrah | abirawa12@yahoo.com | ardi.anugrah@gmail.com
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Poskan Komentar