Simpele code, toch fout ?

[Revdutchie]

Heren en Dames.

Wat is hier mis mee ? Ik wil gewoon naar die cell op dat blad gaan.

If [gamename1] = "Tactics" Then
cell [tnamegeel].Select

Groeten,
Jacques

 

[Wigi]

Laat die cell maar weg.

 

[Revdutchie]

Laat die cell maar weg.

Dan krijg ik "Methode select van klasse Range mislukt"

Kan het zijn omdat de target cell een samengevoegde cell is ?

Voor alle zekerheid hier de hele code van die button.

Private Sub Start1_Click()

If [gamename1] = "Tactics" Then
[Tgamenr] = [gamenr1]
[Tsets] = [sets1]
Else
[Sgamenr] = [gamenr1]
[Ssets] = [sets1]
[Slegs] = [legs1]
[Sscore] = [score1]
[Sgamename] = [gamename1]
End If

If [gamename1] = "Tactics" Then
[tnamegeel].Select

End If

End Sub

 

[Ginger]

Dan krijg ik "Methode select van klasse Range mislukt"

Weet je heel zeker dat je al die gebruikte Bereiknamen (Named Ranges) goed hebt overgenomen uit je sheet? Één tikfoutje en je naam klopt al niet meer....

Groet, Leo

 

[Revdutchie]

Ja, absoluut, alles werkt ook tot de "select" en die naam heb ik al 100 x na gekeken.

Het maakt toch niet uit dat de button op een ander blad staat als [gamename1] en [Tnamegeel] ?

Groeten,
Jacques

 

[Ginger]

Het maakt toch niet uit dat de button op een ander blad staat als [gamename1] en [Tnamegeel] ?

Selecteren op deze wijze kan inderdaad niet! Je zal eerst het bewuste blad actief moeten maken en dan pas deze select uitvoeren.

Groet, Leo

[EDIT] ZO kan het wel...

application.goto [gamename1]

 

[Revdutchie]

Leo :thumb::thumb::thumb::thumb::thumb:

Dat werkt, thx weer

Groeten,
Jacques

 

[Wigi]

Vanwaar het selecteren eigenlijk, wat ben je nog van plan in die macro?