Adress Userform

[kirana2014]

Hi I am wondering whether you could help me with an excel formulae.

zie below excel file

when I do a search and edit from results I get an error. Please help. Thanks.


With Best regard

Kirana

[LeoTaxi]

Hallo Kirana

Private Sub ListBox1_Click()
Dim say As Long, a As Byte, r As Long
TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
ComboBox2 = ListBox1.List(ListBox1.ListIndex, 1)
For a = 3 To 12
Controls("textbox" & a) = ListBox1.List(ListBox1.ListIndex, a - 1)
Next
Sheets("Data").Range("A:A").Find(ListBox1.Text).Activate
say = ActiveCell.Row
Sheets("Data").Range("A" & say & ":M" & say).Select
TextBox27 = ListBox1.ListIndex + 1
End Sub

Kind regards
Leo

[kirana2014]

Dear Leo,

Private sub listbox1_click() is working but I have one problem with :
Private Sub CommandButton5_Click() 'Search Button
Could you please check this for Me

thank you

[gmr4evr1]

There are a couple of things to do
In your Sub Back() routine, add Dim a as Long between the sub tittle and the For statement
Also, in your Private Sub CommandButton5_Click() routine, add Dim ctl as Control then replace

For a = 1 To 13 ' Clear textboxes(1-12)
Controls("textbox" & a) = ""
Next

With

For Each ctl In Me.Controls
        Select Case TypeName(ctl)
            Case "TextBox"
                ctl.Value = ""
            Case "ComboBox", "ListBox"
                ctl.ListIndex = -1
        End Select
    Next ctl

[LeoTaxi]

Hello Kirana

in Sub CommandButton5 change this part

For a = 1 To 13 ' Clear textboxes(1-12)
Controls("textbox" & a) = ""
Next

to

TextBox1 = ""
ComboBox2 = ""
For a = 3 To 13 ' Clear textboxes(3-12)
Controls("textbox" & a) = ""
Next

Kind regards
Leo

[kirana2014]

Hello Leo

Thank you is working

well done

Kirana