tab verwijzing

[bikkel9]

beste mensen

heb een vraagje
heb een tab verwijzing gemaakt en op zich werkt hij wel alleen ik moet aardig wat
verwijzingen maken en daardoor wordt alles een beetje groot mijn vraag is of dit simpeler kan
zal een voorbeeld bijvoegen de verwijzingen zijn zowel letters als cijfers
alvast bedankt

Bikkel9

 

[Ginger]

Bikkel9, Als ik je code zo bekijk, hoef je alléén deze regel over te houden....

Sheets(Range("h35").Value).Select

...eventueel nog aanvullen met een regel die kijkt of je sheet wel bestaat.
De rest doet eigenlijk iets van 'als ik rood ben ben ik rood'... (het 'rood' in mijn vergelijking mag je iedere willekeurige waarde geven)

Groet, Leo

 

[bikkel9]

Hoi Leo

bedankt voor je snelle reactie
niet alle verwijzingen komen in een appart tabblad
in mijn voorbeeld komt tekst en alles boven de 4 in tab 5 terecht?
zal jouw oplossing even invoeren

 

[bikkel9]

Hoi Leo kom met de formule niet op het juiste tabblad uit
als ik 2 invoer kom ik op tab 1 terecht enz

 

[Ginger]

Bikkel9, Nou vooruit dan... Volledig uitgewerkt.

Sub ffvlug()
    
    If Range("H35").Value = "" Or Range("L12").Value = "" Then
        MsgBox "Het veld 'klant' of 'nummer' is nog leeg!" & Chr(13) & _
               "Vul deze eerst!", vbOKOnly + vbInformation, "Fout"
        Exit Sub
    End If
    
    If Range("H35").Value > 5 Or Not IsNumeric(Range("H35").Value) Then
        MsgBox "Het veld 'klant' bevat een onjuiste invoer." & Chr(13) & _
               "Corrigeer deze eerst!", vbOKOnly + vbInformation, "Fout"
        Exit Sub
    End If
    
    Sheets(CStr(Range("h35").Value)).Select

End Sub

Groet, Leo

 

[bikkel9]

Hoi leo

bedankt dit is een heel stuk korter
alleen de klant codes kunnen ook niet numerriek zijn
misschien ter verduidelijking
er is een groep klanten die een algemene inhoudsopgave hebben
deze komen op tab 5 terecht
op tab 1 t/m 4 komen specifieke inhoudsopgave voor de klant
een niet bestaande klant kan niet worden ingevoerd omdat
er met een pulldown menu gewerkt wordt
dus
klant 1 komt op tab 1 (specifieke inhoudsopgave)
klant jan komt op tab jan (specifieke inhoudsopgave)
klant karel komt op tab 5 (algemene inhoudsopgave)
klant 10 komt op tab 5 (algemene inhoudsopgave)

ik heb dat in mijn voorbeeld aangegeven met
If MyTabblad <> "1" Or "2" Or "3" Or "4" Then
MyTabblad = "5"

 

[Ginger]

alleen de klant codes kunnen ook niet numerriek zijn

Hmmm.... Da's date-technisch niet een heel goed voorstel. Probeer zoveel mogelijk eenheid in je data te bewaren!
Maar ok, wat je wilt.... Zo dan?

Sub ffvlug()
Dim arrOpties As Variant
Dim i As Integer

    arrOpties = Array("1", "2", "3", "4", "jan") 'zet hier al je geldige sheetnamen
    
    If Range("H35").Value = "" Or Range("L12").Value = "" Then
        MsgBox "Het veld 'klant' of 'nummer' is nog leeg!" & Chr(13) & _
               "Vul deze eerst!", vbOKOnly + vbInformation, "Fout"
        Exit Sub
    End If
    
    For i = 0 To UBound(arrOpties)
        If arrOpties(i) = CStr(Range("h35").Value) Then
            Sheets(arrOpties(i)).Select
            Exit Sub
        End If
    Next i
    
    Sheets("5").Select
    
End Sub

Groet, Leo

 

[bikkel9]

Hoi Leo

Helemaal perfect!!!!:thumb::thumb::thumb:
heb nog wel een probleempje
maar ga eerst even zelf sleutelen als het niet lukt open ik wel een nieuwe vraag

Bikkel9