Döngü içerikli kes yapıştır makrosu.

[ahzola]

İyi akşamlar

Tam olarak ne istediğimi örnek dosyada
izah etmeye çalıştım.
yardımlarınızı bekliyorum.

 

[ExcelF1]

Ekteki kodu deneyebilirsiniz.

Sub Makro1()
For a = 5 To [C65536].End(xlUp).Row Step 4
Range(Cells(a, 3), Cells(a, 4)).Copy
Cells(a - 1, 5).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next
Application.CutCopyMode = False
MsgBox "İşlem Tamam"
End Sub

 

[ahzola]

Çok süper olmuş üstad
ellerine sağlık. Bir sorum olacaktı.

Aralığı 5 7 10 gibi vermek istediğimizde
nereyi değiştireceğiz acaba?

 

[ExcelF1]

Step sonrası rakamı.

 

[ahzola]

Teşekkür ederim.
Sayın ExcelF1

Mavi yazıları kesecekti
Sanırım gözden kaçtı.
Copy kısmını cut yaptım yaparak denedim ben
lakin bu kez makro hata verdi.
Bunu düzeltebilirmisiniz acaba?

 

[ExcelF1]

Kes ifadesinde, ÖZEL YAPIŞTIR seçeneği mevcut değildir.

Yani, ya kes - yapıştır yapacağız. Ya da Kopyala-Özel Yapıştır.

Veya kopyala-özel yapıştır sonrası C ve D sütunlarındaki veriler silinebilir.

Tercih Sizin.

 

[ahzola]

hımm
birşey daha öğrendik bu vesile ile.
Çok yaşayın.

Üstad o halde. Kessin direkt yapıştırsın.

 

[ExcelF1]

Sizlerde çok yaşayın inşallah. Şu şekilde bir deneyiniz.

Sub Makro1()
For a = 5 To [C65536].End(xlUp).Row Step 4
Range(Cells(a, 3), Cells(a, 4)).Cut
Cells(a - 1, 5).Select
ActiveSheet.Paste
Next
Application.CutCopyMode = False
MsgBox "İşlem Tamam"
End Sub

 

[ahzola]

Sayın ExcelF1

makromuz tamamdır.
Ellerinize sağlık. Zihniniz daim açık olsun.

İyi akşamlar diliyorum
Saygılarımla.

 

[ExcelF1]

Güzel dilekleriniz için teşekkür ederim. Aynı dileklerin 1 misli fazlası Sizler için olsun inşallah.

Hayırlı Akşamlar.