Birden fazla satır için yapsın

[search77]

Merhaba Arkadaşlar,

Benim bir excel tablom var, orada A kolunundaki karakterlerin adedini B kolonuna yazdırmak istiyorum , aşağıdaki macroyu yazdım ama sadece tek bir satıra yazıyor, ben tüm A kolonunu görüp hepsinin karşılığını B kolonuna yazmasını istiyorum, aşağıdaki macroyu nasıl değiştirmeliyim

Şimdiden yardımcı olacaklara çok çok tşk ederim

Sub deneme()
say = Range("A1").Value
If Len(say) < 16 Then
Range("B1").Value = "karakter az"
End If
End Sub

 

[askm]

Sub deneme()
Dim son as long
son=Range("A"&rows.count).end.rows
for i=1 to son
say = Range("A" & i).Value
If Len(say) < 16 Then
Range("B"&i).Value = "karakter az"
End If
next i
End Sub

 

[search77]

sayın askm,
Elinize emeğinize sağlık, 10 numara olmuş
çok çok tşk ler, saygılar