satır kopyalamak?

[udentr2002]

Merhaba arkadaşlar bir butona bastığımda mesla Sayfa1'de 12. satırdan sonra
40. satıra kadar tüm satırları kopyalayıp Sayfa2'deki 12. satırdan başlayıp yapıştıran bir kod u nasıl yazabilrim. Ama kopyaladı yerdeki bilgileri silmeyecek
şimdiden ilgilenen tüm arkadaşlarıma teşekkür ederim

 

[Valuer]

yapıştıran bir kod u nasıl yazabilrim.

Makro kaydet yöntemini deneyerek. Makro kaydederken bu dediklerinizi uygulayın.

Not: Sitede bir yerlerde makro kaydetmekle ilgili dökümanlar olması gerekiyor.

 

[geren36]

ekteki dosyayı inceleyeniz...

Sub kopya()
For i = 12 To 40
Rows(i).Copy Destination:=Sheets("sayfa2").Range("A" & i)
Next i
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Sub test()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For Each sut In Range("a13:a52")
sut.EntireRow.Copy
s = s + 1
s2.Range("a" & s + 12).PasteSpecial
Next
Application.CutCopyMode = False
End Sub

 

[udentr2002]

geren hocam

verdiğin kodlar çin çok teşekkür ederim. ilgilenen ve cevap yazan diğer tüm hocalarımada teşekkür ederim.