[gfevran]

Βγάζει νέο σφάλμα εδώ

Private Sub ListBox1_Click()
Dim say As Long, a As Byte

For a = 0 To 3
Controls("textbox" & a + 1) = ListBox1.Column(a)
Next

Sheets("Data").Range("A:A").Find(ListBox1.Text).Ac tivate
say = ActiveCell.Row
Sheets("Data").Range("A" & say & ":D" & say).Select
End Sub
Γραμμή 6 αυτό -> Sheets("Data").Range("A:A").Find(ListBox1.Text).Ac tivate