aynı sayfada 3den fazla msgbox (fermanbox) için kodlar nasıl ilave edilebilir?

[uzmanamele]

merhaba
ek dosyada syn leventm'in hazırladığı 3 koşullu ferman görünümlü msgbox ( FermanBox ) mevcut.
veri girişi formatının sınırlandırılmasını (%formatı, tarih formatı, sayı formatı vs gibi) ve hatalı giriş yapılırsa ise 4. 5. 6. mesajları nasıl koyabiliriz.
mevcut kodları biraz kısaltmak lazım, zira koşul sayısı arttıkça çok uzun bir kod oluşacak.

Private Sub Worksheet_Calculate()
If [b17] > 20000 And [b15] <> "" And [b16] <> "" Then
ActiveSheet.Shapes("AutoShape 3").Visible = True
ActiveSheet.Shapes("AutoShape 3").Select
Selection.Characters.Text = Chr(10) & Chr(10) & "bre melun, bu prim ödemekle biter mi!? "
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
[b16] = ""
[b16].Activate
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b5:b10]) Is Nothing Then GoTo 10
If Not Intersect(Target, [b15:b16]) Is Nothing Then GoTo 20
Exit Sub
10 If [b11] > 1 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
Exit Sub
20 If [b15] > [b16] And [b15] <> "" And [b16] <> "" Then
ActiveSheet.Shapes("AutoShape 3").Visible = True
ActiveSheet.Shapes("AutoShape 3").Select
Selection.Characters.Text = Chr(10) & Chr(10) & "bre melun, ölüm tarihi doğum tarihinden küçük! "
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

 

[uzmanamele]

FermanBox'&#305;n isim babas&#305; syn Haluk beye te&#351;ekk&#252;r ederim.

 

[hsayar]

Sub Kosul1()
..........
End Sub

kolar&#305; yaz&#305;l&#305;p duruma g&#246;re
call kosul1 ile &#231;a&#287;r&#305;labilir

 

[uzmanamele]

bu soruyuda syn leventm yan&#305;tlayacak galiba, ba&#351;ka ilgilenen olmad&#305;.