"EMİNMİSİNİZ" UYARI MESAJI

[Yakup]

"EMÝNMÝSÝNÝZ" UYARI MESAJI

Ben Excelde çalışma sayfamda silinmesi gereken bazı bölümleri silmek istediğimde;Excelin bunu hemen silmemesini,Msgbox ile beni uyarmasını (EMİN MİSİNİZ? EVET -HAYIR) İstiyorum. EVET i tıklayınca silmesini HAYIR ı tıklayınca da bundan vazgeçmesini sağlayacak bir makro var mı?
Þimdiden herkese Teşekkürler.

 

[danersin]

Zor soru. Ben bilmiyorum.

 

[Yakup]

Zor soru. Ben bilmiyorum.

İlginize Tesekkur ederim.

 

[Exelans]

Merhaba,
Yakup bey sorunuz zor değil bence ama neden bunu arama menüsünden aramıyorsunuz

MsgBox deseniz bir sürü örnek çıkacaktır zaten :hihoho:

 

[danersin]

Merhaba,
Yakup bey sorunuz zor değil bence ama neden bunu arama menüsünden aramıyorsunuz

MsgBox deseniz bir sürü örnek çıkacaktır zaten :hihoho:

Soruyu ya ben ya siz yanlış anladınız heralde.
Bana kalırsa mesajboks sorusu değil soru. Bir hücre içerini silerken- clear yada delete olayın tetiklenmesi ve mesajboks ile istenirse silme işleminin iptal edilmesi.

 

[Exelans]

Sayfanızın kod sayfasına geçin.
Bilmiyorsanız sayfa açıkken Alt-F11 e basacaksınız.
Çıkan ekranda Insert menüsünden Module deyin.
Modul içine
[vb:1:ad568e9823]Public Sub onay()
Application.OnKey "{DEL}", "mesaj"
End Sub

Sub mesaj()
If MsgBox("Emin misiniz?", vbYesNo) = vbNo Then Exit Sub
If MsgBox("Son kararınız mı?", vbYesNo) = vbNo Then Exit Sub
ActiveCell.ClearContents
Selection.ClearContents
Application.OnKey "{DEL}"
End Sub[/vb:1:ad568e9823]

Kodlarını aynen yapıştırın.
Daha sonra Soldaki pencereden sayfanız üzerine çift tıklayın. Sayfanın kod sayfasına
[vb:1:ad568e9823]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call onay
End Sub[/vb:1:ad568e9823]
Kodlarını aynen yapıştırın.
Eğer Makro güvenlik seviyeniz yüksek ise düşüğe ayarlayın.
Kolay gelsin.

Sayın danersin, valla ben böyle bir şeyler yaptım. Sanırımm arkadaş bunu istiyor.

 

[danersin]

Denemedim ama yol doğru gözüküyor.

Ancak tam olması için istenenin backspace'i ilave etmek ve düzen temizle ve sağ menü olaylarını da kapatmak gerekecek.
Yakup beyin istediği bu ise onlarıda eklersiniz artık

Menüler önemli değilde klavyeden yanlışlıkla silmeye engel olmak ise amaç bu halide işinizi görebilir.

 

[Exelans]

ehh olsun. Bakalım yakup ne diyecek.

 

[Yakup]

ehh olsun. Bakalım yakup ne diyecek.

Exelans daha ne diyebilirim ki? Ellerine -yüreğine sağlık. Tam istediğim cevabı hatta daha fazlasını aldım. sayn Danersin arkadasıma da çok tesekkur ederim. sağolun...

 

[Exelans]

Merhaba,

Ben Excelde çalışma sayfamda silinmesi gereken bazı bölümleri silmek istediğimde;Excelin bunu hemen silmemesini,Msgbox ile beni uyarmasını (EMİN MİSİNİZ? EVET -HAYIR) İstiyorum. EVET i tıklayınca silmesini HAYIR ı tıklayınca da bundan vazgeçmesini sağlayacak bir makro var mı?
Þimdiden herkese Teşekkürler.

Danersin arkadaşım sanırım soruyu çok boyutlu düşünmüş olsa gerek

Ancak tam olması için istenenin backspace'i ilave etmek ve düzen temizle ve sağ menü olaylarını da kapatmak gerekecek.
Yakup beyin istediği bu ise onlarıda eklersiniz artık

Exelans daha ne diyebilirim ki? Ellerine -yüreğine sağlık. Tam istediğim cevabı hatta daha fazlasını aldım

Yani sonuç olarak. Yakup arkadaşım, bu şekilde sorunun çözülüyorsa sorun yok demektir.
Ama danersin beyin de hakkını yememek lazım. Onun da dediği gibi diğer silme işlemlerini de deaktif yapabiliriz.

Tabi buna da ben itiraz hakkımı kullanıyorum.
Excelin işlevlerini kullanmayacaksak bırakalım exceli yeniden yeni bir yazılım geliştirelim. Exceli fazla zorlamanın anlamı yok arkadaşlar. Amerikayı yeniden keşfetmeye de. Excelin kendi işllevlerini bile daha doğru dürüst öğrenmeden bu işleri makrolarla çözmeye çalışan, nasıl çözüleceğini bilmediğinden soran çok arkadaşımız var. Onlara doğru yolu göstermek adına bir şeyler yapmak lazım.
Haa bana kalsa zaten ben DEL tuşunu bile deaktif etmek için bu kadar kod yazmam.
Hücreyi korurum sadece. Excel zaten bunun için biz imkan tanımış
Bırakalım exceli özgür olsun. Biz VBA ile onun yapamadıklarını yapalım. Böylece excel de VBA da asıl işlevlerini yerine getirsin. Bizlerde elimizdeki EXCEL programını hakkını vererek kullanalım.
Saygı ve sevgilerimle.

 

[Cemil1]

Slm,
Bu soru soran mesaj olayını dosyayı kapatırken de yapabilirmiyiz.
yani dosyayı kapat x işaretine tıklayınca sorsun kapatmak istediginize eminmisiniz diye.
Nasıl olur.

 

[TRABLUS]

dosyayı kapat x işaretine tıklayınca sorsun kapatmak istediginize eminmisiniz diye.
Nasıl olur.

Bunun size ne gibi faydası olacak, mesela bir değişiklik yapıp kaydetmeden çıkmaya çalıştığınızda

zaten size soruyor kaydetsin mi? diye. Bunun haricinde bir değişiklik yok ise size sormasının anlamını, anlayamadım :?

 

[Cemil1]

Þöyle faydası olacak.
Birkaç excel dosyası açık olarak çalışırken bitanesini kapatıcam diye yanlışlıkla en sondaki x işaretine basıyorum komple excel kapanıyor ama bana sorsa orada emin misin diye hayır ı tıklayıp bütün dosyaların kapanmasını engelleyeceğim.
Var mı bunun yöntemi? Yani varsa diye soruyorum olmazsa sorun değil.
Ama olursa benim için iyi olur.

 

[TRABLUS]

Var mı bunun yöntemi?

Bunun bir başka yöntemi, X işaretinden değilde, aşağıda kapatıcağınız dosyanın üzerine gelip mouse'un sağına tıklayın oradan kapat deyin. O zaman sadece sizin istediğiniz dosya kapanır.

Þimdi belki bu uzun iş diyebilirsiniz. Ama emin olun sizin dediğinizden daha kısa, neden derseniz, bir düşünün size eminmisiniz diye soracak, siz evet/hayır' ı işaretliyeceksiniz, program ona göre kapatacak veya kapatmıyacak. Halbuki mouse sağ klik kapat deseniz problem anında çözülür.

 

[Cemil1]

Yok onu demiyorum trablos yanlış anladın. anlatmak istediğm sağ üst köşede 2 tane x işareti var ya alttakine tıklayınca önünde açık olan dosya kapanıyor üstekine tıklayınca komple excel kapanıyor ya onu diyorum.
en üstteki x işaretine tıklayınca eminmisin diye sorsun alttakinde ise sormasın. evet dersem kapansın hayır dersem kapanmasın. Anlatabilmişimdir umarım.

 

[TRABLUS]

Yok onu demiyorum trablos yanlış anladın. anlatmak istediğm sağ üst köşede 2 tane x işareti var ya alttakine tıklayınca önünde açık olan dosya kapanıyor üstekine tıklayınca komple excel kapanıyor ya onu diyorum.

Ben de size alttaki X ' den bahsetmedim zaten. Aşağıda Başlat'ın yanında açık olan dosyalarınız varya, orada kapatmak istediğiniz dosyanın üzerinde mouse ile sağ klik yapın ve kapat deyin. Sadece kapatmak istediğiniz dosyalar kapanır.

 

[Cemil1]

Neyse istediğim olmuyor yani bunu anladım
teşekkür ederim yardımınıza.

 

[TRABLUS]

Aşağıda ki resimden yapabilirsiniz. İnanın sizin dediğinizden daha kısa olur. Buradan kapatınca sadece sizin istediğiniz dosya kapanır. Açık olan diğer dosyalarınız kapanmaz.

 

[bono]

exelans "uyarı mesajı" adında bir başlık açmıştım ancak senin yukarıdaki çalışmana rastladım. Bunu o başlık altında sorduğum soruya uyarlamaya çalıştım ama başarılı olamadım. Belki sen yardımcı olabilirsin diye yazıyorum.

mesela B4 hücresinde bir değişiklik yapılacak (sizinkinde "del" yapılırsa oluyor ancak benimkinde herhangibir değişiklik anında olacak) bir msgbox çıkıp "eminmisin?" diye sorsun. yes denilirse o hücre değişime açılsın ancak no denilirse bilgilerin değiştirilmesine izin vermesin. Ayrıca açılan msgbox a .gif uzantılı bir resimde koymak istiyorum. sizce bu istediklerim mümkünmü?

şimdiden teşekkürler

 

[Exelans]

mümkün ama ben yapamam