• 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.

msgbox met melding na userform

Status
Niet open voor verdere reacties.
W

wessie

Gebruiker
Lid geworden
25 sep 2009
Berichten
20
Hallo Allemaal,

Ik ben al een tijdje aan het klungelen maar het lukt me niet. Ik wil graag een melding na invoer van een userform aan de hand van een sheet.
In voorbeeld.xlsm heb ik op de eerste sheet een knop, daarmee verschijnt een userform met een invoervak. Dan wil ik graag op het moment dat ik op het knopje op de userform druk dat, als het nummer uit de textbox1 overeen komt met een nummer uit sheet meldingen kolom A, er een msgbox tevoorschijn komt met de melding uit kolom B. Wie kan mij helpen?
 
Laatst bewerkt:
Dan krijg je zoiets:
Code: 
Private Sub CommandButton1_Click()
Dim rng As Variant
Dim NextRowA As Integer
Dim NextRowB As Integer
Dim NextRowC As Integer
    Dim i As Integer
    
    rng = Sheets("Meldingen").Cells(1).CurrentRegion
    With Sheets("Gegevens")
        For i = LBound(rng) To UBound(rng)
            If rng(i, 1) = Val(Me.TextBox1.Value) Then
                MsgBox rng(i, 2)
                GoTo Hell
            End If
        Next i
        NextRowA = .Range("A" & Rows.Count).End(xlUp).Row + 1
        NextRowB = .Range("B" & Rows.Count).End(xlUp).Row + 1
        NextRowC = .Range("C" & Rows.Count).End(xlUp).Row + 1
        .Range("A" & NextRowA) = (NextRowA - 1)
        .Range("B" & NextRowB) = Now()
        .Range("C" & NextRowC) = Me.TextBox1.Value
    End With
    
Hell:
    Unload Me

End Sub
 
Aha. Dat werkt inderdaad. Dat had ik zelf nooit bedacht. Dank je wel!

Nog een vraagje:

Als er nou in mijn sheet meldingen 2 (of 3 of 4) verschillende meldingen staan met hetzelfde getal in kolom A. Kunnen die dan in dezelfde msgbox gemeld worden?
 
Dat kan. De loop stopt nu bij de eerste 'vondst', maar je kunt de loop helemaal doorlopen en de waarden in één string zetten die je dan laat zien op het eind.
 
Ah okee... Ik heb GoTo Hell :evil: en Hell: weg gehaald :d
En dan komen er meer meldingen.

Super!
Bedankt!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan