Eerste lege cel in A:A; daarboven verwijderen
Koemi
Kolom A:A is gevuld met data tot waarde A20. Daarna zijn de cellen leeg.
Nu wil ik graag dat dmv VBA kolom A:A wordt gezocht naar de eerste lege cel
en dat de kolom naar links wordt verwijdert van de top (A1) Tot de gevonden
waarde (A21). Dus alles BOVEN de cel A21 (in dit specifieke geval).
Waarschijnlijk iets met 'ActiveSheet.UsedRange' en
'Cells.SpecialCells(xlLastCell).address'
Lekker kort door de bocht.
Wie kan mij helpen?
Groet,
Koemi
]-[oRus
Als er na A20 niets meer komt, waarom moeten dan alleen de cellen
erboven worden verwijderd (met een d) en niet gewoon de gehele kolom?
Je hoeft dan ook niet te zoeken naar de laatste cel als toch alles
wordt verwijderd.
--
Vriendelijke groeten,
]-[oRus
www.smallsystemservice.nl
Koemi
> erboven worden verwijderd (met een d) en niet gewoon de gehele kolom?
> Je hoeft dan ook niet te zoeken naar de laatste cel als toch alles
> wordt verwijderd.
>
> --
>
> Vriendelijke groeten,
>
> ]-[oRus
]-[oRus,
dat is een handigheidje en te lang om compleet uit te leggen,maar neem van
mij aan dat het nodig is.
Het komt er op neer dat in de laatste regel een foute berekening
tevoorschijn komt (in dit geval in C21). Door nu de kolom A1:A20 te
verwijderen, wordt de data 1 plek naar links verschoven, behalve de foute
berekening. Uiteindelijk kan ik een SOM-berekening maken van de juiste
waarde, zonder die foute berekening (want deze staat 1 kolom naar rechts).
Let wel: in dit voorbeeld is het A1:A20, maar het kan net zo goed een geheel
andere waarde zijn; A1:200 of A:154 enz.
]-[oRus
>> Als er na A20 niets meer komt, waarom moeten dan alleen de cellen
Dan is het toch handiger om in die rij met de foute berekening alles
een kolom naar rechts te plaatsen in kolom A een cel invoegen)? Dat
heeft hetzelfde effect als erboven een kolom naar links. Bovendien
gaat dan geen data verloren.
--
Vriendelijke groeten,
]-[oRus
www.smallsystemservice.nl
Koemi
> Dan is het toch handiger om in die rij met de foute berekening alles
> een kolom naar rechts te plaatsen in kolom A een cel invoegen)? Dat
> heeft hetzelfde effect als erboven een kolom naar links. Bovendien
> gaat dan geen data verloren.
>
> --
>
> Vriendelijke groeten,
>
> ]-[oRus
> www.smallsystemservice.nl
>
]-[oRus,
dat kan idd ook. En komt op hetzelfde neer, alleen.... hoe doe ik dat dan?
]-[oRus
> "]-[oRus" wrote:
Ax in die rij selecteren, Invoegen - cellen - Naar rechts verplaatsen
als het eenmalig is.
Je maakt op geen enkele manier duidelijk hoe vastgesteld wordt dat die
rij fout is, maar ik begrijp dat iig de eerste cel leeg is. Dan in VBA
een lus creëren voor alle cellen in kolom A (For each cel in
range("A:A")....)
en als de eerste cel (Ax) leeg is, een cel invoegen.
of
Als het inderdaad altijd de laatste rij is, deze bepalen (in deze
groep is dat meermalen genoemd) en de cel invoegen.
of
Als het altijd maar één rij is, Vanuit A1 even End PijlNeer toetsen en
je zit in de laatste cel. Een naar beneden en cel invoegen.
Koemi
in principe ben ik eruit:
_______________________________
Sub Macro2()
Sheets("Huppeldepup").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 3).Select
Selection.ClearContents
Range("A1").Select
End Sub
___________________________________
Hierdoor wordt de juiste cel gevonden en wordt geleegd. Nog beter.
Wim
Sub Macro2()
Sheets("Huppeldepup").Select
Range("A1").End(xlDown).Offset(1, 3).ClearContents
Range("A1").Select
End Sub
"Koemi" schreef: