Hallo para suhu excel..
code vba
dim tgl_1jan as Date
tahun = 2009
tgl_1jan="1/1/" & tahun
With worksheets("sheet1").range("A1:A365")
Set dd6 = .Find(tgl_1jan, LookIn:=xlFormulas)
If Not dd6 Is Nothing Then
gg2 = dd6.Row
End If
End With
Range("A1:A500") tersebut bersisi tanggal 1/1/2009 s/d 12/31/2009
Permasalahannya adalah hasil pencarian selalu menemukan tanggal 11/1/2009
padahal yang saya cari adalah 1/1/2009.
Kalo LookIn:=xlFormulas saya ganti LookIn:=xlValues malah pencariannya hasilnya
"nothing". Saya juga udah coba mengkonversi tgl-nya dengan kode dibawah ini
tgl_1jan=Clng(tgl_1jan) hasiln konversi adalah 39814.
Tapi hasil pencariannya "nothing" juga
Ada yang bisa kasih solusi???
Salam
Hilman
