3 sayfa arasında kopyalama

[kemalist]

arkadaşlar sayfa1 deki verileri sayfa2 deki buton yardımıyla sayfa 3 e kopyalamak istiyorum.aşağıdaki kodu denedim fakat olmadı.yardımlarınız için şimdiden teşekkür ederim.dosya ektedir.

Sheets("Sayfa1").Select
ActiveSheet.Range("b5:d10").Copy
RangeSheets("Sayfa3)("d5").Paste

 

[Ömer]

Merhaba,

Bu şekilde kullabilirsiniz..

Sub Kopyala()
Dim S1 As Worksheet
Set S1 = Sheets("Sayfa1")
    Sheets("Sayfa3").Select
    S1.Range("B5:D10").Copy Range("D5")
End Sub

.

 

[kemalist]

SAYIN ÖMER sayfa1-4-5 deki verileri sayfa2 deki buton yardımıyla sayfa 3 e kopyalamak istiyorum.VERDİĞİNİZ KODU GENİŞLETEREK YAPMAK İSTEDİM AMA SADECE BİR SAYFANIN VERİLERİNİ KOPYALIYOR.KODDA DEĞİŞİKLİK YAPABİLİRMİSİNİZ? yardımlarınız için şimdiden teşekkür ederim.dosya ektedir.

 

[kemalist]

Yardım edecek arkadaş varmı?

 

[Ömer]

Basit mantıkla aşağıdaki gibi kullanabilirsiniz.

Sub Kopyala()
Dim S1 As Worksheet, S3 As Worksheet, S4 As Worksheet, S5 As Worksheet
Set S1 = Sheets("Sayfa1"): Set S3 = Sheets("Sayfa3")
Set S4 = Sheets("Sayfa4"): Set S5 = Sheets("Sayfa5")
    S1.Range("B5:D10").Copy S3.Range("D5")
    S4.Range("F4:H9").Copy S3.Range("G5")
    S5.Range("D6:F11").Copy S3.Range("J5")
End Sub

.

 

[kemalist]

sayın ömer çok teşekkür ederim.bir sorum daha olacak aşağıdaki iki makroyu ayrı ayrı kullanabiliyorum.Bu iki makroyu tek butonla çalıştırmak istiyorum.bunun için iki makroyu birleştirebilirmiyiz?Yardımlarınız için şimdiden çok teşekkür ederim....

Sub FIYATYAPISTIR()

'Private Sub CommandButton7_Click() 'FİYAT YAPIŞTIR
Application.ScreenUpdating = False
Range("B336:AKE336").Copy
Sheets("YDS").Range("B4").PasteSpecial (xlPasteValuesAndNumberFormats)
Range("B341:LK341").Copy
Sheets("HACİM").Range("B4").PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("K8:K329").Copy Sheets("YFIYAT").Range("T5")
Range("J8:J329").Copy Sheets("DFIYAT").Range("T5")
Range("M8:M329").Copy Sheets("GAOF").Range("T5")
Range("Q8:Q329").Copy Sheets("LOT").Range("T5")
Range("F8:F329").Copy Sheets("SFIYAT").Range("AE5")
Range("K8:K329").Copy Sheets("YIL ENYÜ").Range("D4")
Range("J8:J329").Copy Sheets("YIL ENDÜ").Range("D4")
End Sub



Sub Kopyala()
Dim S1 As Worksheet, S3 As Worksheet, S4 As Worksheet, S5 As Worksheet
Set S1 = Sheets("LOT"): Set S3 = Sheets("YENİ")
Set S4 = Sheets("GAOF"): Set S5 = Sheets("DFIYAT")
Set S6 = Sheets("YFIYAT"): Set S7 = Sheets("SFIYAT")

S1.Range("T5:V326").Copy S3.Range("U8")
S4.Range("T5:V326").Copy S3.Range("AA8")
S5.Range("T5:V326").Copy S3.Range("AG8")
S6.Range("T5:V326").Copy S3.Range("AM8")
S7.Range("AE5:AG326").Copy S3.Range("AS8")
End Sub

 

[Ömer]

Merhaba,

Sub Kontrol()
    
    [COLOR=red]FIYATYAPISTIR
[/COLOR]    [COLOR=blue]Kopyala
[/COLOR]    
End Sub

Bu şekilde bir kod yazarak butona kontrol kodunu eklerseniz istediğiniz olacaktır..

.