aflare ultima coloana a unui tabel
aflare ultima coloana a unui tabel
Buna ziua.
Am un tabel obtinut in urma unui import dintr-un fisier text de tip prn. Tabelul are un numar de coloane variabil (randurile nu reprezinta o problema). Ce cod ar trebui folosit pentru a afla adresa ultimei coloane; de ex daca tabelul este in A1:D40, atunci codul sa returneze D.
In fapt (ca sa nu o mai iau pe ocolite), ceea ce doresc este sa copiez datele din ultima coloana a tabelului (indiferent care o fi ea) de la randul 16 in jos (indiferent cat se intinde in jos).
Multumesc.
Am un tabel obtinut in urma unui import dintr-un fisier text de tip prn. Tabelul are un numar de coloane variabil (randurile nu reprezinta o problema). Ce cod ar trebui folosit pentru a afla adresa ultimei coloane; de ex daca tabelul este in A1:D40, atunci codul sa returneze D.
In fapt (ca sa nu o mai iau pe ocolite), ceea ce doresc este sa copiez datele din ultima coloana a tabelului (indiferent care o fi ea) de la randul 16 in jos (indiferent cat se intinde in jos).
Multumesc.
Re: aflare ultima coloana a unui tabel
Buna ziua
Daca vorbim de informatie stocata intr-un table atunci se poate incerca un cod de genul:
IP
Daca vorbim de informatie stocata intr-un table atunci se poate incerca un cod de genul:
Cod: Selectaţi tot
Sub CopyLast()
'IPP - 13.06.2018
Dim lTbClm As Integer
lTbClm = ActiveSheet.ListObjects("Table1").ListColumns.Count
ActiveSheet.ListObjects("Table1").DataBodyRange(16, lTbClm).Select
Range(Selection, Selection.End(xlDown)).Copy
End Sub
Re: aflare ultima coloana a unui tabel
Multumesc foarte mult