Hücre kopyalarken dolgu rengi ve çerçeve kopyalanmasın!

[leumruk]

Değerli arkadaşlar,
Makro ile bir sayfadan başka bir sayfaya düğme yardımıyla kopyalama yapabiliyorum. Fakat bu kopyalama yapılırken dolgu renginin ve kenar çizgilerinin alınmamasını istiyorum. Örnek dosyayı gönderiyorum. Yardımcı olursanız sevinirim.

 

[Ayhan Ercan]

Merhaba Sn leumruk

Kodlarınızı Aşağıdaki gibi düzenleyiniz...

Sub Makro1()
Sheets("Sayfa1").Range("D7").Copy
Sheets("Sayfa2").Range("J7").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

 

[leumruk]

Merhaba Sn leumruk

Kodlarınızı Aşağıdaki gibi düzenleyiniz...

Sub Makro1()
Sheets("Sayfa1").Range("D7").Copy
Sheets("Sayfa2").Range("J7").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Hocam, ilginizden dolayı teşekkür ederim. Evet kopyalama esnasında dolgu ve çizgiyi almadı. Ama benim asıl istediğim, metni biçimiyle birlikte aktarsın, sadece dolgu ve kenar çizgilerini aktarmasın. Bu formülde sadece metni aktardı, metnin biçimlendirmesini aktarmadı.

 

[Ayhan Ercan]

Tekrar Merhaba

Sheets("Sayfa1").Range("D7").Copy
Sheets("Sayfa2").Range("J7").PasteSpecial Paste:=xlPasteAllExceptBorders
Sheets("Sayfa2").Range("J7").Interior.ColorIndex = xlNone
Application.CutCopyMode = False

 

[leumruk]

Tekrar Merhaba

Sheets("Sayfa1").Range("D7").Copy
Sheets("Sayfa2").Range("J7").PasteSpecial Paste:=xlPasteAllExceptBorders
Sheets("Sayfa2").Range("J7").Interior.ColorIndex = xlNone
Application.CutCopyMode = False

Evet hocam, şidi oldu. Çok ama çok teşekkür ederim ellerine sağlık. Beni büyük bir sıkıntıdan kurtardın...

 

[Ayhan Ercan]

Evet hocam, şidi oldu. Çok ama çok teşekkür ederim ellerine sağlık. Beni büyük bir sıkıntıdan kurtardın...

Rica ederim.
İyi Çalışmalar... k::

 

[leumruk]

Rica ederim.
İyi Çalışmalar... k::

Hocam bir soru daha konuyla alakalı. Bu makroyu tek hücre değilde mesela (A3:A30) gibi belli aralıktaki hücrelerin kopyalanmasına nasıl uygularız.
Tamam hallettim. Kusura bakma...