NADİR YILDIZ
Altın Üye
- Katılım
- 7 Ocak 2006
- Mesajlar
- 1,324
- Excel Vers. ve Dili
- 2016 Türkçe
- Altın Üyelik Bitiş Tarihi
- 09-02-2026
Private Sub CommandButton4_Click()
Sheets("FİŞ KONTROL").Range("C4:J10000").Copy
Sheets("KAYIT").Range("C19").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
MsgBox "Kopyalama Yapıldı..!!"
End Sub
kodu ile aktarım yapıyorum
kayıt sayfası korumalı C4:J10000 arasındaki alan korumasız
kayıt sayfasındaki korumayı kaldırdığımda aktarım yapıyor
fiş kontrol sayfasından korumalı kayıt sayfasına aktarım için kodda nasıl bir değişiklik yapmam gerekiyor
Sheets("FİŞ KONTROL").Range("C4:J10000").Copy
Sheets("KAYIT").Range("C19").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
MsgBox "Kopyalama Yapıldı..!!"
End Sub
kodu ile aktarım yapıyorum
kayıt sayfası korumalı C4:J10000 arasındaki alan korumasız
kayıt sayfasındaki korumayı kaldırdığımda aktarım yapıyor
fiş kontrol sayfasından korumalı kayıt sayfasına aktarım için kodda nasıl bir değişiklik yapmam gerekiyor