ek dosya

[Kemal Demir]

dosya yolda kaldı buldum getirdim:)

[Levent Menteşoğlu]

dosya yolda kaldı buldum getirdim:)

[Levent Menteşoğlu]

aşağıdaki makroyu dosyaya ekleyip, bir butona bağlayıp çalıştırabilirsin.

Sub Makro1()
For a = 2 To 20
b = Sheets("sayfa1").Cells(a, 1).Value
If b = "" Then
Cells(a, 2).Select
Selection.Cut
Cells(a, 1).Select
ActiveSheet.Paste
End If
Next a
Range("C1").Select
End Sub

istediğin sonuç olacaktır.
selamlar