Boş satıra üstekini kopyalama..

[policeman]

Sub Doldur()
For a = 1 To [CC3000].End(3).Row
If Cells(a, "CC") = 0 Then Cells(a, "CC") = Cells(a - 1, "CC")
Next
End Sub

Merhaba..
Yukarıda yine siz değerli hocalarımdan alıp kendime uyguladığım kod ile CC sütunundaki boş satırları üstteki yazanla doldurup büyük bir kolaylık sağladım..
Şimdi ise CC , CD ve CE sütunlarının üçünde birden aynı işlemi yapması için değişiklik yapılması lazım..
Biraz deneme yaptım ama olmadı,yardımlarınızı bekliyorum..
Saygılarımla..

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir
3 Sütununda son satırları aynı ise kırmızı bölümleri silersiniz

[SIZE="2"]Sub Doldur()
Dim a As Long
For a = [COLOR="Blue"]2[/COLOR] To [CC:CE].Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
If Cells(a, "CC") = 0 [COLOR="Red"]And [CC3000].End(3).Row >= a[/COLOR] Then Cells(a, "CC") = Cells(a - 1, "CC")
If Cells(a, "CD") = 0 [COLOR="Red"]And [CD3000].End(3).Row >= a[/COLOR] Then Cells(a, "CD") = Cells(a - 1, "CD")
If Cells(a, "CE") = 0 [COLOR="Red"]And [CE3000].End(3).Row >= a[/COLOR] Then Cells(a, "CE") = Cells(a - 1, "CE")
Next
End Sub[/SIZE]

 

[policeman]

Sayın PLİNT çok teşekkür ederim, Allah razı olsun..

 

[PLİNT]

Sayın PLİNT çok teşekkür ederim, Allah razı olsun..

Rica ederim, Allah sizdende razı olsun.
Kolaylıklar dilerim.