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 |
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 |
All times are GMT +1. The time now is 11:14 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com