• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

SAYFA KOPYALAMA MAKROSU

C

cocoa35

Katılım
6 Eylül 2007
Mesajlar
657
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
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
 
Merhaba.

Kod: 
Sub x()
Sayfa123.Range("a6:v5736").Copy
Sayfa138.Range("b4").pastespecial xlpastevalues
End Sub
 
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.
 
Son düzenleme:
Kod: 
Sub x()
Sayfa138.cells.clearcontents
Sayfa123.Range("a6:v5736").Copy
Sayfa138.Range("b4").pastespecial xlpastevalues
End Sub
 
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.
 
Kod: 
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
 
Çok teşekkürler Dalgalıkur gayet güzel oldu iyi'ki varsınız :)
 
Dalgalıkur çok özür diliyorum, çizgileri taşıyor ancak nesne , biçimleri taşımıyor maalesef !
 
Örnek dosya ekleyin.
Kopyalanması ve kopyalanmaması gerekenleri belirtin.
 
Sn Dalgalıkur örnek dosya ek'tedir.
 

Ekli dosyalar

Deneyin.

Kod: 
Sub x()
    Sayfa1.Cells.Copy Sayfa2.Range("A1")
    With Sayfa2.Cells
        .Copy
        .PasteSpecial xlPasteValues
    End With
End Sub
 
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?
 
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. :)

cocoa35' Alıntı:
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?
Genişletmek için tıkla ...
 
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 s7.dosya.tc
 
Teşekkürler Cengiz demir72 ve hocamız dalgalıkur. :)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst