Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
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.
İ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.