Karakter Sayısına Göre Koşul Belirtme

[ywzyilmaz]

Merhaba

Kullandığım bir makroda A2 hücresindeki karakter sayısına göre IF koşulu yapmak istiyorum. Karakter sayısı 8'e eşitse devam et değilse döngüden çık demek demek istiyorum. A2 hücresindeki karakter sayısını =UZUNLUK(A2) formülü ile J2 hücresine yazdırdım. Sonra aşağıdaki kodlarla yapmaya çalıştım. Hücre içeriği 8 karakter olsa da olmasa da kodun else kısmını çalıştırıyor. Sanırım koşulu doğru belirtemedim. Yardımcı olabilecek var mı? Yada farklı bir makro ile daha basit bir yöntem önerisi olan var mı?

Sub kontrolkar()
Dim bar As String
bar = Sayfa1.Range("J2")
If bar = "8" Then
Call Module2.kontroldurum
Else
Range("A2").Select
End If
End Sub

 

[Muzaffer Ali]

Merhaba.

Sub kontrolkar()
    If Len(Sayfa1.Range("A2")) = 8 Then
        Range("A2").Select
    Else
        Call Module2.kontroldurum
    End If
End Sub

 

[ywzyilmaz]

Merhaba.

Sub kontrolkar()
    If Len(Sayfa1.Range("A2")) = 8 Then
        Range("A2").Select
    Else
        Call Module2.kontroldurum
    End If
End Sub

Çok teşekkürler.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.