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
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.