VBA Activecell selecteren naar laatste cell met waarde

[gjanus]

Hallo,

Veel vba codes die in de buurt komen gevonden hier of met google maar lukt mij niet helemaal.
Ik wil via vba een selectie maken vanaf mijn actieve cel tot en met de laatste cel met waarde.

Beide kunnen een volgende keer anders zijn (data dumps uit systeem).


Kan iemand mij helpen?
Alvast bedankt.

 

[edmoor]

Dat gaat zo:

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Of als je dat bereik in een Range object wilt hebben:

Dim rng As Range
Set rng = Range(Selection, ActiveCell.SpecialCells(xlLastCell))
MsgBox rng.Address

 

[JEC.]

Als het alleen om de kolom gaat van de geselecteerde cel

Range(Selection, ActiveCell.End(xlDown)).Select

 

[gjanus]

Dat gaat zo:

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Of als je dat bereik in een Range object wilt hebben:

Dim rng As Range
Set rng = Range(Selection, ActiveCell.SpecialCells(xlLastCell))
MsgBox rng.Address

Dankje Edmoor, ik had wat specifieker moeten zijn.

In de data zitten onder het bereik veel lege special cells. Deze wil ik niet meenemen.
Over de data gooi ik subtotalen en door de range te pakken tot de laatste special cells komen er veel lege subtotaal regels.

 

[edmoor]

En daarom "zeuren" we dus altijd om een voorbeeld document.

 

[gjanus]

En daarom "zeuren" we dus altijd om een voorbeeld document.

Snap ik maar wat lastig na te bootsen - gaat om , het negeren van, special blancs (regels) onder de data en weet niet hoe ik die moet nabootsen in een voorbeeldbestandje.

 

[OctaFish]

Kan je er dan niet eerst een draaitabel van maken?

 

[sylvester-ponte]

ehh als je geen (voorbeeld)bestand met dat probleem hebt is er dan wel een probleem?

 

[VenA]

We zeuren ook altijd om niet onnodig te quoten. Als het een puur theoretische vraag is, om toch iets te maken van een slecht ontwerp dan zal je een voorbeeldje moeten kunnen plaatsen. De laatste ingevulde cel kan je vinden door zoiets te gebruiken.

cells(rows.count,1).end(xlup)

dus van beneden naar boven kijken.

 

[gjanus]

Excuses voor de onnodige quote - was uiteindelijk toch vrij makkelijk na te bootsten.

Zie ook tekst in excel bestandje. Ik maak gebruik van de standaard excel functies voor subtotalen en draaitabel, wilde alleen wat handelingen die repeterend zijn opnemen.


Handelingen uitgevoerd:

Range cel a4 select, ctrl+shift+end ingedrukt houden - excel selecteert nu de special blanks mee - ctrl shift pijltje omhoog - excel heeft nu de juiste range

Subtotaal op Project - som over de kolommen: kosten - kosten nog te gaan - eac (alle vinkjes uit bij selectievenster voor subtotalen)
Subtotaal op Contract - som over de kolommen: kosten - kosten nog te gaan - eac (alle vinkjes uit bij selectievenster voor subtotalen)

Kosten nog te gaan = handmatig te vullen kolom, tijdens overleg wil je als je deze vult de subtotalen graag even zien, vandaar deze handelingen.

Na overleg verwijder ik de subtotalen
Draaitabel overheen om verder te rapporteren (veelal draaitabel en draaigrafiek).

Onderaan staan nu lege rijen met special blancs.. Deze zijn klaarblijkelijk ontstaan door de subtotaal regels.

Deze handelingen (tot draaitabel) wilde ik graag opnemen in een macro.

Geprobeerd macro op te nemen:
Handmatig: begin range cel a4, ctrl+shift+end ingedrukt houden - excel selecteert nu de special blanks mee - ctrl shift pijltje omhoog - excel heeft nu de juiste range
handmatig gaat dus goed.

Voer je de opgenomen Macro (zie macro test) uit dan selecteert excel cell a1 tm e25
Wat ik graag zou willen is selectie a4 tm e17 (dit is alleen de range uit voorbeeldbestand - range is niet vast in werkelijk bestand)
Belangrijk om eventueel te weten - in de toekomst kunnen er kolommen en rijen bijkomen - liever niet een vaste kolom range in macro, gewoon selectie tm laatste cel met value


op blad 2 staan zelfde gegevens zonder deze tekst ernaast

Een oplossing is de range dan eerst weer naar tabel te converteren maar niet helemaal wenselijk omdat deze dan nogal knoeit met (voorwaardelijke) opmaak.

Wederom bedankt en excuses dat ik niet eerder testte of de special blanks rijen makkelijk na te bootsen waren.

 

[gjanus]

Zou iemand het nog willen proberen met mijn laatste uitleg? Volgens mij gebruik ik vrij standaard excelopties en ontstaan deze blancs alsnog.

 

[LucHeyndrickx]

Probeer deze beide macro's eens uit:

Sub testSubTotaal()
    Range("A4").CurrentRegion.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=False
End Sub

Sub RemoveSubTotaal()
    Range("A4").CurrentRegion.RemoveSubtotal
End Sub

 

[gjanus]

Dankje LuckyHeyndrickx.

Werkt prima in het test bestandje, net niet helemaal lekker in het werkelijk bestand. Dit omdat de subtotalen niet op elke kolom hoeft en twee maal uitgevoerd moet worden.
Dit heb ik echter al reeds opgenomen in een macro.

Waar ik alleen tegenaanloop zijn de blancs onderop. Die moet hij niet meepakken.