trimakasih atas bantuannya mbk rara,,,
kok langsung ke wooksheet yang dituju ya,,,setelah memilih di COMBOBOX,,,
padahal saya belum pencet menyimpan data?
________________________________
Dari: Rara Wilis <ra2wi...@gmail.com>
Dikirim: Rabu, 23 Mei 2012 4:01
Dear Pak Ahmad Adi,
Mbak Connie-nya (nickname 'Markonah')mohon maaf,sedang suibuk dari kemarin,
terpaksa dia mewakilkan saya untuk menjawab sbb:
1. buka properties-window untuk Cbo_Alokasi
2. hilangkan/kosongkan isi untuk property ListFillRange
(bisa juga butir 2 ini dilakukan dengan coding), misal
Sheets("dataentri").cboAlokasi.ListFillRange = ""
3. tambahkan event-procedure di module sheet "dataentry" seperti ini
Private Sub Worksheet_Activate()
Dim lembar As Worksheet
Cbo_Alokasi.Clear
For Each lembar In ThisWorkbook.Worksheets
If Not (lembar.Name = "dataentri" Or lembar.Name = "SUMMARY") Then
Cbo_Alokasi.AddItem lembar.Name
End If
Next lembar
End Sub
Prosedur ini (salah satu cara mengisi list di Combobox) akan selalu memperbarui
LIST di combobox "Cbo_Alokasi" sesuai sheets yg ada (selain sheet "SUMMARY"
dan sheet "dataentri")setiap kali user mengaktifkan sheet "dataentri")
~rara / onbehalf of connie
CATATAN 'GAK PENTING
#:
pilih event prosedur yg akanJALAN SENDIRI jika sheet tertentu diaktifkan
deklarasikan variable bernama lembar, yg akan mewakili object worksheet
hapus isian list pada combobox cbo_alokasi
selenggarakan looping yg mau & mampu mengunjungi semua sheet dlm workbook ini
( =workbook di mana makro ditulis)
"suruh" vba mengetahui bahwa nantinya di tiap loop-step, setiap worksheet yg
sedang dikunjungi
akan dikenali sebagai 'lembar'
setiap kunjungan ke worksheet, tanya namanya !
jika BUKAN "dataentri" atau bukan "SUMMARY", maka
Nama sheet tsb diciduk untuk dijadikan item di LIST combobox 'cbo_alokasi'
'----------
walaupun penamaan object boleh sembarang yg kita maui, mohon dilihat lagi apakah
pemakaian NAMA cbo_ALOKASI sudah tepat, "ALOKASI" bukan "LOKASI"
