Msgbox içinde IF sorgusu için yardım

[andruil]

Merhaba Arkadaşlar,

Msgbox kodu yazmak istiyorum fakat msgbox( ) içerisinde if kodu kullanmak istiyorum.

Msgbox uyarısı ekrana geleceği zaman;
A1 hücresi dolu ise A1 değerini, boş ise B1 değerini göstersin..

Basit olarak yazıyorum, şart düzenlemesini kendim yapıcam zaten.

Yardımınız için teşekkür ederim şimdiden.

 

[vardar07]

Deneyiniz.

If Cells(1, "A") <> "" Then
MsgBox (Cells(1, "A"))
Else
MsgBox (Cells(1, "B"))
End If

 

[andruil]

Deneyiniz.

If Cells(1, "A") <> "" Then
MsgBox (Cells(1, "A"))
Else
MsgBox (Cells(1, "B"))
End If

Yazacağım kodda şartların olasılığı 2'den fazla. Önce if kodu kullanırsam sanırım her şart için ayrı kod yazmam gerekir.

A ve B olarak basitleştirmek için 2 değişken yazdım kodun mantığını anlamak için fakat benim excelimde 4 değişken var ve bu değişkenlerin farklı kombinasyonlarına göre uyarı vermesi gerekiyor.

Önce if kodu yazarsam 2 farklı uyarı verir ama benim kombinasyonum daha fazla.

Örneğin;

A=1 ve D=1 ise
A1 değerini, B1 değerini, C1 değerini ve D1 değerini,

A=1 ve D=0 ise
A1 değerini, B1 değerini ve C1 değerini,

A=2 ve D=1 ise
A1 değerini, B1 değerini ve D1 değerini,

A=2 ve D=0 ise
A1 değerini, B1 değerini göstericek.

4 farklı msgbox yazmak yerine şartlı bir şekilde tek msgbox yazılabilir mi?

 

[vardar07]

En basit şekliyle .

If Cells(1, "A") = 1 And Cells(1, "D") = 1 Then _
MsgBox ("A = " & Cells(1, "A") & vbLf & "B = " & Cells(1, "B") & vbLf & "C = " & Cells(1, "C") & vbLf & "D = " & Cells(1, "D"))
If Cells(1, "A") = 1 And Cells(1, "D") = 0 Then _
MsgBox ("A = " & Cells(1, "A") & vbLf & "B = " & Cells(1, "B") & vbLf & "C = " & Cells(1, "C"))
If Cells(1, "A") = 2 And Cells(1, "D") = 1 Then _
MsgBox ("A = " & Cells(1, "A") & vbLf & "B = " & Cells(1, "B") & vbLf & "D = " & Cells(1, "D"))
If Cells(1, "A") = 2 And Cells(1, "D") = 0 Then _
MsgBox ("A = " & Cells(1, "A") & vbLf & "B = " & Cells(1, "B"))