Son satır bul yardım

[acetinnster]

Arkadaşlar ek te dosya hakkında yardım edebilirmisiniz.Açıklama içinde mevcut

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz? T2 hücresine kopyalar. Kendinize uyarlayınız.

Sub aa()

    Dim i   As Long, _
        j   As Long
    
    i = Cells(Rows.Count, "C").End(3).Row
    j = Evaluate("=COUNTIF(C2:C" & i & ","">"""""")")
    Range("A2:l" & j).Copy Range("T2")
    
End Sub

 

[acetinnster]

Sayın Necdet hocam çok sağolun yardımınız için


Dim i As Long, _
j As Long

i = Cells(Rows.Count, "C").End(3).Row
j = Evaluate("=COUNTIF(C2:C" & i & ","">"""""")")
Range("A2:l" & j)

.Copy Range("T2")

bu kısmı sildim ihtiyacım yok ancak 1 satır eksik kopyalamakta çözümü var mı dır acaba

 

[Ömer BARAN]

Merhaba.

Necdet Bey şu an çevrimiçi değil.

j = Evaluate("=COUNTIF(C2:C" & i - 1 & ","">"""""")")
.

 

[acetinnster]

Ömer hocam siz de çok sağolun ancak herhangi bir değişiklik olmadi

 

[acetinnster]

Arkadaşlar çözüldü herkese teşekkür ederim

 

[Korhan Ayhan]

Alternatif;

Sub Kopyala()
    X = Evaluate("LOOKUP(2,1/((C2:C1000<>"""")*(C2:C1000<>"" "")),ROW(C2:C1000))")
    Range("A2:L" & X).Copy
End Sub