Userform Textbox a yazılan veriye göre butonun aktif olması

[u.L.a.s]

Merhabalar

Bir userform üzerinde bulunan bir textboxa veriyi yazdığımda yazdığım veri yi Sheet1 içerisinde A sütunundaki satırlarda görürse altındaki commandbuton aktif olsun yoksa zaten aktif olmasın.

Bilgi ve yardımlarınızı rica ederim

 

[PLİNT]

Merhabalar

Bir userform üzerinde bulunan bir textboxa veriyi yazdığımda yazdığım veri yi Sheet1 içerisinde A sütunundaki satırlarda görürse altındaki commandbuton aktif olsun yoksa zaten aktif olmasın.

Bilgi ve yardımlarınızı rica ederim

Merhaba
Form açılışında;

CommandButton1.Visible = False

Textbox 'a

Private Sub TextBox1_Change()
If TextBox1.Value = "" Then CommandButton1.Visible = False: Exit Sub
If Not Sheets("Sayfa1").Range("a1:a" & Cells(Rows.Count, 1).End(3).Row).Find(TextBox1.Value, lookat:=xlWhole) Is Nothing Then
CommandButton1.Visible = True
Else
CommandButton1.Visible = False
End If
End Sub

şeklinde deneyin