iki makroyu birleştirme

[kemalist]

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

 

[uzmanamele]

merhaba

bu şekilde deneyiniz.

'Private Sub CommandButton7_Click()
Application.ScreenUpdating = False

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")

Range("B336:AKE336").Copy
Sheets("YDS").Range("B4").PasteSpecial (xlPasteValuesAndNumberFormats)
Range("B341:LK341").Copy
Sheets("HACİM").Range("B4").PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = False
Range("K8:K329").Copy S6.Range("T5")
Range("J8:J329").Copy S5.Range("T5")
Range("M8:M329").Copy S4.Range("T5")
Range("Q8:Q329").Copy S1.Range("T5")
Range("F8:F329").Copy S7.Range("AE5")
Range("K8:K329").Copy Sheets("YIL ENYÜ").Range("D4")
Range("J8:J329").Copy Sheets("YIL ENDÜ").Range("D4")
Application.ScreenUpdating = True
End Sub