seçilen satırları diğer sayfaya kopyalamak

[bmutlu966]

öenek dosyamdaki listede bazı satırları seçtiğimde bu satırları makro ile diğer sayfaya nasıl aktarabilirim. yardımlarınız için şimdiden teşekkürler.

 

[AS3434]

Şöyle yapabilirsiniz,
Kodları butona bağlayın.

Sub Makro1()
Sayfa2.[b6:f500].ClearContents
For a = 6 To [b65536].End(3).Row
If Cells(a, 5) <> "" Then
Rows(a).Copy
z = Sayfa2.[b65536].End(3).Row + 1
Sayfa2.Range("a" & z).PasteSpecial Paste:=xlPasteValues
End If
Next
Application.CutCopyMode = False
Sayfa2.Select
[a1].Select
End Sub

 

[bmutlu966]

Gecenin bu saatinde yardımın için çok teşekkürler. Allah razı olsun kardeşim.

 

[AS3434]

Rica ederim.

İyi geceler dilerim.


Not: Şimdi farkettim. Sayfa 2 de E sütununun yazı rengini Beyaz yapın.