ek dosya

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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
 
Üst