Satırları Seçmeden Kopyalama

[hukumran1]

Merhaba arkadaşlar 3. sütunu 6. sütunun yerine kopyalamak istiyorum. Ama böyle her aşamayı tek tek seçmek istemiyorum. Daha basit nasıl yapılır?

    Rows("3:3").Select
    Selection.Copy
    Rows("6:6").Select
    Selection.Insert Shift:=xlDown

Teşekkürler.

 

[Saban Sertkaya]

Deneyiniz...

Rows("3:3").Copy Rows("6:6")

 

[hukumran1]

Deneyiniz...

Rows("3:3").Copy Rows("6:6")

6:6 Nın üzerine kopyaladı. Araya eklemek istiyordum. Sanırım yanlış tarif ettim.

 

[Necdet]

Merhaba,
Siz zaten makro kaydet ile sonuca erişmişsiniz. Farkı inceleyiniz.

    Rows(3).Copy
    Rows(6).Insert Shift:=xlDown
    Application.CutCopyMode = False

 

[hukumran1]

Ben daha sağlıklı yolu olur diye düşünmüştüm. Aslında bu şekilde biraz fazla kod yazmam lazım. En iyisi nasıl olur örnek alayım ona göre devam edeyim istedim. Teşekkür ederim.

 

[Korhan Ayhan]

Neden fazla kod yazıyorsunuz. Ne yapmak istediğinizi açıklarsanız pratik kodlama önerilebilir.