yok ise makro çalışssın

[bebar]

Merhaba,

range("A3:A50") sütunu içinde "a" değerini arasın yok ise makro1 çalışsın. Yazdığımın kod karşılığı nedir??
Yardımcı olursanız memnun olurum.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodlar ile yapabilirsiniz.

Sub test()
    Dim Alan As Range
    Dim A_Var As Boolean
    For Each Alan In Range("A3:A50")
        If Alan.Text = "a" Then
            A_Var = True
            Exit For
        End If
    Next
    If A_Var Then
        Makro1
    Else
        MsgBox "'A' yok."
    End If
End Sub

 

[gicimi]

Merhaba.

Aşağıdaki kodlar ile yapabilirsiniz.

Sub test()
    Dim Alan As Range
    Dim A_Var As Boolean
    For Each Alan In Range("A3:A50")
        If Alan.Text = "a" Then
            A_Var = True
            Exit For
        End If
    Next
    If A_Var Then
        Makro1
    Else
        MsgBox "'A' yok."
    End If
End Sub

@dalgalikur hocam merhaba;
Makro çalışması yerine B1 hücresine yok eğer var ise C1 hücresine var için kod nasıl güncellenmeli yardımcı olabilir misiniz.

 

[Muzaffer Ali]

Aşağıdaki kısımda değişiklik yapacaksınız.

    If A_Var Then
        range("c1").value="var"
    Else
        range("b1").value="yok."
    End If

 

[bebar]

Hocam teşekkür ederim çok faydası oldu

 

[gicimi]

@dalgalikur hocam teşekkür ederim.

 

[gicimi]

@dalgalikur hocam affınıza sığınarak kaç adet “a”harfinin olduğunu saydırmak istersem nasıl bir değişiklik yapmak gerekiyor.

 

[Muzaffer Ali]

Aşağıdaki gibi olabilir.

Sub test()
    Dim Adet As Integer
    Dim Aralık As String
    Dim Aranan As String
    Aranan = "a"
    Aralık = "A3:A50"
    Adet = WorksheetFunction.CountIf(Range(Aralık), Aranan)
    MsgBox Aralık & " hücre aralığında " & Adet & " adet '" & Aranan & "' var."
End Sub

 

[gicimi]

@dalgalikur çok teşekkür ederim.