hücrelerdeki tarihleri karşılaştırma

[airborne]

Private Sub Atar ()
.
.
.
If s1.Cells(x, "K") = "Evet" Then
For t = 0 To 10
s5.Cells(satir, Evet_ver(t)) = s1.Cells(x, Evet_Al(t))
Next t
ElseIf s1.Cells(x, "E") >= s13.[a2] Then
For t = o To 10
s5.Cells(satir, Buyuk_Ver(t)) = s1.Cells(x, Buyuk_Al(t))
Next t
End If
.
.
En Sub

Makrosuyla aktarma yaparken Sayfa 1 deki E sütunundaki tarihlerle Sayfa 2 deki a2 hücresinde bulunan tarihleri karşılaştırıyorum. userformlarda kayıt girdisi yaparkende

Private Sub TextBox6_Change()
Dim Texte As String
Texte = TextBox6.Text
Select Case Len(Texte)
Case 2, 5
Texte = Texte & "."
End Select
TextBox6.Text = Texte
End Sub

bu makroyu kullanıyorum. şimdi hücrelerdeki tarihlerin sadece yıllarını karşılaştırmam için yukarıdaki ilk makroda nasıl bir düzelttme yapılabilir

 

[Levent Menteşoğlu]

year fonksiyonunu kullanın.

year(cells(......)) şeklinde yazabilirsiniz.

 

[airborne]

Leventm üstadım
ElseIf s1.Year(Cells(x, "E")) > s13.Year([a2]) Then
şeklinde düzelttim ama
Run Time Error '438' :
Object doesn't support this property or methot hatası veriyor

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:d36c34f9f3]ElseIf Year(s1.Cells(x, "E")) > Year(s13.[a2]) Then
[/vb:1:d36c34f9f3]

 

[airborne]

Run Time Error '13':
Type Mismacth hatası veriyor hocam

 

[Levent Menteşoğlu]

Bu durumda hücrelerdeki verileriniz tarih olarak algılanmıyor demektir. Birde aşağıdaki gibi deneyin.

[vb:1:1c8c95ac0d]ElseIf Year(cdate(s1.Cells(x, "E"))) > Year(cdate(s13.[a2])) Then
[/vb:1:1c8c95ac0d]

 

[airborne]

Çok teşekkür ederim üstadım

 

[airborne]

office 2003 hücrelerdeki tarihleri 12.01.2006 formatına nasıl getirebilirz. 12/01/2006 olarak algılıyor

 

[Levent Menteşoğlu]

Bu sabit bir özellik değildir siz nasıl biçimlendirirseniz, hücrede o şekilde görürsünüz. Benim önerim hücrede tarihi istediğiniz şekilde biçimlendirin ve tarihi hücreye aktardığınız textboxuda örneğin clng(textbox1) şeklinde tanımlayın.