Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
dosya yolda kaldı buldum getirdim
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
ek dosya
- Konbuyu başlatan Kemal Demir
- Başlangıç tarihi
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,060
- Excel Vers. ve Dili
- Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
örnek
Rakkas' Alıntı:dosya yolda kaldı buldum getirdim
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,060
- 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
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