sütunda kaç karakter olduğunu kontrol etmek

[burhancavus61]

bir makrom var kullanmadan önce bazı sütunlarda örneğin B sütununda değer varsa 2 karakterden ne az ne fazla olacak şekilde kontroller yapmak istiyorum. örnek makroya göre ben kriterleri artıracağım yardımcı olurmusunuz.

 

[Orion1]

Buyurun.
Doğru cevap 3# nolu tagta doğru cevaptır.

 

[Orion1]

Buyurun.

Sub sorgu()
Dim sorgu As Variant
If Len(Range("B1").Value) <> 2 Then MsgBox "B1 hücresindeki karakter 2 değil."

End Sub

 

[burhancavus61]

hocam eksik anlattım sanırım. bende hazır bir tablo var ve bilgi girilmiş olarak geliyor tablonun B sütununda değer var ise 2 karakterden ne az olacak nede fazla değer uygun değilse uyarı verip makroyu sonlandırmalı. değerleri girenler farklı kişiler hatalı girişleri kullanacağım makrodan önce tespit etmek istiyorum.

 

[burhancavus61]

sanırım ikinci yazdığınız kod oldu

 

[burhancavus61]

sütunda nasıl yapacağım kontrolü B2 sütunundan aşağı doğru

 

[Orion1]

sütunda nasıl yapacağım kontrolü B2 sütunundan aşağı doğru

Buyurun.

Sub sorgu()
Dim sorgu As Variant, i As Long, sonsat As Long
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To sonsat
If Len(Range("B" & i).Value) <> 2 Then MsgBox "B:" & i & " hücresindeki karakter 2 değil."
Next
End Sub