Userform + Textbox Vraag

[Vangans]

Hoi Excel mensen.

Kan er mij iemand de code geven voor het volgende :

Wanneer ik in de tekstbox de letter 1 typ (Van 1tot 16) en ik klik op OK, verschijnt de macro die ik gemaakt heb.

Deze moet ik dus linken aan de gegevens die ik ingeef. (max nr is 16)

De macro zelf is me gelukt, maar nog niet via een userform.

Wie gaat mijn kennis bijschaven

Mvg

 

[Vangans]

Iemand die uitlegt hoe je een macro hangt aan een cijfer die ik in mijn textbox ingeeft?

 

[Demeter]

Kijk eens naar de functie Select Case.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If Target.Value <> "" Then
        
            Select Case Target
                Case 1
                    Macro1
                Case 2
                    Macro2
            End Select

        End If
    End If
    
End Sub

Als je in A1 een 1 of twee invoerd wordt er een macro uitgevoerd.

ps.
En dat is 1000 posts.

 

[Wigi]

ps.
En dat is 1000 posts.

Well done, mooie prestatie. Mag je terecht trots op zijn.

 

[Vangans]

Beste Demeter,

Nu ziet mijn formule er zo uit.

Waar zit mijn foute redenering ?

Ik geef mijn getal (1-16) niet in, in de cel A1 maar in mijn Textbox1

Private Sub OK_Click()

 If Not Intersect(Target, Range("textbox1")) Is Nothing Then
        If Target.Value <> "" Then
        
            Select Case Target
                Case 1
                    Blik_nr1_toevoegen_aan_Offerte
                Case 2
                    Blik_nr2_toevoegen_aan_Offerte
            End Select

        End If
End If
End Sub

En als ik er de : (ByVal Target As Range) bijzet zegt hij dat de proceduredeclaratie niet overeen komt...

 

[Demeter]

De code die ik heb gegeven is puur ter indicatie, als voorbeeld voor de functie Select case.
Deze functie moet jij in je code van je userform implementeren.

Private Sub OK_Click()
    If Textbox1.Value > 0 And Textbox1.Value < 17 Then
        Select Case UserForm1.Textbox1.Value
            Case 1
                macronaam1
            Case 2
                macronaam 2
        End Select
    End If
End Sub

@Wigi,

Alle kleine beetjes helpen en zo leer ik er zeker iedere keer weer wat bij .

 

[Vangans]

Ok, het werkt DeMeter, alvast bedankt !

Dit gaat al wat tever voor mij, maar ik ga het proberen te begrijpen.

Proficiat met je posts

 

[Demeter]

Bedank, ik ben ook zo begonnen zoals jij.
Vol houden en niet zomaar iets aannemen.

En bedenk dat een vraag nooit achtelijker kan zijn dan het antwoord.
Dus als je ergens extra uitleg bij wilt moet je er gewoon naar vragen.

ps
Denk dat mijn code ook nog wel wat korter kan als je er langer op gaat broeden.