Re: [belajar-excel] Mohon dibantu penyempurnaan scrip berikut

[NangAgus nanga...@gmail.com [belajar-excel]]

Eh, maaf ya Mr. Kid thread ini khusus untuk mas Kid.

namun saya maksa untuk menjawab.
dear Roni, coba ganti cekrip yang ada di form SC diganti menjadi:
Private Sub LBFILTER_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim RESPONSE As VbMsgBoxResult
    If LBFILTER.Value = Null Then cmdClose_Click
    RESPONSE = MsgBox("Tambahkan data " & LBFILTER.Value & " kedalam 
cell atau Form ??", vbYesNo + vbQuestion)
    If RESPONSE = vbNo Then Exit Sub
    TI.Txt5.Value = LBFILTER.List(LBFILTER.ListIndex, 1)
    TI.Txt6.Value = LBFILTER.List(LBFILTER.ListIndex, 2)
    Me.Hide
 End Sub

salam, JabatErat
KenangAgus

On 5/18/2018 5:24 PM, y.ron...@yahoo.com [belajar-excel] wrote:

Dear Mr Kid,


Mohon dibantu
1. Saat Saya Double Klik Salah satu hasil Search, Maka akan masuk ke 
Text Box Warna HIJAU.
    Mohon dibantu scriptnya. Terlampir Datanya


Terimaksih



Regards,
Yusuf