Birden fazla "eğer" fonksiyonu

[girdap]

Sayın Forum Üyeleri,
İyi akşamlar.

Benim çözmek istediğim konu Makro yazımlarında "if" fonksiyonlarının kullanımı ile ilgili.
Birden fazla if fonksiyonunu aynı yordam altında nasıl kodlarız, bir örnekle anlatabilirmisiniz?

Saygılarımla

 

[Orion1]

Aşağıdaki kodu deneyiniz.

Sub ifkullanımi()
If Range("A1").Value = 1 Then
    MsgBox "A1 = 1"
    ElseIf Range("A1").Value = 2 Then
    MsgBox "A1 = 2"
    ElseIf Range("A1").Value > 2 Then
    MsgBox "A1 > 2"
    ElseIf Range("A1").Value = "" Then
    MsgBox "A1 = Boş"
    Else
    MsgBox "A1 < 0"
End If
End Sub

 

[Necdet]

Bir örnekte benden.

Public Sub If_KullanimDevam()
If [A1] < 1 Then
    MsgBox "0 ve Küçük Değer"
ElseIf [A1] > 0 And [A1] < 10 Then
    MsgBox "0-9 Arasında"
ElseIf [A1] > 9 And [A1] < 20 Then
    MsgBox "10-19 Arasında"
ElseIf [A1] > 19 And [A1] < 30 Then
    MsgBox "20-29 Arasında"
Else
    MsgBox "30 ve Üzeri"
End If
End Sub

 

[harpoon_1903]

Merhaba,
Aşağıdaki kod ile sadece A sütununda mükerrer kayıt uyarısı alabiliyoruz. Aynı anda hem A hem B hem de C sütunu için bu kodu nasıl kullanabiliriz. Şimdiden teşekkürler...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [A1:A500]) Is Nothing Then Exit Sub
SAY = WorksheetFunction.CountIf([A1:A65536], Target)
If SAY > 1 Then
For Each ALAN In Range("A1:A" & [A65536].End(3).Row)
If ALAN = Target Then
If ADRES = "" Then
ADRES = ALAN.Address(False, False)
Else: ADRES = ADRES & " - " & ALAN.Address(False, False)
End If: End If: Next
ONAY = MsgBox("Bu Kayıt Daha Önceden Aşağıdaki Hücrelerde Girilmiştir !" & Chr(10) & Chr(10) & ADRES & Chr(10) & Chr(10) & "İşleme Devam Etmek İstiyor musunuz?", vbYesNo + vbCritical, "DİKKAT !")
If ONAY = vbNo Then
Target = ""
Target.Select
Exit Sub: End If
Target.Offset(1, 0).Select
End If: End Sub

 

[harpoon_1903]

Yeni olduğum belli oluyordur...

Nasıl yapılacağını buldum. Teşekkürler. (Yukarıdaki kodu aldığım kaynak isme de teşekkür ediyorum. Stresli bir dönemden geçiyorum, kodu alır almaz teşekkür etmemiştim şimdi de ismini bulamıyorum. Kusura bakmayın lütfen. Allah hepinizden razı olsun)...