Sub a()
k = 0
i = 0
Do While k < 20
If Range("A1").Offset(i, 0) = "" Then
Range("A1").Offset(i, 0) = Range("A1").Offset(i - 1, 0)
k = k + 1
Else
k = 0
End If
i = i + 1
Loop
End Sub
******************
"Makroda A1 gördüğünüz her yeri sizin kolonun başlangıç hücresinin adresiyle değiştirin.
k<20 ifadesindeki 20 değeri en fazla kaç tane alt alta boş hücre olabileceğini belirtiyor.
Mesela A35'de bir değer varsa ve A35'in altında 20 den fazla boş hücre varsa makro orada duruyor.
Sizdeki alt alta boş hücre sayısına göre bir değerle değiştirebilirsiniz. "
diye arkadaş bu forumda makroyu gönderdi makro ekteki dosyada.. yan kolonda denemek için yaptığım şeylerde çalışıyor ancak "f" kolonundaki verilerde çalışmıyor sadece en son satırda çalışıyor..neden böyle oluyor verilerde bir bozukluk mu var ondan mı acaba anlayamadım...
k = 0
i = 0
Do While k < 20
If Range("A1").Offset(i, 0) = "" Then
Range("A1").Offset(i, 0) = Range("A1").Offset(i - 1, 0)
k = k + 1
Else
k = 0
End If
i = i + 1
Loop
End Sub
******************
"Makroda A1 gördüğünüz her yeri sizin kolonun başlangıç hücresinin adresiyle değiştirin.
k<20 ifadesindeki 20 değeri en fazla kaç tane alt alta boş hücre olabileceğini belirtiyor.
Mesela A35'de bir değer varsa ve A35'in altında 20 den fazla boş hücre varsa makro orada duruyor.
Sizdeki alt alta boş hücre sayısına göre bir değerle değiştirebilirsiniz. "
diye arkadaş bu forumda makroyu gönderdi makro ekteki dosyada.. yan kolonda denemek için yaptığım şeylerde çalışıyor ancak "f" kolonundaki verilerde çalışmıyor sadece en son satırda çalışıyor..neden böyle oluyor verilerde bir bozukluk mu var ondan mı acaba anlayamadım...