[vb:1:aa30734713]Sub boslugayaz()
For a = 1 To Cells(65536, 1).End(xlUp).Row + 1
If Cells(a, 1) = "" Then Cells(a, 1) = Cells(a - 1, 1).Value
Next
End Sub
[/vb:1:aa30734713]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.