• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: kontrola buněk před zavřením

Zaslal/a DarkKnight 25.4.2013 9:14

Zdravím. Měl bych další prosbu. Mohl by mi někdo poradit jak upravit to, co mam ?? Potřebuji, aby před zavřením sešitu proběhla kontrola sloupce A - v oblasti vyplněných buněk. Pokud by v něm byla prázdná buňka, tak by se ukázalo upozornění a uzavřít by to nešlo.

Mám toto: dal jsem to i do procedury beforclose v Thisworkbook a nefunguje mi to.. děkuji

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim endrow as Long

endrow = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To endrow
If Cells(i, 1) = "" Then

MsgBox ("Prázdné buňky ve sloupci A ") & i


End If
Next i

End Sub

Zaslat odpověď >

---

eLCHa(25.4.2013 9:47)#013098

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim endrow As Long
endrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To endrow
If IsEmpty(Cells(i, 1)) Then
MsgBox ("Prázdné buňky ve sloupci A ") & i
Cells(i, 1).Select
Cancel = True
Exit For
End If
Next i
End Subcitovat

DarkKnight(25.4.2013 9:59)#013099

Najednou to šlape. Děkujicitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse