• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

macro van werkblad 2 naar werkblad 1

Status
Niet open voor verdere reacties.
D

deheugden

Terugkerende gebruiker
Lid geworden
1 mrt 2006
Berichten
1.088
Sub WB2()
'
' WB2 Macro
'

'
Sheets("WB1").Select
Range("A1").Select
End Sub

het werkblad waar de knop inzit die ik wil koppelen aan de macro heet wb2. het werkblad waar je tercht moet komen als ik op de knop druk,heet wb1. de knop zit in cell a2 en a3.

toch werkt de macro niet.wat doe ik fout???

thanks.
 
Ik heb korte code geschreven om dmv een paramter sub te springen naar een bepaalde sheet.

Code: 
Sub JumpToSheet(sht As String)
ThisWorkbook.Sheets(sht).Activate
Range("a1").Select
End Sub

te gebruiken als volgt:

Code: 
sub test
JumpToSheet "blad1" ' om naar blad 1 te gaan
end sub

je dient dus in de test sub de naam van de gewilde sheet te zetten achter JumpToSheet en dit tussen aanhalingstekens.
 
vreemd genoeg werkt het alleen in design mode en niet gewoon.

de code ziet er trouwens zo uit:


Sub test()
JumpToSheet "Info" ' om naar blad Info te gaan
End Sub

Private Sub BackButton_Click()

End Sub
 
deheugden zei:
vreemd genoeg werkt het alleen in design mode en niet gewoon.

de code ziet er trouwens zo uit:


Sub test()
JumpToSheet "Info" ' om naar blad Info te gaan
End Sub

Private Sub BackButton_Click()

End Sub
Klik om te vergroten...

In je private sub BackButton_Click()

moet je dan JumpToSheet "Info" zetten.
Je moet daar bepalen wat er moet gebeuren als je op die knop klikt.
 
we zijn er bijna :D

Sub test()
JumpToSheet "Info" ' om naar blad Info te gaan
End Sub
------------------------------------------------------------------------------------------
Private Sub BackButton_Click()
JumpToSheet "Info"
End Sub

er zit nog ergens een fout,maar ik zie hem niet echt.
 
deheugden zei:
we zijn er bijna :D

Sub test()
JumpToSheet "Info" ' om naar blad Info te gaan
End Sub
------------------------------------------------------------------------------------------
Private Sub BackButton_Click()
JumpToSheet "Info"
End Sub

er zit nog ergens een fout,maar ik zie hem niet echt.
Klik om te vergroten...

sub test heb je nu eigenlijk niet meer nodig. Enkel private sub Backbutton_click en sub JumpToSheet.
 
dus alleen dit??

Private Sub BackButton_Click()
JumpToSheet "Info"
End Sub

probleem is dan dat ik de melding sub or function not defined krijg
 
deheugden zei:
dus alleen dit??

Private Sub BackButton_Click()
JumpToSheet "Info"
End Sub

probleem is dan dat ik de melding sub or function not defined krijg
Klik om te vergroten...

Je hebt ook nog de code voor de sub JumpToSheet nodig. Staat in deze thread vermeld.
 
Ik ga voor

Code: 
Private Sub BackButton_Click()
       Application.Goto Sheets("WB1").Range("A1")
End Sub

Wigi
 
het werkt.beide heren bedankt voor de hulp en tot binnenkort.
btw,kan iemand nog een boek(of een site) adviseren hierover met bijv. kant en klare macro's??
 
Doorzoek dan het forum eens aub, dat is al meermaals gepost geweest.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan