Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run Macro Only If 4 Cells Are Filled In By User In VBA
Thanks Norman. I have made a few user specific adjustments: Private Sub CommandButton1_Click() Dim rng As Range Set rng = Range("E6, E8,E10,E12") If Application.CountA(rng) < 4 Then MsgBox "Please Complete At Least The Following" & Chr(13) & "Custome Name." & Chr(13) & "Customer Number." & Chr(13) & "Credit Limit." Chr(13) & "Current Balance.", vbInformation, "IMPORTANT!" Exit Sub Else Sheets("Lock2").Select Application.StatusBar = "Please Enter The Details Requested The Press The Next Button" ActiveWindow.DisplayVerticalScrollBar = False End If End Sub And this now works an absolute treat. Thanks for all your help with this question and all the others I hav posted that you have been very kind to help me on. Big Help. Thanks again. Celtic_Avenger :) :) :) :) : -- Celtic_Avenge ----------------------------------------------------------------------- Celtic_Avenger's Profile: http://www.excelforum.com/member.php...fo&userid=1410 View this thread: http://www.excelforum.com/showthread.php?threadid=26137 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run Macro Only If 4 Cells Are Filled In By User In VBA
I'd change this:
If Application.CountA(rng) < 4 Then to If Application.CountA(rng) < rng.cells.count then Then if you increase/decrease the cells in rng, you don't have to worry about finding all the 4's and adjusting them. Celtic_Avenger wrote: Thanks Norman. I have made a few user specific adjustments: Private Sub CommandButton1_Click() Dim rng As Range Set rng = Range("E6, E8,E10,E12") If Application.CountA(rng) < 4 Then MsgBox "Please Complete At Least The Following" & Chr(13) & "Customer Name." & Chr(13) & "Customer Number." & Chr(13) & "Credit Limit." & Chr(13) & "Current Balance.", vbInformation, "IMPORTANT!" Exit Sub Else Sheets("Lock2").Select Application.StatusBar = "Please Enter The Details Requested Then Press The Next Button" ActiveWindow.DisplayVerticalScrollBar = False End If End Sub And this now works an absolute treat. Thanks for all your help with this question and all the others I have posted that you have been very kind to help me on. Big Help. Thanks again. Celtic_Avenger :) :) :) :) :) -- Celtic_Avenger ------------------------------------------------------------------------ Celtic_Avenger's Profile: http://www.excelforum.com/member.php...o&userid=14101 View this thread: http://www.excelforum.com/showthread...hreadid=261374 -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Stop user from saving workbook unless cell is filled in | Excel Discussion (Misc queries) | |||
Filled cells dont appear as filled | Excel Discussion (Misc queries) | |||
Macro Request: Fill in empty cells with previous Filled cell in column | Excel Worksheet Functions | |||
Macro that copy page to page just some filled cells | Excel Discussion (Misc queries) | |||
Run Macro Only If 4 Cells Are Filled In By User In VBA | Excel Programming |