www.Cursuri-Excel.ro     www.Cursuri-Access.ro     www.Cursuri-Powerpoint.ro     www.Cursuri-Outlook.ro     www.Cursuri-Word.ro     www.CursuriProject.ro     www.codexpert.ro

aflare ultima coloana a unui tabel

aflare ultima coloana a unui tabel

Mesajde 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.
RAMBO
 
Mesaje: 412
Membru din: Mie Noi 25, 2009 2:17 pm
Localitate: Pitesti

Re: aflare ultima coloana a unui tabel

Mesajde 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
IPP
Moderator
Moderator
 
Mesaje: 3753
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: aflare ultima coloana a unui tabel

Mesajde RAMBO » Lun Iun 18, 2018 12:44 pm

Multumesc foarte mult
RAMBO
 
Mesaje: 412
Membru din: Mie Noi 25, 2009 2:17 pm
Localitate: Pitesti


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

Cine este conectat

Utilizatorii ce navighează pe acest forum: Niciun utilizator înregistrat şi 5 vizitatori

Centrul de training si consultanta Dr. Excel activeaza de peste 15 ani pe piata serviciilor de instruire si certificare IT din Romania.

Contact


© 2018 Dr. Excel - Business Intelligence School - Citeste termeni si conditii

cron