[VBA/Excel 2003] lege regels niet exporteren

[Gulf_5]

ik heb een Excel (2003) file met gegevens, waar na een aantal macro-bewerkingen ongeveer 150 regels met data overblijven. De rest is gewoon leeg.

Na al diverse dingen te hebben geprobeerd:

• copy/paste in een nieuwe sheet
• alle onderliggende regels, en naastliggende kolommen verwijderen
• alle onderliggende regels, en naastliggende kolommen verbergen
• copy/paste in een nieuwe file
• export als csv
• export als txt, comma-delimited, tab-delimited
• zoeken op GoT naar mogelijke andere oplossingen

kom ik er niet meer uit.

Steeds na het exporteren naar txt (wat uiteindelijk de bedoeling is) heb ik 150 regels data, tab-gescheiden, maar ook nog 5 kolommen leeg, en afhankelijk van wat ik probeer tussen de 1000 en 65000 LEGE REGELS, die ook worden geexporteerd. (na import in bv Access heb je dan dus evenzoveel lege regels in je db staan )

Wie kan mij hiermee helpen. tnx im voraus

[onkl]

Kijk eens wat je usedrange is.

code:

sub test
msgbox activeworksheet.usedrange.address
end sub

Hier een topic in experts exchange wat zijdelings gerelateerd lijkt.

[Gulf_5]

Visual Basic:

sub test()
msgbox activesheet.usedrange.address
end sub

geeft aan $A$1:$M$1000
Dit zou moeten zijn ongeveer (variabel) rond de $A$1 : $M 150-200.
Is er een manier om makkelijk te ontdekken wat de laatste gevulde cel in een kolom is ?
(ik kom niet verder dan een Do until...Loop icm een IF activecell.value="" o.i.d.)

[Gulf_5]

ok, ik heb gevonden, op experts exchange (thanks @ onkl)

Visual Basic:

lastrow = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LastCol = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

nu moet ik de uitkomst hiervan nog zien te gebruiken... is er een code als SetRange o.i.d. F1 in VBA helpt niet echt

[Bud_s]

Dit zou evt. kunnen mwt

code:

SheetName = ActiveSheet.Name
LaatsteRij = Sheets(SheetName).Range("a65536").End(xlUp).Row 
' bovenstaande geeft de laatste rij waarvoor kolom a gevuld is

For Rij = EersteRij To LaatsteRij

[Gulf_5]

FYI nog even mijn oplossing voor het probleem, thanks for your help !

Visual Basic:

Range("A1").Select
lastrow = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
lastcol = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    

Range("a1").Select
ActiveCell.Offset(lastrow - 1, lastcol - 1).Select

adres = ActiveCell.Address
Range("a1", adres).Select
Selection.Copy
'en lekker plakken in een nieuwe sheetje doen :-)