SAYFA KOPYALAMA MAKROSU

[cocoa35]

Merhaba; aşağıda excel kitabı içinde bir sayfanın diğer bir sayfaya kopyalama kod'u var. Ancak bu kod'da kopyala yaparken tüm hücreyi (formüller dahil ) kopyalıyor! benim istediğim sadece rakkam veya harfleri kopyalaması, bu nasıl düzeltilebilir?

Sub x()
Sayfa123.Range("a6:v5736").Copy Sayfa138.Range("b4")
End Sub

 

[Muzaffer Ali]

Merhaba.

Sub x()
Sayfa123.Range("a6:v5736").Copy
Sayfa138.Range("b4").pastespecial xlpastevalues
End Sub

 

[cocoa35]

Teşekkürler dalgalıkur, ancak bir sorun oluştu şöyleki; Sayfa138'e bir önce kopyalanmış olan değerlerden tablolar kalıyor.Kopyalamadan önce sayfa138'i tamamen temizleyip yeni değerleri kopyalama yaptırabilirmisiniz ? Bir'de tablolama çizgilerini taşımıyor sadece rakkam ve yazıları taşıyor, mümkünse çizgi ve nesneleri'de kopyalasın lütfen,Teşekkürler.

 

[Muzaffer Ali]

Sub x()
Sayfa138.cells.clearcontents
Sayfa123.Range("a6:v5736").Copy
Sayfa138.Range("b4").pastespecial xlpastevalues
End Sub

 

[cocoa35]

Sn.Dalgalıkur gayet güzel oldu teşekkürler ancak tablo çizgilerini ve nesne'leri taşımıyor! Lütfen rica etsem formül ve sayfadaki buton'lar hariç tüm sayfayı kopyalasın. Teşekkürler.

 

[Muzaffer Ali]

Sub x()
    Sayfa138.Cells.ClearContents
    Sayfa123.Range("a6:v5736").Copy
    With Sayfa138.Range("b4")
        .PasteSpecial xlPasteValuesAndNumberFormats
        .PasteSpecial xlPasteColumnWidths
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteFormats
        .PasteSpecial xlPasteComments
        .PasteSpecial xlPasteValidation
    End With
End Sub

 

[cocoa35]

Çok teşekkürler Dalgalıkur gayet güzel oldu iyi'ki varsınız

 

[cocoa35]

Dalgalıkur çok özür diliyorum, çizgileri taşıyor ancak nesne , biçimleri taşımıyor maalesef !

 

[Muzaffer Ali]

Örnek dosya ekleyin.
Kopyalanması ve kopyalanmaması gerekenleri belirtin.

 

[cocoa35]

Sn Dalgalıkur örnek dosya ek'tedir.

 

[Muzaffer Ali]

Deneyin.

Sub x()
    Sayfa1.Cells.Copy Sayfa2.Range("A1")
    With Sayfa2.Cells
        .Copy
        .PasteSpecial xlPasteValues
    End With
End Sub

 

[cocoa35]

Sn Dalgalıkur İyi akşamlar; bu saatte rahatsız ediyorum kusura bakmayın yarın saat 10 'a yetişmesi gereken bir projem var o yüzden rahatsız ediyorum. Hocam yukarıdaki formül tamam ancak benim programdaki sayfada a6 hizasına kadar "Buton" lar var , formül direk A1 den aldığı için butonlarıda öbür sayfaya kopyalıyor. Rica etsem buton'ları kopyalamıyacak şekilde formülü düzenleme imkanı olurmu?

 

[Cengiz Demir]

Merhabalar . İlgli düğmeyi sağ klik ile seçip;
Denetimi biçimlendir / Özellikler / Hücrelerle taşıma ve boyutlandırma seçerseniz.
Düğmeler kopyalanmayacaktır.

Sn Dalgalıkur İyi akşamlar; bu saatte rahatsız ediyorum kusura bakmayın yarın saat 10 'a yetişmesi gereken bir projem var o yüzden rahatsız ediyorum. Hocam yukarıdaki formül tamam ancak benim programdaki sayfada a6 hizasına kadar "Buton" lar var , formül direk A1 den aldığı için butonlarıda öbür sayfaya kopyalıyor. Rica etsem buton'ları kopyalamıyacak şekilde formülü düzenleme imkanı olurmu?

 

[izcik]

Kodların hepsini denedim, sayfa isimlerini değiştirdim fakat hiç birini çalıştıramadım. Hepsi hata verdi. Bilmiyorum nerede hata yapıyorum.

ornek.xlsm dosyasını indir - download

ornek.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[cocoa35]

Teşekkürler Cengiz demir72 ve hocamız dalgalıkur.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[Muzaffer Ali]

Kodların hepsini denedim, sayfa isimlerini değiştirdim fakat hiç birini çalıştıramadım. Hepsi hata verdi. Bilmiyorum nerede hata yapıyorum.

ornek.xlsm dosyasını indir - download

ornek.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

Hata kodu ve mesajı nedir? Söylerseniz yardımcı olalım.

 

[izcik]

Hata kodu ve mesajı nedir? Söylerseniz yardımcı olalım.

Merhaba
mesajımdaki örnek dosyaya bakabildiniz mi sayın dalgalıkur uzmanım

 

[izcik]

Run time errror 424 hatası veriyor

 

[Muzaffer Ali]

Merhaba
mesajımdaki örnek dosyaya bakabildiniz mi sayın dalgalıkur uzmanım

Evet denedim herhangi bir sorun yok hatasız çalışıyor.
Siz örnek dosyanızı denediniz mi yoksa orijinal dosyanızda mı hata veriyor?

Run time errror 424 hatası veriyor

Hata verdiğinde "Debug" tıklayın hangi satırı sarı renge boyadığını söyleyin.