Makro Sayfa silerken "Sil" uyarısı gelmesin.

[ssomar]

İyi günler arkadaşlar

ben Excel' de Makrolar ile bir MRP programı hazırlıyorum. Burada bir yerde sayfanın birini silip yerine başka bir sayfa açmam gerekiyor. Bunu kodlarla yaparken sayfayı "Silme" esnasında "sayfanız veriler içeriyor silinsin mi ?" uyarısını veriyor doğal olarak. Ama ben buraya geldiği zaman bu uyarının görünmesini istemiyorum. "Sayfayı Silerek" Aynen kaldığı yerden devam etmesini istiyorum.
Bunu yapabilmek için bir kod var mı acaba? Bir hata gördüğünde "On error resume" kodu ile devam etmesi gibi bişe olabilir diye düşünüyorum. Forumda arattım ama bulamadım.

Aklıma ilk olarak oraya uyarı geldiğinde Enter layıp geçmesi için kod eklemek geldi ama, kodlarda alt satıra geçmesi için bu uyarıyı atlaması gerekiyor.

Yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

MRP programı nedir?

 

[security]

MRP programı nedir?

evren bey
MRP (Materials Requirements Planning )
Malzeme İhtiyaç Planlaması programı. sanırım...

 

[Orion1]

evren bey
MRP (Materials Requirements Planning )
Malzeme İhtiyaç Planlaması programı. sanırım...

Sayın security;
Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Silme kodundan önce aşağıdaki satırı yazarsanız uyarıyı almazsınız.

Application.DisplayAlerts = False

 

[security]

Sayın security;
Teşekkür ederim.

Rica ederim...
Excelde Hazırlanmış Olan MRP ile örnek ler mevcut...

 

[ssomar]

Selamlar,

Silme kodundan önce aşağıdaki satırı yazarsanız uyarıyı almazsınız.

Application.DisplayAlerts = False

Teşekkürler Korhan Bey
evet uyarıyı almadım, lakin uyarıyı es geçmesi ile birlite sayfayı silmedi.
yani uyarıyı "İptal" olarak algılamış oldu. Ama Sayfayı silmesi gerekir. benim isteğim bu ...

Bu arada MRP malzeme ihtiyaç planlaması demek.
MRP programını bitirme ödevim ön sunumu olarak yapıyorum... Ek bilgi olarak söyleyeyim :mrgreen:

 

[Seyit Tiken]

Sub Düğme1_Tıklat()
Application.DisplayAlerts = 0
ActiveSheet.Delete
Application.DisplayAlerts = 1
End Sub

Bu şekilde deneyiniz.

 

[ssomar]

Sub Düğme1_Tıklat()
Application.DisplayAlerts = 0
ActiveSheet.Delete
Application.DisplayAlerts = 1
End Sub

Bu şekilde deneyiniz.

Teşekkürler ...Korhan beyin verdiği kodu yalnış şekilde aktarmışım onu düzeltince oda çalıştı.. çok teşekkürler.
Çalışmam bitince (ki büyük ölçüde bitti) inşallah forumda paylaşacağım..gerçekten geniş bir MRP programı oldu. Endüstri Mühendisleri ve Endüstri Mühendisliği Öğrencileri için önemli bir konu MRP....Ayrıca çalışma diğer forum kullanıcıları içinde Excel VBA açısından yararlı olabilecek nitelikte olduğunu düşünüyorum
tekrar teşekkürler...saygılarımla

 

[baydeniro]

Teşekkürler. Harika bir bilgi.