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

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Bubla91
nováček
Příspěvky: 9
Registrován: prosinec 16
Pohlaví: Muž

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

Příspěvekod Bubla91 » 04 kvě 2022 16:03

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
Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 152
Registrován: září 17
Pohlaví: Muž

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

Příspěvekod Grimm » 04 kvě 2022 16:47

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
  • EXCEL MACRO - pdf přiloha v emailu
    od Bubla91 » 29 dub 2022 20:14 » v Kancelářské balíky
    3
    567
    od ITCrowd
    02 kvě 2022 10:44
  • Co s tím (Formuláře kontejneru MDI musí být na nejvyšší úrovni.)?
    od strangereu » 04 úno 2022 16:03 » v Programování a tvorba webu
    0
    434
    od strangereu
    04 úno 2022 16:03
  • Jak v Excelu změnit zvýraznění aktivní buňky?
    od atari » 12 led 2022 18:16 » v Kancelářské balíky
    9
    947
    od atari
    14 led 2022 09:47
  • Excel - vybrat buňky s hypertextovým odkazem
    od pikaso.andreas » 05 pro 2021 21:27 » v Kancelářské balíky
    2
    838
    od pikaso.andreas
    07 pro 2021 11:59
  • Vlastni format bunky - cas + nulove hodnoty
    od MK_Vs » 24 kvě 2022 11:40 » v Kancelářské balíky
    2
    428
    od MK_Vs
    24 kvě 2022 13:50

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 3 hosti