Application Goto Reference

[sandernoteborn]

Kan iemand me helpen met de volgende functie?

Application.Goto Reference:=ActiveSheet.Range("A311"), scroll:=True

Op dit moment scrollt hij naar cell A311. Ik vraag me af of ik deze funcite kan gebruiken dan dat het gedeelte Activesheet.Range kan vervangen door een losse kolom en rij macro.

In deze bovenstaande regel selecteert hij een cel (beide coordinaten). Maar kan ik hier ook 2 macro's van maken waarvan er 1 alleen naar een kolom springt en een andere alleen naar een rij navigeert?

Als ik in bovenstaande formule namelijk de A weghaal en alleen het volgende laat staan werkt het niet:

Application.Goto Reference:=ActiveSheet.Range("311"), scroll:=True

en ook andersom kan niet:

Application.Goto Reference:=ActiveSheet.Range("A"), scroll:=True

Ik neem aan dat dit komt door de functie Range. Heeft iemand een idee hoe ik dit kan oplossen?

Alvast bedankt!

 

[Demeter]

Misschien ..........

Sander,

misschien zoiets:

Sub test()
Application.Goto Reference:=ActiveSheet.Range("A:A"), scroll:=True
End Sub

Sub test2()
Application.Goto Reference:=ActiveSheet.Rows(311), scroll:=True
End Sub

In ieder geval tot dat er misschien een betere oplossing wordt aangeboden.
(ben zelf nu ook nog niet een VB-specialist )

Groet,
Ferenc

 

[sandernoteborn]

Sander,

misschien zoiets:

Sub test()
Application.Goto Reference:=ActiveSheet.Range("A:A"), scroll:=True
End Sub

Sub test2()
Application.Goto Reference:=ActiveSheet.Rows(311), scroll:=True
End Sub

In ieder geval tot dat er misschien een betere oplossing wordt aangeboden.
(ben zelf nu ook nog niet een VB-specialist )

Groet,
Ferenc

In ieder geval hartstikke bedankt ik ga het proberen. Indien er betere opties zijn hoor i het graag!

 

[Demeter]

Deze werkt ook:

Sub test()
Application.Goto Reference:=ActiveSheet.[COLOR="Red"]Columns(1), [/COLOR]scroll:=True
End Sub

groet,
Ferenc

ps. heb een file bijgevoegd met uitleg over bereiken (orgineel komt dit van de website van Luc Hendrickx)