Çözüldü Çözemediğim bir sorun, kodlarım siliniyor

hakki83 · 15 Eyl 2022

Değerli hocalarım selamlar

Bir sorunu çözemedim. Daha doğrusu daha önce başıma gelmeyen, ya da farkına varamadığım sorun olduğunu sandığım bir şeyi çözmeye uğraşıyorum saatlerdir, bir türlü yapamadım.

Herhangi bir boş excel dosyasını açıyorum.

Vba kısmını açıyorum. Bir sayfanın kod kısmına (modül oluşturmuyorum, sadece sayfanın kod kısmına) herhangi bir kod grubunu yapıştırıyorum. Ve bu kod grubunun tamamını Comment Block ile pasif hale getiriyorum. Dosyayı kaydedip kapatıyorum. Dosyayı tekrar açgığımda, az önce blocklayıp etkisiz hale getirdiğim kodların tamamen silinmiş, yok olmuş olduğunu görüyorum.

Ya da kod yerine rastgele birkaç harfe basıp, yine blocklayıp kapatıyorum. dosyayı açtığımda yazdığım harfler silinmiş oluyor.

Bu durumla daha önce hiç karşılaşmamıştım. Sizlerde de durum aynı mıdır?

Eğer bu durum sadece bendeyse bu neden olabilir?

Yusuf43 · 15 Eyl 2022

Kodlarınızın başına Application.DisplayAlerts=false yazıp sonuna Application.DisplayAlerts=True yazıp deneyin.

halily · 15 Eyl 2022

Dosyanızın uzantısı ne?
Bahsettiğiniz durum bildiğim kadarıyla sadece xlsx uzantılı dosyalarda olur

Ümit Bakacak · 16 Eyl 2022

Dosyanız .xlsx uzantılı ise ve vba üzerinde sayfa modüllerinin haricinde modül eklenmemişse sayfa modülüne yazdığınız bütün kodları yorum olarak işaretlediğinizde dosya sanki hiç VBA kodu yazılmamış gibi .xlsx uzantılı kalmaya devam eder.
Öncelikle dosyanızı makro içerebilen bir türde kaydedin. Mesela .xlsm, .xlsb gibi.
Daha sonra vba üzerinde çalışan en az 1 satır kod olmalıdır.

hakki83 · 16 Eyl 2022

Hocalarım sağ olunuz. Şöyle izah edeyim.
Bahsettiğim dosya uzantılatarı xlsm ya da xls. Yani ikisi de makro çalıştırabilen dosyalar.

Safya1’e bir komut düğmesi ekleyip düğmeye çift tıkladıktan sonra, Vba’da Sayfa1 kısmına şunu yazıyorum

Range(“a1”) = “test”

Normalde kod çalışıyor. Fakat daha sonra sayfa kodları bölümü içindeki her satırı bloklayıp yeşile dönüştürdükten sonra kaydedip kapattığımda; tekrar açtığımda yeşil olan bütün kodların silindiğini görüyorum.

Sizlerde de durum böylemidir. Lütfen dener misiniz?

Birkaç gün içinde tahminen cumartesi günü, gif video çekip yükleyeceğim.

hakki83 · 16 Eyl 2022

Yusuf43' Alıntı:
Kodlarınızın başına Application.DisplayAlerts=false yazıp sonuna Application.DisplayAlerts=True yazıp deneyin.

Bunu da denedim.
Normalde silinme yok, fakat sayfadaki kodları bloklayıp yeşile dönüştürünce, kaydedip kapattığımda ve açtığıöda, hepsi siliniyor. Sizde de durum aynı mıdır?

Ümit Bakacak · 16 Eyl 2022

Dosyanızın uzantısının .xlsm olması da yetmez.
Önceki mesajda yazdığım şu cümle önemli:
"Daha sonra vba üzerinde çalışan en az 1 SATIR kod olmalıdır."
Yani siz bütün satırları yorum satırı olarak işaretlediğinizde dosyanızda çalışan kod kalmamış demektir.
Yorum satırı olarak işaretlenMEMİŞ en az bir satır kod olmalıdır.
En azından boş bir prosedür oluşturun. Dursun bir kenarda.

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

hakki83 · 16 Eyl 2022

ubak' Alıntı:
Dosyanızın uzantısının .xlsm olması da yetmez.
Önceki mesajda yazdığım şu cümle önemli:
"Daha sonra vba üzerinde çalışan en az 1 SATIR kod olmalıdır."
Yani siz bütün satırları yorum satırı olarak işaretlediğinizde dosyanızda çalışan kod kalmamış demektir.
Yorum satırı olarak işaretlenMEMİŞ en az bir satır kod olmalıdır.
En azından boş bir prosedür oluşturun. Dursun bir kenarda.

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Ubak hocam teşekkürler
Peki sizde de aynı durum oluyor mu? Sayfa kısmında blokladığınız kodlar siliniyor mu?

Ümit Bakacak · 16 Eyl 2022

Sizde nasılsa bende de durum aynıdır.

hakki83 · 16 Eyl 2022

ubak' Alıntı:
Sizde nasılsa bende de durum aynıdır.

Hocam o zaman sorun yoktur. Rahatladım. Ben de bir virüs marifeti gibi bir şey diye düşünmüştüm.

Sadece bende oluyor sanmıştım.

Sub aa(): End Sub

Tavsiyeniz olan şu kodu da her zaman sabitleyeceğim.

DİKKAT ! Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir. Giriş yap veya Şimdi kayıt ol

Çözüldü Çözemediğim bir sorun, kodlarım siliniyor

DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Giriş yap veya Şimdi kayıt ol