Find vba tarih sorunu.

[vardar07]

Merhaba. Aşağıdaki kod ile arana metin ise sorun yok ancakformül ile gelen tarih yada elle girilen tarihse sonuç bulunmuyor. Birkaç şey denedim ancak nafile. Nası bir çözüm bulabiliriz.

Sub bull()
  aranan = "02.02.2016" ' TextBox1.value
  Set alan = Columns(1)
  Set bul = alan.Find(What:=aranan, MatchCase:=True, lookat:=xlWhole)
  If Not bul Is Nothing Then
    bul.Select
  Else
   MsgBox "Veri Bulunamadı"
   Exit Sub
  End If
End Sub

 

[Ziynettin]

Merhaba,
Aşağıdaki gibi deneyiniz.

Sub bull()
Dim aranan As Date
aranan = "02.02.2016" ' TextBox1.value
Set alan = Columns(1)
  Set bul = alan.Find(aranan, , xlValues, xlWhole)
  If Not bul Is Nothing Then
    bul.Select
  Else
   MsgBox "Veri Bulunamadı"
   Exit Sub
  End If
End Sub

 

[PLİNT]

Merhaba
Şöyle deneyin.

aranan = TextBox1
Set bul = Cells.Find([COLOR="Red"]DateValue[/COLOR](aranan))

 

[Merhum İdris SERDAR]

..

Sub bull()
  aranan =[COLOR="Red"]CDate( "02.02.2016")[/COLOR] ' TextBox1.value
  Set alan = Columns(1)
  Set bul = alan.Find(What:=aranan, MatchCase:=True, lookat:=xlWhole)
  If Not bul Is Nothing Then
    bul.Select
  Else
   MsgBox "Veri Bulunamadı"
   Exit Sub
  End If
End Sub

.

 

[vardar07]

aranan = Format( TextBox1.value,"dd.mm.yyyy") ile olmadı.Format ile değişim aaramada olmuyormuş anlaşılan.
Arkadaşlar hepinize teşekkürler.