makro yardımı

[bseremet]

selam arkadaşlar günlük olarak tutmak istedigim sayfanın tarihine 2 veya daha fazla açıklama ekledigimde tarih kısmına aynı tarihi yazınca otomatik filitre çaılışıyo ama açıklamaları tarih kaydırınca karışıyo makro ile iki tarih arasını boşluk olursa aynı tarihi atması ve pasig bi renkge boyaması mümkünmü acaba makro konusunda acemiyim ugraşmaya degermi bilmiyorum yardımcı olmaya çalışan tüm arkadaşalara şimdiden tesekkür ederim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub test()
Dim sut As Integer
For sut = 7 To Cells(65536, "a").End(3).Row
If Cells(sut, "a") = "" Then
Cells(sut, "a").FillDown
End If
Next
End Sub

 

[bseremet]

uzman arkadaşım çok tesekkür ederim eline saglık çalıştı saol
bu ekledigi tarihlere pasik griye benzer bi renk eklemek mümkünmü acaba zahmet olmazsa olmazsa sorun degil teşekkür ederim

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub test()
Dim sut As Integer
For sut = 7 To Cells(65536, "a").End(3).Row
If Cells(sut, "a") = "" Then
Cells(sut, "a").FillDown
Cells(sut, "a").Interior.ColorIndex = 15
End If
Next
End Sub

 

[bseremet]

Ziya bey çok teşekkür ederim tekardan çok makbule geçti

 

[N.Ziya Hiçdurmaz]

Sayın bseremet Bişey değil