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 - 1End Sub
Tentunya akan lebih baik jika dalam menentukan Range("Data") bisa kita gunakan
macro, seperti ini :Dim Dat as RangeSet Dat =
Sheets("Database").Range("A1").CurrentRegionSet 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)
FrmInput_Edit_Delete_Reindex (pwd hk)R.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
