birden çok aralıkta makro çalıştırmak

[eak_20]

Arkadaşlar selam,

bir sayfada H12:H57 h75:h120 gibi birden çok farklı aralıkta makro çalıştırmak istiyorum. H57 ve H120 arasında başka veriler mevcut ve ayrıca satırlar birleştirilmiş. Birleştirilmiş hücreleri çözemem.Örnek;

Sub hakedis()
'
' hakedis Makro
'
' Klavye Kısayolu: Ctrl+ç
'
'Sheets("Sayfa1").Range("H12:H57").End(xlUp).Offset (1, 0).Select
Range("F12:F57").Select
Selection.Copy
Range("K12:K57").Select
Selection.PasteSpecial Paste:=xlValues
Range("H12:H57").Select
Selection.Copy
Range("D1257").Select
Selection.PasteSpecial Paste:=xlValues
Range("F12:F57").Select
Selection.ClearContents
Application.CutCopyMode = False


End Sub

h75:h120 için de yine bu şekilde ayrı ayrı yazmak mı gerekiyor. Tek parçada nasıl yaparım?

Teşekkürler yardımlarınız için.

 

[TanerSaydam]

Range("F12:F57,H12:H57").Select
Selection.Copy
Range("K12:K57,D1257").Select
Selection.PasteSpecial Paste:=xlValues


Bu tarz deneyebilirsin, excel dosyasını koymadığından anlattıklarından bu kadarını anladım.

 

[eak_20]

Taner Bey cevabınız için teşekkür ederim. Fakat yanlış anlaşıldı galiba.
yukarıda yazmış olduğum 12:57 sütunları arası. 76:120 139:183 arasında da aynı işlemler devam edecek.Aşağıdaki gibi yaptım fakat hata verdi.

Sub hakedis()
'
' hakedis Makro
'
' Klavye Kısayolu: Ctrl+ç
'
'Sheets("Sayfa1").Range("H12:H57,H76:H120").End(xlUp).Offset(1, 0).Select
Range("F12:F57,F76:F120").Select
Selection.Copy
Range("K12:K57,K76:K120").Select
Selection.PasteSpecial Paste:=xlValues
Range("H12:H57,H76:H120").Select
Selection.Copy
Range("D1257,D76:H120").Select
Selection.PasteSpecial Paste:=xlValues
Range("F12:F57,F76:F120").Select
Selection.ClearContents
Application.CutCopyMode = False


End Sub