Excel arama butonu tarih

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Kod:
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.

.
 
Katılım
4 Aralık 2009
Mesajlar
48
Excel Vers. ve Dili
office 2003
Merhaba,

Kod:
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ı?
 
Üst