bağ olan bilgiyi makroyla kopyalama

[kemalist]

Arkadaşlar c5:c15 arasındaki bilgiyi l5 a23:ıu23 tekini sayfa2 a1 e a26:ıu26 dakini sayfa3 a1 e a29:ıu29 dakini sayfa4 a1 e a32:ıu32 dekini sayfa5 a1 e kopyalamak istiyorum.örnek dosyada yapmaya çalıştım fakat beceremedim.yardımlarınız için şimdiden teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("A23:IV23").Copy
Sheets("Sayfa2").Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
Range("A26:IV26").Copy
Sheets("Sayfa3").Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
Range("A29:IV29").Copy
Sheets("Sayfa4").Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
Range("A32:IV32").Copy
Sheets("Sayfa5").Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Kopyalama işlemi bitti." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[kemalist]

dosyanız ektedir.

private sub commandbutton1_click()
application.screenupdating = false
range("a23:ıv23").copy
sheets("sayfa2").range("a1").pastespecial (xlpastevaluesandnumberformats)
range("a26:ıv26").copy
sheets("sayfa3").range("a1").pastespecial (xlpastevaluesandnumberformats)
range("a29:ıv29").copy
sheets("sayfa4").range("a1").pastespecial (xlpastevaluesandnumberformats)
range("a32:ıv32").copy
sheets("sayfa5").range("a1").pastespecial (xlpastevaluesandnumberformats)
application.cutcopymode = false
application.screenupdating = true
msgbox "kopyalama işlemi bitti." & vblf & _
"evrengizlen@hotmail.com", vbokonly + vbınformation, "e v r e n"
end sub

sayın evren bu kadar kısa sürede cevapladığınız ve alakanız için çok teşekkür ederim.

 

[Orion1]

sayın evren bu kadar kısa sürede cevapladığınız ve alakanız için çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.