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
MACRO - musí být vyplněny buňky
Re: MACRO - musí být vyplněny buňky
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
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
USB Dongle - s Macro funkcionalitou
od Luis » 15 dub 2024 16:18 » v Rady s výběrem hw a sestavením PC - 1
- 1686
-
od rhsCZ
Zobrazit poslední příspěvek
15 dub 2024 16:50
-
-
-
Excel - filtr na formát buňky + obsah Příloha(y)
od popcorn » 19 zář 2023 17:07 » v Kancelářské balíky - 0
- 3248
-
od popcorn
Zobrazit poslední příspěvek
19 zář 2023 17:07
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 33 hostů