Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ElseIf question
I am trying to write code so that when an entry is made, excel verifies
necessary entries in other ranges before saving the change. I started with code that worked: If Not Application.Intersect(Target, Me.Range("O3")) Is Nothing Then If IsNumeric(Target) Then If Not Application.WorksheetFunction.CountA(Range("Filler Scrap")) 0 Then Dim FScrapButton As Integer intFScrapButton = MsgBox("Please Enter Scrap!", vbOKOnly + vbExclamation, "Filler Scrap!") Range("O3:P4").Select Selection.ClearContents Range("C29").Select ElseIf Not Application.WorksheetFunction.CountA(Range("C40:C4 6")) 0 Then Dim LaborButton As Integer intLaborButton = MsgBox("Please Enter Labor!", vbOKOnly + vbExclamation, "Labor!") Range("O3:P4").Select Selection.ClearContents Range("C40").Select Else Me.Parent.Save Dim intButtonPressed As Integer intButtonPressed = MsgBox("Your Tracking Sheet has been Saved. Would you like to Print?", vbYesNo + vbQuestion) If intButtonPressed = vbYes Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True But when I add another "ElseIF" statement after the first, excel completely ignores the ElseIF statements and goes directly to Else statement. Is there a limit to how many "ElseIF" functions I can use? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
ElseIf question
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
ElseIf question
You didn't show us all your code. It looks like you have three nested
If..Then blocks of code... my guess is you tried inserting your ElseIf into the wrong nested If..Then block. If you showed us all of your original code (dealing with the three nested If..Then blocks) and told us what you wanted to do, perhaps someone here could show you how to to it. -- Rick (MVP - Excel) "TomK76" wrote in message ... I am trying to write code so that when an entry is made, excel verifies necessary entries in other ranges before saving the change. I started with code that worked: If Not Application.Intersect(Target, Me.Range("O3")) Is Nothing Then If IsNumeric(Target) Then If Not Application.WorksheetFunction.CountA(Range("Filler Scrap")) 0 Then Dim FScrapButton As Integer intFScrapButton = MsgBox("Please Enter Scrap!", vbOKOnly + vbExclamation, "Filler Scrap!") Range("O3:P4").Select Selection.ClearContents Range("C29").Select ElseIf Not Application.WorksheetFunction.CountA(Range("C40:C4 6")) 0 Then Dim LaborButton As Integer intLaborButton = MsgBox("Please Enter Labor!", vbOKOnly + vbExclamation, "Labor!") Range("O3:P4").Select Selection.ClearContents Range("C40").Select Else Me.Parent.Save Dim intButtonPressed As Integer intButtonPressed = MsgBox("Your Tracking Sheet has been Saved. Would you like to Print?", vbYesNo + vbQuestion) If intButtonPressed = vbYes Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True But when I add another "ElseIF" statement after the first, excel completely ignores the ElseIF statements and goes directly to Else statement. Is there a limit to how many "ElseIF" functions I can use? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Elseif? | Excel Worksheet Functions | |||
A beginners Elseif question | Excel Programming | |||
elseif | Excel Programming | |||
ElseIf | Excel Programming | |||
If...Elseif...End If | Excel Programming |