MACRO - musí být vyplněny buňky

[Bubla91]

Ahoj,

v excelu mám tabulku, kterou po vyplnění odešlu pomocí makra na zvolené emailove adresy.
Problém je, že potřebuji aby byly určité buňky vyplněné, jinak nepůjde odeslat.

V jiném souboru jsem využíval toto

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Cells(38, 2).Value = "" Then
MsgBox "Není vyplněno kdo zapsal!!"
Cancel = True
End If

V tomto souboru ale potřebuji, aby se to týkalo více buněk - F4:F11 a G4:G11, ale nechci, aby vyskakovalo upozornění pro každou buňku zvlášť

Předem děkuji za jakoukoliv pomoc

[Reklama]

[Grimm]

Kód: Vybrat vše

Option Explicit

Sub TestBunek()
Dim Bunka As Range

For Each Bunka In Range("F4:G11")
    If IsEmpty(Bunka) = True Then
        MsgBox "Některá z kontrolovaných buněk je prázdná!", vbCritical, "Chyba !!!"
        Exit Sub
    End If
Next Bunka
'další kód
End Sub


Sub TestBunek_Vypis()
Dim Bunka As Range
Dim Prazdna As Boolean
Dim Text As String
For Each Bunka In Range("F4:G11")
    If IsEmpty(Bunka) = True Then
        Prazdna = True
        If Text = "" Then
            Text = Bunka.Address(False, False)
        Else
            Text = Text & vbNewLine & Bunka.Address(False, False)
        End If
    End If
Next Bunka

If Prazdna = True Then
    MsgBox "Tyto kontrolované buňky jsou prázdné: " & vbNewLine & Text, vbCritical, "Chyba !!!"
    Exit Sub
End If
'další kód
End Sub