Messagebox bij lege cel, zo niet voer actie uit.

[riekss]

Bezig met een project waarbij alle facturen een tabblad zijn.

In CEL B4 komt de naam te staan.



Private Sub CommandButton2_Click()
ActiveSheet.Name = ActiveSheet.Range("b4").Value
Sheets("Menu").Select
End Sub


Deze code zit onder de knop"sluit tabblad"
Door deze knop te activeren wordt het tabblad gesloten en veranderd de naam van het tabblad in de naam in cel C4

Ik wil graag dat er een messagebox komt te staan als er GEEN naam in wordt gevuld. "Voer naam in"
Is er wel een naam ingevuld dan moet gewoon de actie uitgevoerd worden.

Alvast bedankt.

 

[edmoor]

Je zegt C4 en in je code staat B4. Wat moet het zijn?

 

[riekss]

excuses B4 ipv C4

 

[riekss]

Kan iemand mij helpen?

 

[edmoor]

Geduld is een schone zaak. Men helpt hier vrijwillig naast andere dagtaken.

Private Sub CommandButton2_Click()
    Dim sNaam As String
    sNaam = ActiveSheet.Range("B4")
    If sNaam = "" Then
        sNaam = InputBox("Naam: ", "Nieuwe naam")
    End If
    
    If sNaam <> "" Then
        ActiveSheet.Name = Left(sNaam, 31)
        Sheets("Menu").Select
    End If
End Sub

 

[riekss]

Bedankt voor de snelle hulp, ik zal iets geduldiger zijn. De code werkt prima!
Ik heb nog 1 vraagje

Cel B4= Naam klant
Cel B5= Voorletters.

Is het mogelijk deze gegevens samen te voegen in de code? zodat het tabblad de naam krijgt van de combinatie van Naam + voorletters.
Nu werkt de code namelijk niet als er twee dezelfde namen aanwezig zijn.

Private Sub CommandButton2_Click()
Dim sNaam As String
sNaam = ActiveSheet.Range("B4") (HIER OOK B5 ACHTER??)
If sNaam = "" Then
sNaam = InputBox("Naam: ", "Naam Klant")
End If

If sNaam <> "" Then
ActiveSheet.Name = Left(sNaam, 31)
Sheets("Menu").Select
End If
End Sub

 

[edmoor]

Zoiets?

Private Sub CommandButton2_Click()
    Dim sNaam As String
    sNaam = ActiveSheet.Range("B4") & " " & ActiveSheet.Range("B5")
    If sNaam = "" Then sNaam = InputBox("Naam: ", "Naam Klant")
    
    If sNaam <> "" Then
        ActiveSheet.Name = Left(sNaam, 31)
        Sheets("Menu").Select
    End If
End Sub

 

[riekss]

Thnx, m'n project vordert al een heel stuk dankzij jullie hulp (y)