Range selecteren op basis van kolom ernaast

[Guidolavespa]

Hoe kan ik een range selecteren op basis van de kolom ernaast. zie voorbeeld. Bedoeling is om de geel gekleurde cellen te selecteren. PAS OP normaal is de gele kleur NIET aanwezig. Dus vanaf de eertse 1 tem de laatste 1 met een twee cellen ertussen, maar de kolom ernaast moet de selectie zijn. Dus van D8 tem D14

Wijzig eerst extentie naar .xls

mvg Guidolavespa

 

[jzeedijk]

Hoi Guidolavespa,

Met een macroformule:
=INDIRECT("D8: D"&MAX(NIET(ISLEEG(A8:A99))*RIJ(A8:A99)))

Invoeren dus met Crtl + Shift + Enter.

Jeroen

 

[Guidolavespa]

Graag wat meer uitleg, werkt niet bij mij ofwel versta ik het niet.

mvg Guidolavespa

 

[Withaar]

Reactie van Jzeedijk begrijp ik ook niet, maar je vraag is ook niet helemaal duidelijk, wanneer moet deze selectie gemaakt worden?

Ik heb maar even een macro geschreven, die zou je via een button kunnen activeren.

Sub Macro1()
'
Dim Eerste, Laast As Long
[C1].Select
Selection.End(xlDown)(1).Select
Eerste = ActiveCell.Row
[C65536].Select
Selection.End(xlUp)(1).Select
Laaste = ActiveCell.Row
ActiveSheet.Range(Cells(Eerste, 4), Cells(Laaste, 4)).Select
End Sub

De 4-tjes in de één na laatste regel bepalen de Kolom 4 = D.

 

[Guidolavespa]

Bedankt voor de info:

ik kom tot de oplossing van wat ik bedoelde:

Dim Eerste, Laast, kolom As Long
ActiveCell.Offset(0, -1).Select
kolom = ActiveCell.Column
Cells(1, kolom).Select
Selection.End(xlDown).Select
Eerste = ActiveCell.Row
Cells(65352, kolom).Select
Selection.End(xlUp).Select
Laaste = ActiveCell.Row
ActiveSheet.Range(Cells(Eerste, ActiveCell.Offset(0, 1).Column), Cells(Laaste, ActiveCell.Offset(0, 1).Column)).Select
End Sub


Thanks:thumb: