• 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 in loop

Status
Niet open voor verdere reacties.
S

samiksz

Gebruiker
Lid geworden
2 nov 2012
Berichten
13
Beste iedereen,
ik heb volgende code in mijn userform geplaatst om een specifiek werkblad te vinden en te activeren.
Dit werkt goed als het werkblad bestaat. Als het werkblad niet bestaat doet het niks wat ook logisch is.
Nu wil een msgbox weergeven als het werkblad niet bestaat, dit lukt ook maar nu gaat hij voor alle werkbladen waarvan de naam niet overeenkomt de msgbox weergeven.
Wat niet de bedoeling is.
Het is ofwel de Ws activeren of 1x de msg weergeven.
iemand een idee waar ik de msgbox moet plaatsen of hoe?
ik heb hem nu bij de "if - else" gezet.
Alvast bedankt voor enige reactie en hulp.

Code: 
Private Sub CmdBZoekKlant_Click()
Dim Ws As Worksheet
For Each Ws In Worksheets
If Ws.Name = (TxtGeefNaamOp.Value & " " & TxtGeefVoorNaamOp.Value) Then
Ws.Activate
else
Msgbox("niet gevonden!")
End If
Next Ws
End Sub

Mvg Samiksz
 
Maak van de textbox een combobox of listbox en zorg ervoor dat alleen de beschikbare bladen te selecteren zijn. Hoef je ook niets te controleren. Plaats anders het bestand of een voorbeeld ervan even.
 
Deze had ik nog in mijn excelkastje liggen.
Alleen vraag ik mij af waarom , activate en select zijn zelden nodig, het werkt alleen vertragend.
 

Bijlagen

  • Select sheet.xlsm
    26,8 KB · Weergaven: 39
@gast0660, geef je een goed advies en pas je het niet toe in het bestandje:shocked::d

Voor in het kastje:
Code: 
Private Sub ComboBox1_Change()
  If ComboBox1.ListIndex <> -1 Then Application.Goto Sheets(ComboBox1.Value).[A1]
End Sub
 
> -1 is ook voldoende.
 
Hey Iedereen,
srry voor de ietwat latere reactie maar kon er nu pas aan verder werken.
Ga het inderdaad met de combobox doen, zo had ik het nog niet bekeken.
Bedankt voor de tip en info.
Mvg Samiksz
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan