< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

icon #013098
eLCHa
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 Sub
citovat
#013099
avatar
Najednou to šlape. Děkujicitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09