selectie tot een variable cel

[ronald1986]

Goedemorgen,

Ik wil een selectie maken in een macro vanaf cel A7 tot een variabele cel.
Ik heb in cel P1 de celwaarde staan tot waar de selectie moet lopen.
Als dus in cel P1 staat: "L53" wil ik dat de selectie gaat van A7:L53
Nou heb ik dit ooit eens gedaan met .value in de macro maar ik krijg het nu niet werkend...
Weet iemand hoe ik dit in een macro kan krijgen?

Mvg, Ronald

 

[Cobbe]

Zo misschien:

Sub cobbe()
Range("A7:" & [P1]).Select
End Sub

 

[TomP]

Bij mij leidt dat tot een foutmelding. Dit werkte bij mij wel:

Sub test()
Range("A7", Range("P7").Value).Select
End Sub

Gr. Tom

 

[ronald1986]

Euhm, nou, het gaat om een range in een sortering.
Onderstaande regel:

.SetRange Range("A7:L53")

Nu is het dus de bedoeling dat in bovenstaand voorbeeld "L53" de waarde in cel P1 is.
Oftewel van A7 tot de waarde in cel P1.

Ik dacht dat het iets was in de zin van:

.SetRange Range("A7:P1.Value")

Maar dit werkt dus niet. Iemand die weet hoe het wel werkt?

 

[Cobbe]

Dat genereert bij u een fout doordat je P1 en P7 gewisseld hebt.
Als P1 of P7 leeg is krijg je een foutmelding.

Dat is toch hetzelfde:

.SetRange Range("A7:" & [P1])

 

[TomP]

ohja, oeps
Sorry

 

[ronald1986]

Het probleem is eigenlijk dat ik een groeiend aantal records wil sorteren. Omdat de lijst met records groeit moet ik dus een variabele range sorteren. Omdat de cellen gevuld worden door formules kan ik niet gewoon bijvoorbeeld A7:L5000 sorteren want dan krijg ik alle lege cellen bovenaan en alle gevulde cellen helemaal onderaan. Dit zou dus andersom moeten zijn. Weet iemand hoe ik dit voor elkaar kan krijgen?

Mvg,
Ronald

 

[Cobbe]

Ga je na elke post iets toevoegen aan je vraag?

.SetRange Range("A7:L" & Range("A" & Rows.count).end(xlup).row)

 

[ronald1986]

Ok, dit werkt prima! Thnx!

Maar ben nou toch wel benieuwd hoe dat ook al weer ging met een selectie maken tot een waarde die in een cel staat d.m.v. .value? Ik weet nog dat ik het ooit eens gedaan heb met iets als:

Range("A1:B18.Value").Select

Wanneer er dan bijvoorbeeld in cel B18 staat: A38 dan kreeg ik een selectie van A1 tot A38. Weet iemand hoe dit werkt?

Mvg, Ronald

 

[Cobbe]

Kijk eens in post #2 daar staat:

Sub cobbe()
Range("A7:" & [P1]).Select
End Sub

Dat is hetzelfde als:

Sub cobbe()
Range("A7:" & Range("P1").Select
End Sub

Dat is precies datgene wat je nu vraagt en in de openingspost vroeg.