satırları say alta yaz

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar;
Ekli dosyamda satırları sayıp alta yazmasını istiyorum, herkese selamlar.

 

[Trilenium]

For i = 3 To [C65536].End(3).Row
If Len(Range("C" & i)) > 0 Then
End If
Next i

Range("A" & son + 2) = "//////////////////////////////// Giden Evraka Listesinin " & i - 3 _
& "(" & YAZ(i - 3) & ") Adet olduğu tasdik olunur. ////////////////////////////////"

Oldugu yere bu sekidle düzenleyiniz

 

[dEdE]

Merhaba
Kodunuzdaki

 sira = Range("A" & son)

satırını

 sira = son-2

şeklinde değiştirmeniz yeterli olacaktır.

 

[Hacı Bayram ÖZKAN]

Sayın Trilenium ve dede ikinizide teşekkürler, çalıştı dua ile kalın eksik olmayın.