Dear Ody; Coba beberapa cekrip diubah:
1. Cekrip pada UserForm_Activate()
dibuang bagian pendefinisian combobox2:
Me.ComboBox1.Clear
For Each cPart In ws.Range("area_MTM")
With Me.ComboBox1
.AddItem cPart.Value
End With
Next cPart
2. Buat Cekrip Baru pada ComboBox2_Change()
Private Sub ComboBox2_Change()
Dim cPart As Range
Dim ws As Worksheet
Dim nmProduct As String
Set ws = Worksheets("dbase")
Dim addr As String
addr = "area_" & ComboBox2.Value
Me.ComboBox1.Clear
For Each cPart In ws.Range(addr)
With Me.ComboBox1
.AddItem cPart.Value
End With
Next cPart
End Sub
3. Ubah Cekrip ComboBox1_Change() menjadi:
Dim adds As String
Dim a As Integer
a = ComboBox2.ListIndex
adds = "area_" & ComboBox2.Value
Channel = Me.ComboBox1.Value
With Range(adds)
Set c = .Find(Channel, LookIn:=xlValues)
If Not c Is Nothing Then
baris = c.Row
Me.TextBox9.Value = Worksheets("dbase").Cells(baris,a * 5 +
2).Value
Else
MsgBox "Maaf, Channel Tidak ditemukan.."
End If
End With
Jkendaraan = Me.ComboBox1.Value
With Range(adds)
Set c = .Find(Jkendaraan, LookIn:=xlValues)
If Not c Is Nothing Then
baris = c.Row
Me.TextBox10.Value = Worksheets("dbase").Cells(baris, a * 5
+ 3).Value
Else
MsgBox "Maaf, Channel Tidak ditemukan.."
End If
End With
npolisi = Me.ComboBox1.Value
With Range(adds)
Set c = .Find(npolisi, LookIn:=xlValues)
If Not c Is Nothing Then
baris = c.Row
Me.TextBox11.Value = Worksheets("dbase").Cells(baris, a * 5
+ 4).Value
Else
MsgBox "Maaf, Channel Tidak ditemukan.."
End If
End With
End Sub
Salam
NangAgus
On 18/09/2017 14:09, Odhy [email protected] [belajar-excel] wrote:
Mohon maaf saya lampirkan ulang filenya....
Terima Kasih atas pencerahannya, Odhy.
----- Forwarded Message -----
*From:* Odhy <[email protected]>
*To:* BeExcel <[email protected]>
*Sent:* Monday, September 18, 2017 01:50:29 PM
*Subject:* Help : List box by multiple table name
Dear Master,
Mohon bantuannya...
1. bagaimana caranya agar saya bisa menggambil data di table nama
berdasarkan listbox.
2. bagimana merubah setting form kalender agar update bulan saat ini.
untuk lebih jelas penjelasaanya saya lampirkan filenya....
atas bantuannya saya ucapkan banyak terima kasih.
Odhy.
