MsgBox hk.

[ocamsul]

Arkadaşlar herkese iyi akşamlar. benim yapmak istediğim şu ki;

A1 6.500,00 B1 6.499,99

bu sütunlarda A1 den b1 çıkarılıp MsgBox da sonucu verilecek ve kalan değer artı ise MEVCUTTUR eksi ise YOKTUR sonucunu MsgBox da verecek.

Yardımlarınızı bekliyorum dostlar.

 

[alpi]

Aşağıdaki kod işinizi görür umarım

Sub Deneme()
Dim i
Dim Mesaj As String
i = Range("A1") - Range("B1")
Select Case i
    Case Is > 0
        Mesaj = "Mevcuttur."
    Case Is < 0
        Mesaj = "Mevcut Değildir"
    Case Is = 0
        Mesaj = "Sonuç Sıfır"
End Select
MsgBox "Sonuç: " & i & vbLf & Mesaj
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki koduda deneyebilirsiniz.

Sub mesaj()
MsgBox IIf(([a1] - [b1]) > 0, "Mevcuttur", "Yoktur")
End Sub

 

[ocamsul]

Sn: Alpi ve leventm ilginize ve yardımlarınıza teşekkür ederim.