Selecteren sheet obv celwaarde

JKlerks · 18 mrt 2019

Hi All,

wellicht een voorloper op mijn eerdere "grote" vraag, maar kan ik eenvoudig een tab selecteren als de naam van een tabblad in een cel genoemd wordt?

Tabnamen zijn artikelnummers en deze worden gebruikt om facturen te maken. Artikelnummer staat in cel I28. Ik gebruik onderstaande, maar dat gaat ("natuurlijk") fout.

Code:

Sub select_sheet()
If Not Sheets("factuur").Range("i28") = Empty Then
[I]Sheets(Sheets("factuur").Range("i28").Value).Select[/I]
End If
End Sub

Dank wederom!

SjonR · 18 mrt 2019

probeer eens:

Code:

Sub select_sheet()
If Not Sheets("factuur").Range("i28") = Empty Then
Sheets([COLOR="#FF0000"]Cstr[/COLOR](Sheets("factuur").Range("i28").Value)).Select
End If
End Sub

gast0660 · 18 mrt 2019

Zo?

Code:

If Not Sheets("factuur").Range("i28") = Empty Then Application.Goto Sheets(Sheets("factuur").Range("i28").Value).[A1]

JKlerks · 18 mrt 2019

SjonR zei:

probeer eens:

Code:

Sub select_sheet()
If Not Sheets("factuur").Range("i28") = Empty Then
Sheets([COLOR="#FF0000"]Cstr[/COLOR](Sheets("factuur").Range("i28").Value)).Select
End If
End Sub

Werkt perfect!! Dit gaat me heel veel tijd besparen! Super bedankt

JKlerks · 18 mrt 2019

gast0660 zei:

gast0660, dank voor je reactie. Deze werkt bij mij niet, maar eerder antwoord deed wat ik wilde.

SjonR · 18 mrt 2019

Een sheetnaam is tekst en je zal van een nummer dus eerst tekst moeten maken alvorens je ernaar kan verwijzen.

Selecteren sheet obv celwaarde

JKlerks

Gebruiker

SjonR

Verenigingslid

gast0660

Terugkerende gebruiker

JKlerks

Gebruiker

JKlerks

Gebruiker

SjonR

Verenigingslid

Nieuwste berichten

Wij waarderen jouw privacy