• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Select Range Based on cell selection

Status
Niet open voor verdere reacties.
A

autoweek

Gebruiker
Lid geworden
8 nov 2011
Berichten
177
Beste Helpers,

Ik ben op zoek naar een oplossing voor het volgende probleem.

Als ik cel G18 selecteer dan wil ik in deze kolom(kolom nummer 7) de cellen G13:G36 selecteren. En als ik cel B9 selecteeer dan de cellen B13:B36.

De Rijen zijn dus vast alleen het kolom nummer is variabel.

Met onderstaande code is dit gelukt alleen mijn probleem is dat dit niet werkt als ik bijvoorbeeld cel G3:K3 selecteer. Dan wordt alleen G13:G36 geselecteerd.

Code: 
Sub testen()

MyCol = ActiveCell.Column
Range(Cells(13, MyCol), Cells(36, MyCol)).Select

End Sub
 
Code: 
Range(Cells(13, MyCol), Cells(36, MyCol)).Resize(, Selection.Columns.Count).Select
 
Of:

Code: 
Cells(13, MyCol).Resize(24, Selection.Columns.Count).Select

of zonder MyCol.
Code: 
Cells(13, ActiveCell.Column).Resize(24, Selection.Columns.Count).Select
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan