Makro IF LEN makro sorunu

[tchsyn]

merhaba aşağıdaki makromda IF len kullanarak 22 karakterden küçük isede doğru yaz dedirtmek istiyorum ama başaramıyorum yardım edermısınız..

For aaa = StnSon + 3 To StnSon + 7 Step 2
For a6 = StrKopruNo + 1 To DipStr
Set AraBul = Range(s2.Cells(StrKopruNo2 + 1, StnSon + 3), s2.Cells(DipStr2, StnSon2 + 3)).Find(s1.Cells(a6, aaa), , , xlWhole)
If Not AraBul Is Nothing Then
StrAraBul = AraBul.Row
StnAraBul = AraBul.Column
s1.Cells(a6, aaa + 1) = "Doğru"
Else
If Len(s1.Cells(a6, aaa + 1)) > 22 Then
ElseIf Len(s1.Cells(a6, aaa + 1)) < 22 Then
s1.Cells(a6, aaa + 1) = "hatalı"
s1.Cells(a6, aaa + 1).Interior.ColorIndex = 8 'Açık mavi
End If

 

[turk-x]

Merhaba;
For aaa Değerinizin 1 ve For a6 değerinizin 1 olduğunu varsayalım. Yani A1 Hücresindeki Değerin uzunluk kontrolü için aşağıdaki kod işinizi görür. Gerçi Sizin kodunuzda hemen hemen aynı ...

Sub Test()
MsgBox Cells(1, 1).Value
If Len(Cells(1, 1)) > 22 Then Cells(1, 1 + 1) = "Doğru"
If Len(Cells(1, 1)) < 22 Then Cells(1, 1 + 1) = "Hatalı": Cells(1, 1 + 1).Interior.ColorIndex = 8 'Açık mavi

End Sub

Kodda sorun yaşarsanız örnek dosya gönderin yardımcı olmaya çalışalım.