KoŞullu Mesaj Macrosu

[taseraydin]

DeĞerlİ Üstad ArkadaŞlar,

* A1 HÜcresİ 2 Den KÜÇÜkse Macro ÇaliŞtirmak İstendİĞİnde "makbuz Tarİhİnİ Gİrİnİz" Dİye Mesaj Alinacak Ve Makro ÇaliŞmayacak Bİr Macro Mesaj Koda Ve
* Evet Hayir SeÇeneklerİ Sonabİlecek Bİr Mesaj Macrosu Na İhtİyacim Var

 

[Seyit Tiken]

1.Sorunun Cevabı :

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] < 2 Then MsgBox "Makbuz Tarihi Giriniz"
End Sub

2.Sorunun Cevabı :

Sub Düğme1_Tıklat()
s = MsgBox("Evet ise 1 değilse 2 yazılır", vbYesNo)
If s = vbYes Then MsgBox "1"
If s = vbNo Then MsgBox "2"
End Sub

 

[kulomer46]

aşağıdaki kodları bir modüle eklerseniz hazır fonksiyon olarak kullanabilirsiniz..
Function renk(sayi)
If sayi < 0 Then
renk = "YANLI&#350;"
ElseIf sayi <= 24 Then
renk = "ETK&#304;S&#304;Z"
ElseIf sayi <= 44 Then
renk = "GE&#199;MEZ"
ElseIf sayi <= 54 Then
renk = "GE&#199;ER"
ElseIf sayi <= 69 Then
renk = "ORTA"
ElseIf sayi <= 84 Then
renk = "&#304;Y&#304;"
ElseIf sayi <= 100 Then
renk = "PEK&#304;Y&#304;"
Else
renk = "YANLI&#350;"
End If
End Function

Kusura bakmay&#305;n ba&#351;ka sorunun cevab&#305;n&#305; eklemi&#351;im..

 

[taseraydin]

&#214;NCEL&#304;KLE &#304;LG&#304;N&#304;ZE TE&#350;EK&#220;R EDER&#304;M,,

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] < 2 Then MsgBox "Makbuz Tarihi Giriniz"
End Sub

A1 H&#220;CRES&#304; 2 DEN K&#220;&#199;&#220;KSE &#199;ALI&#350;TIRLMAK &#304;STENEN MACRO &#304;PTAL ED&#304;L&#304;P &#304;&#350;LEM SONLANDIRILACAK

YUKARIDAK&#304; KODDA MSEAJ GEL&#304;YOAR FAKAT TAMAM DEN&#304;LD&#304;&#286;&#304;NDE &#304;&#350;ELM DEVAM ED&#304;YOR &#304;&#350;LEM&#304;N SONLANDIRILMASI GEREK&#304;YOR

 

[taseraydin]

dosya ile ilgili as&#305;l macroyu a&#351;a&#287;&#305;da belirtiyorum Mesajlardan dolay&#305; macro ar&#305;za verdi

Sub MAKROADI()
If [F3] = "" Then MsgBox "Avukat Ad&#305;n&#305; Giriniz"
Exit Sub
End If
Next
If [L1] < 2 Then MsgBox "Makbuz Tarihi Giriniz"
Exit Sub
End If
Next
If [R3] = "BEL1" Then Call BEL1
If [R3] = "BEL2" Then Call BEL2
If [R3] = "BEL3" Then Call BEL3
If [R3] = "BEL4" Then Call BEL4
If [R3] = "BEL5" Then Call BEL5
If [R3] = "BEL6" Then Call BEL6
If [R3] = "BEL7" Then Call BEL7
If [R3] = "BEL8" Then Call BEL8
If [R3] = "BEL9" Then Call BEL9
If [R3] = "BEL10" Then Call BEL10

End Sub

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[taseraydin]

TeŞekÜr

GÖndermİŞ OlduĞunuz Örnek Dosya Fazlasiyla Problemİmİ ÇÖzdÜ
İlgİnİze İÇten TeŞekÜr Ederİm Elİnİze SaĞlik

 

[baydeniro]

Sayın Cost Control paylaşım için teşekkürler.

 

[asilacar]

Benim de bir sorum var ben bir &#305;nput box olu&#351;turdum ve buna DDMMYYYY &#351;eklinde tarih girilmesi gerekiyor &#351;ayet bu tarih ge&#231;erli de&#287;ilse mesela DD>31 MM>12 vs ko&#351;ullar alt&#305;nda "L&#252;tfen ge&#231;erli bir tarih giriniz" uyar&#305;s&#305; &#231;&#305;ks&#305;n istiyorum nas&#305;l bir kod yazmam m&#252;nasip olur acaba?