Kopyala Özel yapıştır (Değer)

[mesutaygun70]

Kolay Gelsin. Benim oluşturduğum formda makrolarla silme işlemi var. Bu işlemi yaptığımda silinmemesi gereken bazı formüllü yerleri siliyor.Fakat Sayfa1 i kopyalayıp Sayfa 2 ye özel yapıştır (Değerleri) ile yapıyorum işlem düzgün. Ama istediğim her seferinde bunu tek tek uğraşmak yerine makro yada bir formülle yapamaz mıyım

 

[Emir Hüseyin Çoban]

. . .

Makro kaydet ile kopyala-yapıştır işlemini bir kez yapın.
İhtiyacınız olan kodlar oluşacaktır.

. . .

 

[mesutaygun70]

Ayrıntılı olarak yazabilirmisiniz biraz yeniyimde yapamadım. Acele yazabilirseniz sevinirim.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Hücre aralıklarını kendinize göre düzenlersiniz.

Sub KOPYALA()
    Application.ScreenUpdating = False
    
    Sheets("Sayfa1").Range("A1:K100").Copy
    Sheets("Sayfa2").Range("A1").PasteSpecial xlValues
    Application.CutCopyMode = False
    
    Application.ScreenUpdating = False
End Sub