Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
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
Posted to microsoft.public.excel.misc
|
|||
|
|||
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
Posted to microsoft.public.excel.misc
|
|||
|
|||
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? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Edit this macro code to loop and end | Excel Discussion (Misc queries) | |||
Loop for VBA code? | Excel Worksheet Functions | |||
How to Loop some code | Excel Discussion (Misc queries) | |||
VB for excel, how do I loop through code | Excel Discussion (Misc queries) | |||
VBA Newbie: Help with Do Loop code | Excel Discussion (Misc queries) |