Relatieve selecties

[Harolda]

Ik wil na het bereiken van Mycount een tiental rijen selecteren met de breedte van 6 kolommen, en daarbij een kolom overslaan en nog een kolom van 10 rijen selecteren.

In de bijlage zit een voorbeeld. Ik ben benieuwd of iemand mij kan uitleggen hoe ik zulke selecties kan maken


Harold

 

[Wigi]

Sub bereik()
Dim myrange As Range
Set myrange = Union(Range("A33").Resize(11, 6), Range("H33").Resize(11))
End Sub

Wigi

 

[Harolda]

Myrange

Bedankt voor de snelle reactie

Sub bereik()
Dim myrange As Range
Set myrange = Union(Range("A33").Resize(11, 6), Range("H33").Resize(11))
End Sub

myrange as range >>> daar krijg ik nu niks in!!! hij blijft leeg?

 

[Wigi]

Als jij vraagt hoe je dit speciale bereik wilt maken, wel dan zeg ik dat. Je hebt niet gezegd of er iets moet inkomen of zo.

 

[Harolda]

Selectie

Ik zal even uitleggen wat hij moet doen.
Er zijn 200 regels aanwezig

Na die regels moeten er 10 regels komen die niet geblokkeerd zijn wanneer de blad beveiliging aan staat.


Op de foto zie je het gebied wat het dan moet worden.

Mijn excuus voor de onduidelijkheid!

 

[Wigi]

Ik zal even uitleggen wat hij moet doen.
Er zijn 200 regels aanwezig

Na die regels moeten er 10 regels komen die niet geblokkeerd zijn wanneer de blad beveiliging aan staat.

Op de foto zie je het gebied wat het dan moet worden.

Mijn excuus voor de onduidelijkheid!

En wat is daar de bedoeling van? Ik begrijp er eerlijk gezegd weinig van.

 

[Harolda]

Dat na die 200 regels of welk aantal ook er 10 niet blokkeerd

Het is een bestelboek voor de keuken en in die 10 regels kunnen koks producten zetten die niet standaard in het assortiment staan.

Dus van daar dat Kolom A tot F open moeten en kolom H
Alleen de nummers wat dat moet gebeuren kan dus verschillen

die rij verschilt

 

[Wigi]

Deze macro start in de huidige cel (activecell)

Zet die in kolom A.

Die cel is de linkerbovenhoek van het bereik van 10 bij 6 cellen. Samen met de cellen in kolom H worden die nu ontdaan van de blokkering.

Daarvoor is het nodig om de beveiliging eraf te halen.

Sub Macro1()
    ActiveSheet.Unprotect
    Union(ActiveCell.Resize(11, 6), ActiveCell.Offset(, 7).Resize(11)).Locked = False
    ActiveSheet.Protect
End Sub

Wigi