Boş sütunları otomatik doldurmak.

[desk]

Boş sütunları nasıl otomatik doldurtabilirim.

 

[Huseyinkis]

Boş sütunları nasıl otomatik doldurtabilirim.

Ekteki Kod Denermisiniz.

Dosyanızda Boş Satırlarda " " sekme tuşu var once onları kaldırmanız grekmekte

'Boş Satırların hepsi aynı ise bunu kullanın

Sub Doldur()
For i = 2 To Range("A65536").End(3).Row
If Range("A" & i).Value = "          " Then
Range("A" & i).Value = Range("A" & i - 1).Value
Range("B" & i).Value = Range("B" & i - 1).Value
Range("C" & i).Value = Range("C" & i - 1).Value
End If
Next
End Sub

'Boş Satırlar Temizledikten sonra bunu kullanın 

Sub Doldur()
For i = 2 To Range("A65536").End(3).Row
If Range("A" & i).Value = "" Then
Range("A" & i).Value = Range("A" & i - 1).Value
Range("B" & i).Value = Range("B" & i - 1).Value
Range("C" & i).Value = Range("C" & i - 1).Value
End If
Next
End Sub