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