Celverwijzing in een macro
Draven
Ik ben aan het experimenteren met Excel
Ik heb nu een button gemaakt en heb daaraan een macro gekoppeld.
Dit is gelukt maar ik krijg niet gevonden hoe ik een makro kan maken die het
volgende doet:
Hij moet naar een celverwijzing gaan en deze cel moet dan het eerste
zichtbare veld linksboven in het werkblad worden.
Hopelijk kan iemand mij hiermee helpen.
--
M.vr.gr.
Niels Jonkers
Luc Heyndrickx
Sub GaNaar()
Cells.SpecialCells(xlCellTypeVisible).Cells(1).Select
End Sub
http://users.skynet.be/onderland/Excel.htm#Lessen
2- Navigeren in VBA Excel
Luc
"Draven" <Dra...@discussions.microsoft.com> schreef in bericht
news:556B5B7C-4BA1-42D8...@microsoft.com...
Draven
deze koppel aan macro : module1
met daarin
Sub GaNaar(a2)
Cells.SpecialCells(xlCellTypeVisible).Cells(1).Select
End Sub
Daarna een button 2 maak
deze koppel aan macro : module2
met daarin
Sub GaNaar(a47)
Cells.SpecialCells(xlCellTypeVisible).Cells(1).Select
End Sub
zou het moeten zijn dat bij aanklikken van button1 het werkblad verspringt
naar veld a2 linksboven in beeld en bij button2 verspringt naar veld a47
linksboven in beeld?
--
M.vr.gr.
Niels Jonkers
"Luc Heyndrickx" schreef:
Luc Heyndrickx
Je spreekt jezelf trouwens tegen. Eerst beweer je de zichtbare cel
linksboven te selecteren... en vervolgens wil je zelf kunnen beslissen welke
cel je wil selecteren.
Je hebt slechts één macro om de zichtbare cel linksboven te selecteren:
Sub GaNaar()
Cells.SpecialCells(xlCellTypeVisible).Cells(1).Select
End Sub
Om een vaste cel te selecteren, is het nog eenvoudiger:
Range("A2").Select
Kan je trouwens opnemen met de recorder.
En als je dan toch met argumenten wil werken, maak er dan een functie van.
Function Ga2(Celverwijzing As String)
Range(Celverwijzing).Select
End Function
Toch maar even die lesjes doorlopen, die ik je gegeven heb.
Luc
"Draven" <Dra...@discussions.microsoft.com> schreef in bericht
news:9781FEB7-390C-4DDA...@microsoft.com...
Draven
Draven
Ten eerste enorm bedankt voor je hulp !! fantastisch.
ik denk dat ik iets verkeerd uitleg maar ben nu al een stuk verder. hopelijk
kan je de voorgaande berichten even vergeten en begin ik even opnieuw:
Ik heb nu dit.
Sub GaNaar()
Cells.SpecialCells(xlCellTypeVisible).Cells(1).Select
End Sub
Sub NaarWeek1()
Range("A2").Select
End Sub
Sub NaarWeek2()
Range("A47").Select
End Sub
Sub NaarWeek3()
Range("A92").Select
End Sub
Maar dit doet nog gedeeltelijk niet wat ik bedoel
Als ik nu op button1 klik gaat hij wel naar veld a2 en button2 naar veld a47
maar cell a47 komt dan niet linksboven in beeld te staan. is dit wel mogelijk
?
een lerende excel user
--
M.vr.gr.
Niels Jonkers
Jan B.
jouw oplossing doet hetzelfde als ctrl+home. de cursor springt naar A1 en
het scherm scrollt naar A1.
Ik denk dat de vraag is om de cursor op een bepaalde cel te zetten en het
scherm zódanig te scrollen dat die cel exact in de linkerbovenhoek staat. De
cel in de linkerbovenhoek hoeft dus niet A1 te zijn.
Da's in ieder geval mijn interpretatie van de vraag.
Jan B.
"Luc Heyndrickx" schreef:
Dodo
news:556B5B7C-4BA1-42D8...@microsoft.com:
Het was even zoeken en prutsen, maar hier izzie dan:
Maak een button en zet daarachter:
Private Sub CommandButton1_Click()
waarheen = InputBox("Welke cel?")
Range(waarheen).Select
Application.Goto Reference:=Worksheets("blad1").Range(waarheen),
Scroll:=True
End Sub
--
It is I, DeauDeau
(Free after monsieur Leclerc in 'Allo, 'allo)
harry
nou gewoon een hyperlink koppelt aan een knop, deze verwijzen naar de
gewenste cel en klaar (toch?)
Draven
waarheen = InputBox("A92")
Range(A92).Select
Application.Goto Reference:=Worksheets("2005").Range(A92), Scroll:=True
End Sub
Dodo, bovenstaand heb ik toevegoegd aan een knop.
echter het enige wat dit doe is deze inhoud kopieren in een cel langs deze
knop ?
hehe ik ben bang dat ik een nogal onduidelijke vraag stelling heb.
ik heb 1 werkblad dat heet 2005 hierin heb ik een jaarplanning op weekbasis.
dus iedere week is ongeveer 1 pagina als zicht week 1 beslaat dus cel a1 t/m
a45.
A47 is dus week 2 ik wil nu een knop waardoor week 2 zichtbaar wordt.
--
M.vr.gr.
Niels Jonkers
"Dodo" schreef:
Draven
dank je voor het meedenken dit had ik ook al geprobeerd.
probleem is dat deze hyperlink wel naar de cel gaat maar de cel onderaan in
beeld komt te staan. ik wil die cel dus linksboven in beeld krijgen.....
--
M.vr.gr.
Niels Jonkers
"harry" schreef:
Draven
Draven
ik had een fout gemaakt bij het uitvoeren van jouw sub.
dit is al een heel end op weg. !!! super.
maar nu moet ik een cel opgeven waar ik naar toe wil.
ik wil eigenlijk een hele hoop buttons aanmaken die ieder altijd naar 1
vaste cel gaan.
--
M.vr.gr.
Niels Jonkers
"Dodo" schreef:
> =?Utf-8?B?RHJhdmVu?= <Dra...@discussions.microsoft.com> wrote in
Draven
Luc en Dodo hartelijk bedankt,
jullie formules gecombineerd is het gelukt
--
M.vr.gr.
Niels Jonkers
"Draven" schreef:
> Hallo,