ferman görünümlü msgbox

[hsayar]

İ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.

hocam mutlaka çok güzel olacaktır eminim ama aşağı açılan kağıt tipi çizim arkadaş ferman demiş ona
bir de bunun yana açılan tipi var başlıklar için hoşgeldiniz , güle güle falan için olanı onlarıda düzenlenecekler listesine ekleyin.

 

[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.
.......

Bahsettiğiniz düzenleme ekteki dosyada yapıldı ....




.

 

[uzmanamele]

syn haluk,
elinize sağlık, çok teşekkür ederim.
aynı sayfada farklı hücrelerdeki farklı koşullar için çıkacak farklı fermanBox için çözüm önerilerinizi bekliyorum.

 

[Haluk]

....
aynı sayfada farklı hücrelerdeki farklı koşullar için çıkacak farklı fermanBox için çözüm önerilerinizi bekliyorum.

Bahsettiğiniz ucu açık bir konu, ne kastettiğnizi anlayamadığım için bir yorum yapamıyorum.

Zaten kodlarda her şey çok açık........, sizin hangi hücrelerde nasıl bir kriteriniz varsa bunu VBA'de yazacaksınız.

İyi çalışmalar ...

 

[uzmanamele]

Syn haluk
ö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?
tek prosedür içinde 1 den fazla olabilir mi ya da hepsi için ayrı ayrı mı yapmak gerekir?

biraz karışık gibi oldu ama ilk mesajımı inceleyebilirseniz yapmak istediğimi açıklamaya çalışmıştım.

 

[uzmanamele]

syn hsayar
"aşağı açılan kağıt tipi çizim" diye söylemişsiniz.
otomatik şekiller içersinde başka örneklerde var. ferman diye nitelendirmemin sebebi şekil benzerliğinden. birazda espiri katarak "bre melun!" diye mesaj çıksın istedim.
bazı şeyler göreceli kuşkusuz. ben, msgboxın ferman olarak algılanmasını ve padişahın tebaasına hitap şeklini kullanmakla, görsel açıdan hoş olabilir diye düşündüm. bazı arkadaşlarımız beğendiklerini ifade ettiler. bende açıkcası memnun oldum.

 

[hsayar]

bende sevdim dediğim diğer otomatik şekillerden fermanın yana açılan tipinide kullanmayk ama bunu genelleştirmek....
mesala yanlış olan bir şeyde enbaşı işaret eden ok
açılışta yanaa açılan kağıtla hoşgeldiniz vs.

 

[uzmanamele]

merhaba
3 koşulda farklı FermanBox örneği yapmaya çalışıyorum ama birtürlü beceremedim. ya çıkan fermanboxı durduramıyorum, sürekli açılıyor ya da döngü hatası oluyor.
biryerde mantık hatası yapıyorum ama nerde? uzman arkadaşlar ilgilenebilirler mi?

 

[lsuersoy]

Bu Güzel Çalışma da ufak bir manipülasyon yaptığımızda

Ekli dosyayı inceleyin.

Merhabalar ,

Öncelikle çalışmanızı bizimle paylaştığınız için teşekkürederim.

Bu Güzel Çalışma da ufak bir manipülasyon yaptığımızda

========================================================
Private Sub Worksheet_Change(ByVal Target As Range)
If [b17] > 55000 Then
ActiveSheet.Shapes("AutoShape 3").Visible = True
ActiveSheet.Shapes("AutoShape 3").Select
Selection.Characters.Text = Chr(10) & Chr(10) & "bre melun, % ler toplamı %100 den fazla olamaz! "
With Selection.Font
.Name = "Blackadder ITC"
.FontStyle = "Normal"
.Size = 20
.ColorIndex = 3
End With
For a = 0 To 245 Step 5
DoEvents
ActiveSheet.Shapes("AutoShape 3").Height = a
Next
Target.Activate
Target = ""
End If
End Sub
======================================================
B15 Hücresine = 01.01.1990
B16 Hücresine = 01.01.2150

değerleri girdiğimizde

FERMAN Açılıyor ilgili mesajı veriyor hemen arkasından,
B16 hücresindeki değeri SIFIRLIYOR , NULL yapıyor...
ve yine hemen arkasından B17 hücresine = -32874 değerini getiriyor...
B15 , B16 ve B17 hücrelerindeki değerlerin , fermandan sonra sabir kalması için ne yapılmalı....Ve ekstra olarak B16 ya girilen değer B17 de maksimum olması gereken değeri aşan bir tarih ise ; B16 hücresinin aktif olması ve yanıp sönen bir hücre haline getirilmesi için ne yapmalıyız...
============================================
Yazmış olduğunuz kodu anlamaya çalışıyorum da.Müsait bir zamanınızda kodu satır satır anlatabilirmisiniz...

Teşekkürler,

 

[lsuersoy]

Bu Güzel Çalışma da ufak bir manipülasyon yaptığımızda

Ekli dosyayı inceleyin.

Merhabalar ,

Öncelikle çalışmanızı bizimle paylaştığınız için teşekkürederim.

Bu Güzel Çalışma da ufak bir manipülasyon yaptığımızda

========================================================
Private Sub Worksheet_Change(ByVal Target As Range)
If [b17] > 55000 Then
ActiveSheet.Shapes("AutoShape 3").Visible = True
ActiveSheet.Shapes("AutoShape 3").Select
Selection.Characters.Text = Chr(10) & Chr(10) & "bre melun, % ler toplamı %100 den fazla olamaz! "
With Selection.Font
.Name = "Blackadder ITC"
.FontStyle = "Normal"
.Size = 20
.ColorIndex = 3
End With
For a = 0 To 245 Step 5
DoEvents
ActiveSheet.Shapes("AutoShape 3").Height = a
Next
Target.Activate
Target = ""
End If
End Sub
======================================================
B15 Hücresine = 01.01.1990
B16 Hücresine = 01.01.2150

değerleri girdiğimizde

FERMAN Açılıyor ilgili mesajı veriyor hemen arkasından,
B16 hücresindeki değeri SIFIRLIYOR , NULL yapıyor...
ve yine hemen arkasından B17 hücresine = -32874 değerini getiriyor...
B15 , B16 ve B17 hücrelerindeki değerlerin , fermandan sonra sabit kalması için ne yapılmalı....Ve ekstra olarak B16 ya girilen değer B17 de maksimum olması gereken değeri aşan bir tarih ise ; B16 hücresinin aktif olması ve yanıp sönen bir hücre haline getirilmesi için ne yapmalıyız...
============================================
Yazmış olduğunuz kodu anlamaya çalışıyorum da.Müsait bir zamanınızda kodu satır satır anlatabilirmisiniz...

Teşekkürler,