Een selectie maken tot en met een bepaalde cel waarde

[MEradus]

Hoi,

Ik ben bezig met het vereenvoudigen van het maken van een rapportage in Excel.
Waar ik op dit moment niet uit kom is het maken van een selectie die verticaal altijd anders is.
De selectie moet altijd beginnen bij cel A6 (range("A6").select). Maar dan.
Moeten de kollommen A:S geselecteert worden en naar beneden moet hij selecteren tot en met de cel die als waarde heeft "Eind Totaal".

Dit krijg in niet voormekaar, kan iemand mij hiermee helpen?

Alvast bedankt!

Gr Michel

 

[HSV]

Moet het per se geselecteerd worden (is bijna altijd overbodig in een code)?
Is "Eindtotaal" de laatst gevulde cel van kolom S, of van kolom A, of van het gehele blad, of moet er ergens middenin een
kolom naar gezocht worden?

Zo zie je dat er vragen oproepen bij het beantwoorden van je vraag.
Om het goed te beantwoorden heb ik niet veel kans.

 

[MEradus]

Hoi HSV

Ik heb een voorbeeld gemaakt hoe een export voor de rapportage er uit zou zien. (blad 1)

Het is de bedoeling dat er een sortering gemaakt wordt op Kolom S en vervolgens op R zodat de tussenliggende regels waar 'onzin' informatie onderaan komt te staan. Nu kom ik er zelf achter dat de selectie TOT "Eind Totaal" moet zijn, sorry.
(zie blad 2 voorbeeld)

en vervolgens moet er nog meer gebeuren, namelijk de rijen tot en met "Eind Totaal" moeten eruit gehaald worden.
En daarna moet de selectie weer op B worden gesorteerd. (blad 3 zou dan eind totaal moeten zijn)

Zoals je waarschijnlijk al gezien hebt, staat er onder "eind totaal" nog meer info, dit mag niet verdwijnen.

Bedankt voor je eerste reactie en ik hoop dat ik jouw vragen over mijn vraag goed beantwoord hebt.
Zodat je die van mij weer kan beantwoorden.

Groeten Michel
Bekijk bijlage Map1.xlsx

 

[HSV]

Test het eens Michel.

Sub hsv()
With Sheets("1")
    .Range("A6:S" & .Columns(1).Find("Eind Totaal").Row - 1).Sort .Range("S5"), , .Range("R5")
    .Range("A6:S" & .Columns(1).Find("Eind Totaal").Row).AutoFilter 19, "="
    .AutoFilter.Range.Offset(1).SpecialCells(12).Delete xlUp
    .Range("A6:S" & .Cells(Rows.Count, 19).End(xlUp).Row).AutoFilter
    .Range("A6:S" & .Cells(Rows.Count, 19).End(xlUp).Row).Sort .Range("B5")
 End With
End Sub

 

[MEradus]

Dit is helemaal wat ik zocht!

Bedankt voor je hulp Harry!

Ik zal mijn vraag als opgelost zetten!

Groeten Michel

 

[MEradus]

Hoi Harry,

Ik heb hem nog even getest op een rapportage, maar het lukt toch niet helemaal.

Hij verwijderd de regels 'onder' "eind totaal" en deze moeten juist blijven staan.
Kun je me daar nog mee helpen?

Gr Michel

 

[HSV]

Hoi Michel,

Waarom het fout gaat in je rapportage kan ik niet zien.
In onderstaand bestandje werkt het goed.

 

[MEradus]

Harry,

Ik geef je even het 'officiele' bestand die ik even naam mezelf gestuurt heb, misschien ben ik iets vergeten te melden in mijn voorbeed bestandje.


Alvast weer bedankt voor het kijken!

Bekijk bijlage 169807

 

[HSV]

Ik zou wel een beetje uitkijken met de gegevens; Geen idee of het kwaad kan om het op het forum te plaatsen.
Misschien is het beter het bestand weer te verwijderen als de code goed werkt.

Sub hsv()
Dim Lr As Long, VrCount As Long
With Sheets("121125 ND")
 Lr = .Columns(1).Find("Eind Totaal").Row - 1
    .Cells(Lr + 2, 1).EntireRow.Insert
    .Range("A6:S" & Lr).Sort .Range("S5"), , .Range("R5"), , , , , xlGuess
    .Range("A5:S" & Lr).AutoFilter 19, "="
VrCount = .AutoFilter.Range.Offset(1).SpecialCells(12).Rows.Count - 2
    .AutoFilter.Range.Offset(1).SpecialCells(12).Delete xlUp
    .Range("A5:S" & Lr).AutoFilter
    .Range("A5:S" & Lr - VrCount).Sort .Range("B5"), , , , , , , xlGuess
 End With
 Application.Goto Range("A6"), True
End Sub

 

[MEradus]

Hoi Harry,

Ik.ga gelijk maar ff testen! dank je.
Het bestand is alweer weg!

 

[MEradus]

Hoi Harry

Op meerder vlakken getest en hij doet nu precies wat hij moet doen.
Bedankt! Dit scheelt per dag weer een tijdje freubelen met knippen en plakken

Groeten Michel