aflare ultima coloana a unui tabel

RAMBO
Mesaje: 414
Membru din: Mie Noi 25, 2009 2:17 pm
Localitate: Pitesti

aflare ultima coloana a unui tabel

Mesaj de RAMBO » Mie Iun 13, 2018 9:49 am

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.

IPP
Moderator
Moderator
Mesaje: 3770
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: aflare ultima coloana a unui tabel

Mesaj de IPP » Mie Iun 13, 2018 1:08 pm

Buna ziua

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
IP

RAMBO
Mesaje: 414
Membru din: Mie Noi 25, 2009 2:17 pm
Localitate: Pitesti

Re: aflare ultima coloana a unui tabel

Mesaj de RAMBO » Lun Iun 18, 2018 12:44 pm

Multumesc foarte mult

Scrie răspuns

Înapoi la “Visual Basic for Application (VBA) cu Excel - Intrebari tehnice”