Excel arama butonu tarih

[cresendo]

Arkadaşlar ekteki dosyada arama butonu yapmaya çalıştım ancak olmadı eki inceeleyip yardımcı olursanız sevinirim.
Şimdiden teşekkürler

 

[Ömer]

Merhaba,

Private Sub CommandButton1_Click()
 
    Dim siRa As Long
 
    On Error GoTo atla
 
    siRa = WorksheetFunction.Match(CDbl(CDate(TextBox7.Text)), [A:A], 0)
    Range("A" & siRa).Select
 
    Exit Sub
atla:
    MsgBox "Girilen Değer Tarih Değil Yada Listede Yok."
 
End Sub

Bu şekilde deneyiniz.

.

 

[cresendo]

Merhaba,

Private Sub CommandButton1_Click()
 
    Dim siRa As Long
 
    On Error GoTo atla
 
    siRa = WorksheetFunction.Match(CDbl(CDate(TextBox7.Text)), [A:A], 0)
    Range("A" & siRa).Select
 
    Exit Sub
atla:
    MsgBox "Girilen Değer Tarih Değil Yada Listede Yok."
 
End Sub

Bu şekilde deneyiniz.

.

Çok teşekkür ederim.Birde yapmış olduğum arama butonları altta kalan kelimeleri bulmuyor yapmış olduğum formülleryanlış mı?