If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
loop code error help!!!!
I have the following code,
I need it so people HAVE to answer Dim ws As Workbook Dim oGS As Workbook 'object Graph Sheet it was worksheet before Set oGS = Nothing 'set to nothing in case similar code was previously used For Each ws In Application.Workbooks ' For Each ws In WB.Worksheets Select Case MsgBox("Select the FedEx Worksheet" & vbLf & "Do you want to use" & vbLf & ws.Name & "." & "?", vbYesNoCancel, "Updating Parcel Metrics Scorecard") 'Case vbNo 'Nothing to do in this case Case vbYes Set oGS = ws Exit For End Select 'Next If Not (MsgBox("Select Sheet", vbYesNoCancel, "Updating Parcel Metrics Scorecard")) Then Exit For Next ws.Activate what cand i do so the person using the macro is obligated to pick from the list? |
#2
|
|||
|
|||
loop code error help!!!!
Dim ws As Workbook
Dim oGS As Workbook 'object Graph Sheet it was worksheet before Set oGS = Nothing 'set to nothing in case similar code was previously used Picked = False Do while (1) For Each ws In Application.Workbooks ' For Each ws In WB.Worksheets Select Case MsgBox("Select the FedEx Worksheet" & vbLf & "Do you want to use" & vbLf & ws.Name & "." & "?", vbYesNoCancel, "Updating Parcel Metrics Scorecard") 'Case vbNo 'Nothing to do in this case Case vbYes Set oGS = ws Picked = True Exit For End Select 'Next If Not (MsgBox("Select Sheet", vbYesNoCancel, "Updating Parcel Metrics Scorecard")) Then Exit For Next if Picked = False then msgbox("Error: Must select at least one item, Try again") end loop ws.Activate "cesaoes" wrote: I have the following code, I need it so people HAVE to answer Dim ws As Workbook Dim oGS As Workbook 'object Graph Sheet it was worksheet before Set oGS = Nothing 'set to nothing in case similar code was previously used For Each ws In Application.Workbooks ' For Each ws In WB.Worksheets Select Case MsgBox("Select the FedEx Worksheet" & vbLf & "Do you want to use" & vbLf & ws.Name & "." & "?", vbYesNoCancel, "Updating Parcel Metrics Scorecard") 'Case vbNo 'Nothing to do in this case Case vbYes Set oGS = ws Exit For End Select 'Next If Not (MsgBox("Select Sheet", vbYesNoCancel, "Updating Parcel Metrics Scorecard")) Then Exit For Next ws.Activate what cand i do so the person using the macro is obligated to pick from the list? |
#3
|
|||
|
|||
loop code error help!!!!
Thanks !!!
"Joel" wrote: Dim ws As Workbook Dim oGS As Workbook 'object Graph Sheet it was worksheet before Set oGS = Nothing 'set to nothing in case similar code was previously used Picked = False Do while (1) For Each ws In Application.Workbooks ' For Each ws In WB.Worksheets Select Case MsgBox("Select the FedEx Worksheet" & vbLf & "Do you want to use" & vbLf & ws.Name & "." & "?", vbYesNoCancel, "Updating Parcel Metrics Scorecard") 'Case vbNo 'Nothing to do in this case Case vbYes Set oGS = ws Picked = True Exit For End Select 'Next If Not (MsgBox("Select Sheet", vbYesNoCancel, "Updating Parcel Metrics Scorecard")) Then Exit For Next if Picked = False then msgbox("Error: Must select at least one item, Try again") end loop ws.Activate "cesaoes" wrote: I have the following code, I need it so people HAVE to answer Dim ws As Workbook Dim oGS As Workbook 'object Graph Sheet it was worksheet before Set oGS = Nothing 'set to nothing in case similar code was previously used For Each ws In Application.Workbooks ' For Each ws In WB.Worksheets Select Case MsgBox("Select the FedEx Worksheet" & vbLf & "Do you want to use" & vbLf & ws.Name & "." & "?", vbYesNoCancel, "Updating Parcel Metrics Scorecard") 'Case vbNo 'Nothing to do in this case Case vbYes Set oGS = ws Exit For End Select 'Next If Not (MsgBox("Select Sheet", vbYesNoCancel, "Updating Parcel Metrics Scorecard")) Then Exit For Next ws.Activate what cand i do so the person using the macro is obligated to pick from the list? |
Thread Tools | |
Display Modes | |
|
|