Özellikleri ile kopyalama

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Bu güne kadar yaptığım kopyalamalarda hep değerleri kopyaladım. Şimdi yine değerleri ama özelliklerini de bozmadan kopyalamak istiyorum.
Özellikleri bozulmadan örnek dosyadaki 2 satırı makro ile başka bir yere nasıl kopyalayabilirim.
Saygılarımla

 

[Orion1]

Dosyanız ektedir.

Sub kopyala59()
Dim sh As Worksheet
Set sh = Sheets("Sayfa2")
sh.Range("A1:AM13").Clear
Range("A1:AM13").Copy sh.Range("A1")
sh.Select
MsgBox "veriler kopyalandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[Tevfik_Kursun]

Sayın Orion1 Hocam,
Teşekkür ederim.
Saygılarımla

 

[Orion1]

Sayın Orion1 Hocam,
Teşekkür ederim.
Saygılarımla

Rica ederim.
İyi çalışmalar.

 

[Tevfik_Kursun]

Sayın Orion1 Hocam,
Sadece 12 ve 13. satırları diğer sayfaya kopyalamaya çalışınca olmuyor ama. Mutlaka A1:A4 ü de getirmek gerekiyor.
Saygılarımla

 

[Orion1]

Sayın Orion1 Hocam,
Sadece 12 ve 13. satırları diğer sayfaya kopyalamaya çalışınca olmuyor ama. Mutlaka A1:A4 ü de getirmek gerekiyor.
Saygılarımla

Yolladığım dosyaya baktınızmı?
A1-A4 te kopyalanmış durumda.

 

[Tevfik_Kursun]

Sayın Orion1 Hocam,
İlginize çok teşekkür ederim. Küçük bir ekleme ile problemi çözdüm.
Saygılarımla

 

[Orion1]

Sayın Orion1 Hocam,
İlginize çok teşekkür ederim. Küçük bir ekleme ile problemi çözdüm.
Saygılarımla

Ekleme yapmanıza gerek yok.Zaten kopyalıyordu yazdığım kodlar.

 

[Tevfik_Kursun]

Siz haklısınız, ben de haklıyım. 36 puntoluk harf 4 hücre içinde idi. Bunların ikisinde de fonksiyon yazılı idi. Fonksiyonları temizledim, harfi kopyaladım, 4 hücreyi birleştirip diğerlerini kopyaladım. Oldu.
İlginize tekrar tekrar teşekkür ederim.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Orion1 Hocam,
İlginize gerçekten çok teşekkür ederim. Yorgunken kavrayamamışım. Bugün tekrar denedim. 30 ayrı sayfada arka arkaya çalışıyor. Tekrar teşekkür ederim.
Saygılarımla