ferman görünümlü msgbox

[uzmanamele]

merhaba,
Ferman görüntüsünü msgbox olarak kullanabilir miyiz?
1- Mesela B5:B10 aralığında değerlerin toplamı % biçimli gösterilmişse ve toplamları %100 den büyükse msgbox olarak ferman çıksın ve
" bre melun, % ler toplamı %100 den fazla olamaz! "
yazsın ve son yazılan değeri silsin.
2- msgbox olarak çıkan ferman sayfasının sağ üst köşesine kapatma ikonu koyabilir miyiz?
Veya 3 saniye sonra otomatik kapansın.

 

[hsayar]

hocam sorunuzun cevabı userformla olur diyecem oda dört köşe
ferman şeklinde userform nasıl tasarlanır diye sormak lazım bence

 

[uzmanamele]

ferman sayfasını başlangıçta görünmez yapıp, koşul yerine gelince son işlem yapılan hücrede msgbox gibi görüntülenmesi sağlanabilir mi acaba?

 

[isfa5878]

merhaba

Private Sub CommandButton1_Click()
Range("b11").Value = Application.Sum([b2:b10]) * 100 'hücre de % işareti varsa
If Range("b11").Value > 100 Then
UserForm1.Show 0
Application.OnTime Now + TimeValue("00:00:03"), "kapat"
End If
End Sub
modüle
Sub kapat()
Unload UserForm1
End Sub

 

[uzmanamele]

verdiğiniz kodda sorun var galiba.
modül sayfasına yazdığımız kod UserForm1'i çağırıyorsa, UserForm1'de ne olacak? otomatik şekil olan fermanı UserForm1'a koyabilir miyiz?

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[1Al2Ver]

Ellerinize sağlık, ne denir, excel harikaları arasında "excelin 7 harikası" seçilse dereceye girer diye düşünüyorum, saygılar.

 

[Haluk]

İlahi Levent dostum, sen çok yaşa e mi?

Akşam akşam güldürdün beni ... eline sağlık. :mrgreen:

Ek:

Ben de, FermanBox'ın kapatma düğmesini ekleyeyim dedim ....



.

 

[hsayar]

hocam bu ferman nerede .visible = True diyorum bir şey gözükmüyor

metni nerede bunun

 

[uzmanamele]

syn leventm ve syn haluk, süper olmuş, elinize sağlık.

 

[Levent Menteşoğlu]

Ellerinize sağlık, ne denir, excel harikaları arasında "excelin 7 harikası" seçilse dereceye girer diye düşünüyorum, saygılar.

Teşekkür ederim. İnanın bu Excelde yapılanların yayında son derece önemsizdir.

İlahi Levent dostum, sen çok yaşa e mi?

Akşam akşam güldürdün beni ... eline sağlık. :mrgreen:

Ek:

Ben de, FermanBox'ın kapatma düğmesini ekleyeyim dedim ....

Üstadım çok teşekkür ederim. Kapatma düğmesi ilavesi ile çok daha güzel olmuş. Hocam bu fermanbox tabiride çok güzel, literatüre yeni bir nesne kazandırmış olduk. İçindeki metnide Sn uzmanamele den aldım benimde çok hoşuma gitti, okuyunca en az 10 dk güldüm.

hocam bu ferman nerede .visible = True diyorum bir şey gözükmüyor

metni nerede bunun

Metni ben kod ile içine yazdırmıştım. Haluk Üstadımın eklediği dosyada direk nesne içine yazılmış durumda.

syn leventm ve syn haluk, süper olmuş, elinize sağlık.

Rica ederim. Beğendiğinize sevindim.

 

[uzmanamele]

Bu fermanbox hazırladığım programa çok harika görsellik kazandıracak. birkez daha teşekkürler.

 

[hsayar]

hocam bu ferman nerede .visible = True diyorum bir şey gözükmüyor

metni nerede bunun

hocam bahsettiğim "Auto Shape 3" nesnesinin kendisi nerde bu nesene sabit değer sayfada bir yerde ama nerde onu soruyorum.........

Yada şuda olabilir sn. uzmanamalenin bahsettiği gibi iki / veya daha fazla koşul var

koşul 1 gerçekleştiğinde Autoshape3 deki metin Koşul 1 sağlanamamıştır
koşul 2 gerçekleştiğinde Autoshape3 deki metin Koşul 2 sağlanamamıştır
koşul 3 gerçekleştiğinde Autoshape3 deki metin Koşul 3 sağlanamamıştır

şeklinde metin içeriğini yazmak mümkünmü kendimiz kullanmak istersek bu nesneyi nerede saklayacağız

 

[gitarisyen]

Gerçekten harika ötesi bir uygulama... Defalarca %100'den fazla toplam yaptırdım... Defalarca fermanla zılgıt yedim... Defalarca güldüm... Ellerinize sağlık...

 

[hsayar]

hocam siz bu nesneyi en iyisi calss modül ile eklenti olarak yapın
en azından metinde belli karakter aralıklarında fontrengide belirleyebilir herhalde
FermanEmri metin, dolgurengi, VbYesNo (gibi abartabilrizde)

 

[uzmanamele]

syn leventm'in eline sağlık, fermanbox süper oldu.
1 den fazla koşulda, 2.-3.-4. fermanbox lar için yardım bekliyorum.

 

[hsayar]

syn leventm'in eline sağlık, fermanbox süper oldu.
1 den fazla koşulda, 2.-3.-4. fermanbox lar için yardım bekliyorum.

bende bekliyorum

 

[Levent Menteşoğlu]

syn leventm'in eline sağlık, fermanbox süper oldu.
1 den fazla koşulda, 2.-3.-4. fermanbox lar için yardım bekliyorum.

İlk fırsatta yapacağım. Birde şunu belirtmek istiyorum. Rengi ve yazı tipi gibi özellikleri değiştirilebilen olan bir msgbox nesnesi üzerinde çalışıyorum başarabilirsem VBE de direk olarak kullanılabilecek. İsmide excelwebtrbox olacak.

 

[Haluk]

Birkaç koşul içeren FermanBox;

 

[uzmanamele]

syn haluk,
FermanBox'da B11 hücresindeki değerlere göre farklı mesaj seçeneği var.
%100 den büyük olduğunda son girilen değerin silinmesi gerekiyor, FermanBox çıkıyor ancak toplamı hala %100 den büyük gösteriyor.
benim istediğim ilk örnek dosyamda anlatmaya çalıştığım gibi, bir sayfada farklı hücrelerdeki kriterlere göre farklı FermanBox çıkması.
farklı hücrelerdeki sorguya göre bir kod ile farklı mesaj görebilir miyiz? her hücre sorgusu için farklı Ferman mı hazırlamak gerekir?