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

Katılım
20 Ekim 2005
Mesajlar
476
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
year fonksiyonunu kullanın.

year(cells(......)) şeklinde yazabilirsiniz.
 
Katılım
20 Ekim 2005
Mesajlar
476
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki gibi deneyin.

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

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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]
 
Katılım
20 Ekim 2005
Mesajlar
476
office 2003 hücrelerdeki tarihleri 12.01.2006 formatına nasıl getirebilirz. 12/01/2006 olarak algılıyor
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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.
 
Üst