Tarihi değiştirecek makro

[misnet]

1.) Bir Hücredeki (B1) tarih değişince (sadece yıl) diğer hücrelerdeki tarihin yıl bölümüde otomatik olarak değişecek (W3:W65536))

2.) Bir Hücredeki (B1) tarih, (W3:W65536) arasındaki tarihlerden biri ile eşleşince eşleştiği satırın S sütünuna 30 yazacak

Örnek dosyada daha ayrıntılı açıkladım. ilgilenenlere şimdiden Teşekkür ederim.

 

[Huseyinkis]

Ekli Kodları sayfanın kod kısmına yapıştırın b1 hücresindeki tarihi değiştirdiğinizde çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
For i = 3 To Cells(Rows.Count, 23).End(3).Row
gün = Day(Cells(i, 23).Value)
ay = Month(Cells(i, 23).Value)
Yıl = Year(Cells(1, 2).Value)
Cells(i, 23).Value = Format(gün & "." & ay & "." & Yıl, "dd.mm.yyyy")

If Format(Cells(1, 2).Value, "dd.mm.yyyy") = Format(Cells(i, 23).Value, "dd.mm.yyyy") Then
Cells(i, 19).Value = 30
Else
Cells(i, 19).Value = 0
End If
Next
End Sub

 

[misnet]

Sayın huseyinkis ilginize teşekkür ederim.

Bu kod çok işime yaradı ama bir şeyi eksik olmuş onuda tamamlarsanız süper olacak.

Tarih eşleşince attığı 30 gün, tarih değişince tekrar sıfır oluyor(0) oysa ;
30 rakamının orada kalacak şekilde olması gerekiyor bu mümkünmü ?


Teşekkürler Kolay Gelsin.

 

[misnet]

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
For i = 3 To Cells(Rows.Count, 23).End(3).Row
gün = Day(Cells(i, 23).Value)
ay = Month(Cells(i, 23).Value)
Yıl = Year(Cells(1, 2).Value)
Cells(i, 23).Value = Format(gün & "." & ay & "." & Yıl, "dd.mm.yyyy")

If Format(Cells(1, 2).Value, "dd.mm.yyyy") = Format(Cells(i, 23).Value, "dd.mm.yyyy") Then
Cells(i, 19).Value = 30
End If
Next
End Sub



şeklinde düzeltince oldu teşekkür ederim.


__________________