Sayfadaki kod diğer kodları engelliyor.

[Carpintero]

Private Sub Worksheet_activate()
Application.DisplayFormulaBar = False
End Sub

Merhabalar, bu kod ilgili sayfada çalışması gereken
diğer kodları engelliyor.
Başka sayfadan veri kopyalayıp bu sayfaya geçtiğimde
üstteki kod çalıştığı için kopyalanan veri siliniyor.

buna bir çözüm bulabilirmiyiz acaba.

 

[Muzaffer Ali]

Merhaba.
Şöyle yapın

Private Sub Worksheet_activate()
if Application.DisplayFormulaBar =true then Application.DisplayFormulaBar = False
End Sub

 

[Carpintero]

Merhabalar Ali Bey,
maalesef copyalanan verileri yine siliniyor

 

[Muzaffer Ali]

Bu kodu tamamen silerek deneme yaptınız mı?
Bu kod sadece formül çubuğunu gizliyor, başka bir işlem yapmıyor.

Başka bir sorun olmalı.,
Anlayabilmek için dosyanızı ekleyin. Dosyanızı dosya.co gibi bir sitede paylaşabilirsiniz.

 

[Carpintero]

Merhabalar Ali Bey;
kendi dosyamdan bağımsız,
yeni boş bir excel dosyası açtım.
sizin kodları sayfa3 ün içine koydum.
sayfa1 den veri kopyalayıp sayfa3 geçtiğimde
yapıştır özelliği kayboluyor.

 

[Muzaffer Ali]

Kod önbelleği temizliyor onun için yapıştırma seçeneği çıkmıyor.
Windows + V tuşuna basarak daha önce kopyalama yaptığınız her şeyi listede görebilirsiniz. Oradan seçim yaparak yapıştırın.


Yada sayfa her aktif olduğunda çalışmasına gerek yoksa bu kodu aşağıdaki kodda olduğu gibi sadece dosya açılışında çalıştırın.
Bu kodu BuÇalışmaKitabı adlı kod sayfasına kopyalayın.

Private Sub Workbook_Open()
    Application.DisplayFormulaBar = False
End Sub

 

[Carpintero]

koda manuel müdahale şansım yok.
false ve true ya değer atayıp
o şekilde halletmeye çalışacağım

desteğiniz için teşekkür ederim
Ali bey.