Dear Daniel,
Coba pake kode berikut, meskipun rada panjang kodenya, mohon master2 yang lain
untuk mengkoreksi/meringkasnya:
Private Sub OptionButton1_Click()
Dim KP1 As Range
Dim ws As Worksheet
Set ws = Sheets("master")
KodePart.Clear
For Each KP1 In ws.Range("b4:b11")
With Me
KodePart.AddItem KP1.Value
End With
Next KP1
End Sub
Private Sub OptionButton2_Click()
Dim KP2 As Range
Dim ws As Worksheet
Set ws = Sheets("master")
KodePart.Clear
For Each KP2 In ws.Range("e4:e11")
With Me
KodePart.AddItem KP2.Value
End With
Next KP2
End Sub
Private Sub OptionButton3_Click()
Dim KP3 As Range
Dim ws As Worksheet
Set ws = Sheets("master")
KodePart.Clear
For Each KP3 In ws.Range("h4:h11")
With Me
KodePart.AddItem KP3.Value
End With
Next KP3
End Sub
Trimakasih,
Wassalam,
________________________________
From: daniel_aho <[email protected]>
To: [email protected]
Sent: Thursday, May 2, 2013 10:58 AM
Subject: [belajar-excel] Option button macro pada User form untuk menentukan
range combo box
Dear para master excel,
Bagaimana code macro untuk Option Button yang dipakai untuk menentukan
range dari combo box, jika pertanyaan saya kurang jelas, berikut saya
lampirkan filenya,
Mohon pencerahan dari master2 semua.
Terima kasih,
daniel
