E

Çözüldü Kopyalama modunun koddan dolayı iptal olması

  • Konuyu başlatan Konuyu başlatan ErolU
  • Başlangıç tarihi Başlangıç tarihi

ErolU

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Değerli arkadaşlar,
Aşağıdaki kodlar VBA'da Bu Çalışma Kitabına bölümüne yazılıyor.
Bu kodların yazılı olduğu Excel dosyasına başka bir Excel dosyasından veri kopyalamak istiyorum.
Başka Excel dosyasında kopyalamak istediğim alanı seçip kopyala diyorum. Kodların yazılı olduğu kitaba gelip sağ tık yapınca yapıştırma menüsü aktif gözükmüyor. Kopya almak istediğim Excel dosyasındaki kopyalanan alan da kayboluyor.

Bu durum bir şekilde çözülebilir mi?


Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(18 satır)

NOT: Yukarıdaki kodların yazılı olduğu çalışma kitabını örnek dosya olarak aşağıya ekliyorum. Dosya açıldığında menüler gözükmeyecek.
 

Ekli dosyalar

@Erol U.

BuÇalışmaKitabı bölümündeki ...Activate ve ...Deactivate kodlarına ilk satır olarak aşağıdaki satırı ekleyin.
Yanlış düşünmüyorsam istenilen sonuç alınır.

If Application.CutCopyMode = xlCopy Or xlCut Then Exit Sub

.
 

Ömer BARAN,​

Kodu aşağıdaki gibi düzenledim. Kitap ilk açılışta menüleri gizlememeye başladı.
Dolayısı ile kopyalama sorununun düzelip düzelmediğini test edemedim.

Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(20 satır)
 
Sayın BARAN,
İlgili satırı 4. iletinizde önerdiğiniz gibi değiştirdim.
If Application.CutCopyMode > 0 koşulu sağlanmasına rağmen Exit Sub devreye girmiyor.
Kopyalama ya da kesme modu iptal oluyor.
 
Denemiştim diye hatırlıyorum.

... > 0 yerine <> 0 olarak değiştirerek de dener misiniz?

İki belge açık olsun, kopyala/yapıştır öncesinde birkaç kez, bir belgelerden birini, bir diğerini aktif belge haline getirdikten sonra
kopyala/yapıştır denemelerini yapın.

.
 

Ömer BARAN,​

Yukarıdaki iletilerinizdeki üç ayrı kod satırı da sorunu çözüyormuş.
Foruma eklediğim örnek belge üzerinde sonuç alamıyordum.
Başka bir belge üzerinde deneyeyim dedim.
Yeni belgede yaptığım denemelerde herhangi bir sorun gözükmedi.

ExcelDesteğiniz için teşekkürler.
 
Üst