aantal invulvelden

[picker1100]

Goedemiddag,

Ik heb in Excel een aantal invulvelden en ik heb een knop gemaakt, als je op deze knop drukt wordt het Excel-formulier automatisch via mail verstuurd.

Wat ik wil is als je op deze knop drukt om het automatisch te mailen dat er een melding komt dat het formulier niet via mail kan worden verzonden omdat er nog een aantal cellen niet zijn ingevuld. Dus ik wil dat eerst alle cellen verplicht worden ingevuld voordat het formulier door middel van de knop gemaild wordt.

Alvast dank voor de hulp!

 

[geep1980]

even snel wat gedaan.
Hij kijkt nu naar de cellen A1, A3 en A7 of ze gevuld zijn

Sub Test_Voor_Mail()

A1 = Range("$A$1").Value
A3 = Range("$A$1").Value
A7 = Range("$A$1").Value

If A1 = "" Or A3 = "" Or A7 = "" Then
    MsgBox "Je moet nog velden in vullen"
Else
    MsgBox "Alles is ingevuld het bestand wordt gemaild"
End If

End Sub

 

[geep1980]

zie dat ik iets te snel was hieronder de correcte versie:

Sub Controleren_en_aangeven()
' Geef hieronder de cellen die verplicht zijn in te vullen.
For Each bCell In Range("A1,A3,A7")

    If bCell = "" Then
    bCell2 = bCell.Row
    Bcell3 = bCell.Column
        If bCell3 > 26 Then
            MyColumnLetter = Chr(Int((Bcell3 - 1) / 26) + 64) & Chr(((Bcell3 - 1) Mod 26) + 65)
            MsgBox "Nog in vullen " & MyColumnLetter & bCell.Row
        Else
            MyColumnLetter = Chr(Bcell3 + 64)
            MsgBox "Nog in vullen " & MyColumnLetter & bCell2
        End If
    Else
    
    End If
    Next bCell

End Sub

 

[OctaFish]

@Geep: maak je code op met de Code tag (knop #) dat maakt hem een stuk leesbaarder. (Liefst uiteraard met terugwerkende kracht...)

 

[geep1980]

OctaFish ik zal er rekening mee houden.
Bedankt.

 

[huijb]

Vragen worden hier heel veel gesteld. Een titel als "vraag" zegt dus niets over je probleem. Titel aangepast.

 

[Warme bakkertje]

@ Geep180
Hou het steeds zo simpel mogelijk

Sub Controleren_en_aangeven()
' Geef hieronder de cellen die verplicht zijn in te vullen.
    For Each bcell In Range("A1,A3,A7")
        If bcell = "" Then sq = sq & Space(23) & bcell.Address & vbLf
    Next bcell
    MsgBox "Nog in te vullen alvorens te mailen " & vbLf & sq
End Sub