erd5334
Altın Üye
- Katılım
- 26 Nisan 2012
- Mesajlar
- 123
- Excel Vers. ve Dili
- excel 365
- Altın Üyelik Bitiş Tarihi
- 01-12-2026
Kod:
Dim Metin As String
Private Sub CommandButton1_Click()
On Error Resume Next
Metin = TextBox1.Value
If TextBox1.Value <> "" Then
Set ara = Range("A2:A65000").Find(What:=Metin)
TextBox2.Text = ara
End If
Else
MsgBox "Aradığınız kayıt bulunamadı"
End If
End Sub