Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Workbook close event
Hi, I need to add validation which sees if any of the cells in a column are empty. If yes, then I need to show a message to the user. I need to write this dynamically in VB.net depending on the number of rows. How do I do this? KPC -- kpriyac ------------------------------------------------------------------------ kpriyac's Profile: http://www.excelforum.com/member.php...o&userid=37535 View this thread: http://www.excelforum.com/showthread...hreadid=573077 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Workbook close event
Perhaps something like this: HTH Otto
Private Sub Workbook_BeforeClose(Cancel As Boolean) With Sheets("TheShtName") Set Rng = .Range("A1", .Range("A" & Rows.Count).End(xlUp)) End With If Rng.Count Application.CountA(Rng) Then MsgBox "Some empty cells." Cancel = True End If End Sub "kpriyac" wrote in message ... Hi, I need to add validation which sees if any of the cells in a column are empty. If yes, then I need to show a message to the user. I need to write this dynamically in VB.net depending on the number of rows. How do I do this? KPC -- kpriyac ------------------------------------------------------------------------ kpriyac's Profile: http://www.excelforum.com/member.php...o&userid=37535 View this thread: http://www.excelforum.com/showthread...hreadid=573077 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Workbook close event
what does the end do in the following statement - Set Rng = .Range("A1", .Range("A" & Rows.Count).End(xlUp) -- kpriya ----------------------------------------------------------------------- kpriyac's Profile: http://www.excelforum.com/member.php...fo&userid=3753 View this thread: http://www.excelforum.com/showthread.php?threadid=57307 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Workbook close event
It's like hitting the END key on the keyboard.
The code says to go to .range("a" & rows.count) which is the same as ..range("a65536") (the bottom cell in column A) So if you were doing it manually, you'd go to A65536, hit the End key and finally the up arrow key (xlup in code). It finds the last use cell in that column (A). kpriyac wrote: what does the end do in the following statement - Set Rng = .Range("A1", .Range("A" & Rows.Count).End(xlUp)) -- kpriyac ------------------------------------------------------------------------ kpriyac's Profile: http://www.excelforum.com/member.php...o&userid=37535 View this thread: http://www.excelforum.com/showthread...hreadid=573077 -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Workbook-Close StopTimer event | Excel Discussion (Misc queries) | |||
Excel WorkBook Close Event | Excel Programming | |||
Workbook Before Close Event Cancel flag not functional(?) | Excel Programming | |||
Workbook Close Event | Excel Programming | |||
Clear Clipboard on Workbook Close Event (Excel XP) | Excel Programming |