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)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.