VBA Naar laatste rij gaan in kolom (Rows.Count)

[Jap3600]

Hallo

Ik heb onderstaande code welke het me mogelijk maakt naar de laatste cel te gaan in kolom U

A = Range("U" & Rows.Count).End(xlUp).Row
Cells(A, 21).Select

Nu vroeg ik me af of ik dit ook kan doen vanuit een benoemde cel.
Op dit moment noemt één van mijn cellen START . Dit is cel V3
Wat ik dus zou willen is dat hij automatisch telt in kolom V en dan naar de laatste rij gaat van die kolom (of kolom U zoals hieronder gevraagd....)

A = Range("START" & Rows.Count).End(xlUp).Row
Cells(A, 21).Select

Iemand een idee? Ik kom er niet uit.

 

[HSV]

Geen idee wat je automatisch wilt tellen.

Als in V3 een U staat, zal dit wel werken.

Range(range("start") & Rows.Count)

 

[Jap3600]

Geen idee wat je automatisch wilt tellen.
Als in V3 een U staat, zal dit wel werken.

Range(range("start") & Rows.Count)

Dank je HSV om weeral de moeite te doen...
Heb weer wat zitten experimenteren maar helaas is het niet wat wil bereiken.

De benoemde cel "Start" kan in mijn excel variëren van plaats.

Soms kan deze in cel ergens in kolom "U" staan maar voor hetzelfde staat deze morgen in kolom "X"
Wat ik dan zou willen bereiken is dat hij kijkt in welke kolom de benoemde cel "Start" staat en dan kijkt hoeveel rijen er gevuld zijn in deze kolom. (Of naar die laatst gevulde cel gaat.)

Ik hoop dat mijn vraag nu iets duidelijker is en je mogelijk hiervoor ook een oplossing kan bieden.

 

[VenA]

Wat bedoel je met een benoemd bereik? Of staat er letterlijk "Start" in een willekeurige cel. Staat dit dan wel altijd in dezelfde rij?

Application.Goto Cells(Rows.Count, Application.Match("Start", Rows(1), 0)).End(xlUp)

En anders maar een voorbeeldbestand

 

[Jap3600]

Dag VenA en HSV

Toch behoorlijk gepuzzeld maar ik ben eruit gekomen...
Heb het werkend gekregen met onderstaande code.

Private Sub Startkolom()

Dim ColNbr As Long
Dim ColLtr As String

'Input Column Number
 ColNmbr = Range("Start").Column  '115

'Convert To Column Letter
 ColLtr = Split(Cells(1, ColNmbr).Address, "$")(1)

'Define last cell in column
A = Range(ColLtr & Rows.Count).End(xlUp).Row
'Select last cell in column
Cells(A, 21).Select

End Sub

 

[VenA]

Sub VenA()
  Application.Goto Cells(Rows.Count, Range("Start").Column).End(xlUp)
End Sub

Of als je in kolom U wil uitkomen

Sub VenA1()
  Application.Goto Cells(Cells(Rows.Count, Range("Start").Column).End(xlUp).Row, 21)
End Sub