tarih aralığında sorgu

[Kemal Demir]

Gunaydın arkadaslar.

İki tarih arasında olmayan tarihlere sorgu kodu olarak C kodlamak ıstıyorum elimdeki kod bu.

Ama hata nerede pek anlayamadım yardımcı olursanız sevinirim.
ilk tarih 01.01.2005 ten kucuk olmayacak ve 01.01.2006 tarihinden büyük olmayacak



Sub textyap()
For k = 2 To 5
Cells(k, 1).Value = "'" & Cells(k, 1).Value
Next
Application.Run "sorgu"
End Sub
Sub sorgu()
For c = 2 To 5
If Cells(c, 1).Value < "01.01.2005" Then
Cells(c, 2).Value = "C"
End If
If Cells(c, 1).Value > "01.01.2006" Then
Cells(c, 2).Value = "C"
End If
Next
End Sub

Dosya Ekliyorum .

Saygılar.

 

[Levent Menteşoğlu]

"01.01.2005" yerine aşağıdaki şekilde yazarak deneyin.

DateSerial(2005, 1, 1)

 

[Kemal Demir]

"01.01.2005" yerine aşağıdaki şekilde yazarak deneyin.

DateSerial(2005, 1, 1)
_________________

Sn Leventm bey olmadı (yapamadım ) desem .

bole Bir şekilde size dönmek istemezdım ama olmadı :kafa:

 

[veyselemre]

sadece aşağıdaki makroyu çalıştır diğerini (text yapan) sil

[vb:1:f127234ce1]Sub sorgu()
Range("b2:b65536").ClearContents
For c = 2 To 5
If Cells(c, 1) < [e2] Or Cells(c, 1) > [f2] Then Cells(c, 2).Value = "C"
Next
End Sub
[/vb:1:f127234ce1]

 

[Kemal Demir]

Sn veysel emre cok teşekkur ederim.

Bu arada Sn leventm de sizden de özür dilerim.

Herşeyi İstiyoruz diye yapmak zorunda değilsiniz.

Emekleriniz İçin Forumdaki Herkese Teşekkurler..

bende bole bir kod yazdım

c1 ve d1 tarih aralığ belirtim oldu koud sizlerle paylaşmak istedim.


Sub buldum()
For c = 1 To 3
If Cells(c, 1).Value < Cells(1, 3).Value Then
Cells(c, 2).Value = "d"
End If
If Cells(c, 1).Value > Cells(1, 4).Value Then
Cells(c, 2).Value = "d"
End If

Next
End Sub


Herkese teşşkur ederim.