Arka Plana Gore Islem Yaptirmak

[mustafaine1]

Arkadaslar elimdeki dosyada c-k sutunundaki hucrelerin tumu gri ise m sutununa bugunun tarihini yazmasini istiyorum; bunu yapmanin bir yolu varmidir acaba?

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub dolgurengi()
For i = 2 To Cells(65536, 3).End(3).Row
If Cells(i, 3).Interior.ColorIndex = 15 Then Cells(i, 13) = Date
Next
End Sub

 

[mustafaine1]

ise yaramak degil tam istedigim kod bu yalniz bu islem her kayit yaptigimda gercekebilir mi acaba?

 

[Merhum İdris SERDAR]

Arkadaslar elimdeki dosyada c-k sutunundaki hucrelerin tumu gri ise m sutununa bugunun tarihini yazmasini istiyorum; bunu yapmanin bir yolu varmidir acaba?

Alternatif:

Dosyanız ekte.

.

 

[mustafaine1]

sayin yurttas ben dosyayi her gun bir tarih adi ile kayit ediyorum, o yuzden today() formulu isime yaramayacak..

Sayin uzmanamele sizin verdiginiz kodun yanlis oldugunu yeni farkettim cunku sadece c kolonunu kistas aliyor sadece c gri olursada tarihi yaziyor; oysa istegim c-k arasi tumu gri olursa tarihi yazmasidir..

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub dolgurengi()
For i = 1 To Cells(65536, 3).End(3).Row
If Cells(i, 3).Offset.Resize(1, 9).Interior.ColorIndex = 15 Then Cells(i, 13) = Date
Next
End Sub

 

[mustafaine1]

sayin yurttas sizin verdiginiz formul ve modulle sorunumu cozdum her ikinizede ilginiz icin ayrica tesekkur ederim kolay gelsin..