'Alttaki kod eger A sütunu bossa son satir olarak 2 verir, 1 tane veri olsa dahi son satiri son dolunun bir alt satir no verir-----------------
Kod:
If WorksheetFunction.CountA(.Range("A2:A" & Rows.Count)) = 0 Then
SonSatir = .Range("A" & Rows.Count).End(3).Row
ElseIf WorksheetFunction.CountA(.Range("A2:A" & Rows.Count)) > 0 Then
SonSatir = .Range("A" & Rows.Count).End(3).Row + 1
End If
Kod:
Bu aşağıdaki kod yapısı ile bir çözüm üreterek elde etsek aralarında ne gibi bir fark olur. BU kodda aşağıdan yukarı ilk dolunun altına gidiyor. Bu bir yapı ve sonunda bunu anladım ama sizin koddaki end(3) bölümünün işleyişini çözemedim.
Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(1, 0).Select