Variabele Selectie maken

[MEradus]

Hoi!

Ik heb in het verleden met hulp van "HelpMij" een rapportage gemaakt.
Nu wil ik deze graag gaan uitbreiden. Hier kom ik iets tegen wat mij niet wil lukken.

In het bestandje staat in kolom A "Totaal gereden". Dit is mijn uitgangspunt ( Dit is in iedere rapportage een andere cel in kolom A variabel dus).

Ik kom tot het selecteren van de 1e gele cel in het bestand ( met

 activecell.offset(0, 3).select

).
Maar dan moet het hele gele gedeelte geselecteerd worden. En dat lukt me niet.

Kan iemand mij helpen?

Bekijk bijlage Helpmijselecteren.xlsx

 

[HSV]

Zoiets?

Sub hsv()
Dim c As Range
 Set c = Columns(1).Find("Totaal gereden:")
 If Not c Is Nothing Then c.Offset(, 3).CurrentRegion.Select
End Sub

 

[MEradus]

Hoi Harry,

Als ik jouw code uitvoer selecteert hij alles.
Het lijkt wel of hij de waarde niet vindt, waardoor hij alles selecteert. Kan dat?

Zou het te maken kunnen hebben dat de titelblokkering aanstaat?

P.s. Als ik hem in het voorbeeld bestand test werkt hij wel.
Dus het zal aan mijn bestand liggen dan denk ik.

 

[HSV]

Dan zal de gezochte tekst (Totaal gereden: ) wel aaneengesloten liggen in de currentregion.

 

[MEradus]

Wat bedoel je daar precies mee?
Ben er niet zo heel erg in thuis.

 

[MEradus]

Ik zie nu zelf nadat ik wat gegoogled heb op currentregion dat ik waarschijnlijk niet specifiek genoeg geweest ben in mijn 1e voorbeeld bestand.
Misschien dat dit bestand beter tot zijn rechtkomt.. Lijkt meer op het origineel.

Bekijk bijlage Helpmijselecteren(2).xlsx

 

[HSV]

En wat zou er in het nieuwe bestand geselecteerd moeten worden?

 

[MEradus]

Bedankt weer voor je reactie!

Hetzelfde en eigenlijk het gedeelte daarnaast ook. (Het gedeelte naar vervoerssoort). En het is de bedoeling dat het geselecteerde gedeelte gecentreerd wordt.. maar goed dat zou ik er zelf wel in kunnen verwerken denk ik.

 

[HSV]

Geef de cel adressen even op, ik zie nergens 'Totaal gereden' staan.
Ik heb wel een vermoeden, maar wat bereik hoort daarbij (hoever opzij, omlaag).

 

[MEradus]

Ja was wel handig geweest als ik dat gelijk gedaan had....

Ik de gedeeltes die ik beschreef even geel gemaakt net als ik bij het 1e voorbeeld bestand had!

Bedankt dat je me (weer) op weg helpt!

Bekijk bijlage Helpmijselecteren(2).xlsx

 

[HSV]

Past dit.

Sub hsv()
Dim c As Range
 Set c = Columns(1).Find("Totaal verreden ritten:")
 If Not c Is Nothing Then Union(c.Offset(, 3).Resize(3, 3), c.Offset(, 11).Resize(10, 6)).Interior.ColorIndex = 4
End Sub

 

[MEradus]

Harry, dit is helemaal geweldig.
Dit doet precies zoals ik het in gedachten had!!

Wederom bedankt voor je hulp!