Dear BeExceller, ayo yang suka VBA... semangat untuk me-reply kuis ini ya...
makasih Pak HK, kuisnya bisa menjadi salah satu cara untuk belajar Wassalam, Kid. 2015-02-11 14:10 GMT+11:00 hendrik karnadi [email protected] [belajar-excel] <[email protected]>: > > > Rakan-rekan Be-Excellers, > > Terlampir adalah hasil utak atik UserForm yang menjadi salah satu bahasan > pada Kopdar 2 (msh perlu perbaikan disana sini). > Dalam menentukan Row Source pada ListBox dalam UserForm tersebut saya > masih mengacu pada Worksheet Range dengan menggunakan menu Formulas, Name > Manager (Data), mis, : > =OFFSET(Database!$A$2,0,0,COUNTA(Database!$A:$A)-1,5) > > Krn ada kemungkinan isi data dihapus hingga tinggal judulnya saja maka > dalam UserForm_Activate saya buat macro seperti ini: > Private Sub UserForm_Activate() > If Sheets("Database").Range("A2").Value = "" Then > Me.Hide > MsgBox "Data BLM ADA", vbInformation + vbOKOnly, "PESAN" > Exit Sub > End If > With ActiveWorkbook.Names("Data") > .RefersToR1C1 = "=OFFSET(Database!R2C1,0,0,COUNTA(Database!C1)-1,5)" > End With > *With ListData* > * .RowSource = "Data"* > * End With* > REC_NO.Value = 1 > SpinButton1.Value = REC_NO.Value > ListData.ListIndex = REC_NO.Value - 1 > End Sub > > Tentunya akan lebih baik jika dalam menentukan Range("Data") bisa kita > gunakan macro, seperti ini : > Dim Dat as Range > Set Dat = Sheets("Database").Range("A1").CurrentRegion > Set Dat = Dat.Offset(1,0).Resize(Dat.Rows.Count-1, Dat.Columns.Count) > > Pertanyaan saya: > Bagaimana penulisan "Data" pada code yang berwarna hijau? > > Terima kasih. > > Salam, > HK > > *NB: password untuk buka macro dan worksheet "Database"nya adalah > "hk"(tanpa spasi)* > > > > >
