MsgBox koşul uymadığı halde çalışıyor

[acemituncay]

A125,A126,A127 HÜCRELERİNDEKİ DEĞERLER SIFIR OLDUĞU HALDE MESAJ KUTUSU GELİYOR. BEN SIFIRDAN BÜYÜK OLDUĞU ZAMAN MESAJ GELSİN İSTİYORUM ACABA YANLIŞMI YAPTIM


Sub AraclaraAlınanYakıtlarCızelgesınıTemızler()
ActiveSheet.Unprotect 789123
Const MsgText = "Dikkat !!! Daha Önceden Girdiğiniz Verilerden Araçlara Alınan Yakıtlar ve Araçların Başlangıç Kilometreleri Silinecektir."
Const MsgHdr = "ÇİZELGEYİ TEMİZLEMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ ?"
If Range("A125") > 0 Or Range("A126") > 0 Or Range("A127") > 0 Then
If MsgBox(MsgText, vbYesNo Or vbExclamation, MsgHdr) = vbYes Then
ActiveSheet.Range("$F$5:$F$135").AutoFilter Field:=1
Range("F6:H105").ClearContents
Range("J6:J105").ClearContents
Range("K6:K105").Copy
Range("J6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("K6:K105").ClearContents
Range("B107:K111").ClearContents
Range("B113:K117").ClearContents
Range("B119:K123").ClearContents
ActiveWindow.SmallScroll Down:=-132
Range("F6").Select
End If
End If
ActiveSheet.Protect 789123
End Sub

 

[Zeki Gürsoy]

Merhaba,

Eğer bu üç hücrenin değeri "0" için bakılacaksa "Or" yerine "And" operatörünü kullanın.

 

[acemituncay]

Bir türlü çözemedim

a125,a126,a127 hücrelerinden birisinin değeri bile sıfırdan büyükse mesaj gelsin değilse mesaj gelmeden işlemler gerçekleşsin istiyorum ama bahse konu hücrelerin değerleri sıfır olduğu halde mesaj geliyor.

Sub AraclaraAlınanYakıtlarCızelgesınıTemızler()
ActiveSheet.Unprotect 789123
Const MsgText = "Dikkat !!! Daha Önceden Girdiğiniz Verilerden Araçlara Alınan Yakıtlar ve Araçların Başlangıç Kilometreleri Silinecektir."
Const MsgHdr = "ÇİZELGEYİ TEMİZLEMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ ?"
If Range("A125") > 0 Or Range("A126") > 0 Or Range("A127") > 0 Then
If MsgBox(MsgText, vbYesNo Or vbExclamation, MsgHdr) = vbYes Then
ActiveSheet.Range("$F$5:$F$135").AutoFilter Field:=1
Range("F6:H105").ClearContents
Range("J6:J105").ClearContents
Range("K6:K105").Copy
Range("J6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("K6:K105").ClearContents
Range("B107:K111").ClearContents
Range("B113:K117").ClearContents
Range("B119:K123").ClearContents
ActiveWindow.SmallScroll Down:=-132
Range("F6").Select
End If
End If
ActiveSheet.Protect 789123
End Sub

 

[acemituncay]

Merhaba,

Eğer bu üç hücrenin değeri "0" için bakılacaksa "Or" yerine "And" operatörünü kullanın.

Hocam olmuyor nasıl yapacağım sorunu aşağıda açıkladım

a125,a126,a127 hücrelerinden birisinin değeri bile sıfırdan büyükse mesaj gelsin değilse mesaj gelmeden işlemler gerçekleşsin istiyorum ama bahse konu hücrelerin değerleri sıfır olduğu halde mesaj geliyor.

Sub AraclaraAlınanYakıtlarCızelgesınıTemızler()
ActiveSheet.Unprotect 789123
Const MsgText = "Dikkat !!! Daha Önceden Girdiğiniz Verilerden Araçlara Alınan Yakıtlar ve Araçların Başlangıç Kilometreleri Silinecektir."
Const MsgHdr = "ÇİZELGEYİ TEMİZLEMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ ?"
If Range("A125") > 0 Or Range("A126") > 0 Or Range("A127") > 0 Then
If MsgBox(MsgText, vbYesNo Or vbExclamation, MsgHdr) = vbYes Then
ActiveSheet.Range("$F$5:$F$135").AutoFilter Field:=1
Range("F6:H105").ClearContents
Range("J6:J105").ClearContents
Range("K6:K105").Copy
Range("J6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("K6:K105").ClearContents
Range("B107:K111").ClearContents
Range("B113:K117").ClearContents
Range("B119:K123").ClearContents
ActiveWindow.SmallScroll Down:=-132
Range("F6").Select
End If
End If
ActiveSheet.Protect 789123
End Sub

 

[leumruk]

Kodunuzda üç msj var? Hangi mesaj geliyor? Sanırım kod diziminizde bir hata var.

 

[acemituncay]

Bahse konu üç hücreden biri bile sıfırdan büyükse mesaj gelsin

Söz konusu üç hücreden birisinin bile değeri sıfırdan büyükse mesaj gelsin istiyorum ancak hücre değerleri sıfır olduğu halde mesaj geliyor

 

[leumruk]

Söz konusu üç hücreden birisinin bile değeri sıfırdan büyükse mesaj gelsin istiyorum ancak hücre değerleri sıfır olduğu halde mesaj geliyor

Kodlarınızı boş bir excel dosyasına kopyaladım ve denedim. Bir sorun görünmüyor. Blirttiğiniz hücreleri boş bıraktığımda mesaj gelmedi. Herhangi birine 5 yazdım ve mesajı aldım.
Eğer sakıncası yoksa dosyanızdan bakmamız daha uygun olacak.