Makro Ricası

[ekonomu]

Merhabalar. Elimde bir tane liste var. Liste için şu şekilde bir makroya ihtiyacım var. Yardımcı olabilieceklere şimdiden teşekkürler.

D2 satırından D1200 satırına kadar eğer hücrede hiç bir değer yok ise 12:30 değerini almasını istiyorum. Aynı şekilde E2 satırından E1200 satırına kadar da boş hücre var ise o hücrenin 13:30 değerini almasını istiyorum. Bunun için bir makro hazırlamam lazım. Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

 

[muygun]

Merhaba;

Sub ekle()
For i = 2 To 1200
If Cells(i, "d") = "" Then Cells(i, "d") = "12:30"
If Cells(i, "e") = "" Then Cells(i, "e") = "13:30"
Next i
End Sub

İyi çalışmalar.

 

[ekonomu]

Çok teşekkürler. Çok makbule geçti.