FWIW - some coding 'best practices':
Note that row/col index Type is Long, NOT integer, even though your working
counter is within Int values
Note also that the string vars have "s" prefixes and route IDs are appended to
the var name.
The following is working in a mockup wb:
Option Explicit
Sub test()
Dim sRouteF$, sRouteC$, n&, k&
With Sheets("FleetSummary")
For n = 5 To 10
If .Range("H" & n) = "Y" Then
sRouteF = .Range("A" & n)
For k = 2 To 10
sRouteC = Sheets("Conversion").Range("A" & k)
If sRouteF = sRouteC Then
If testRouteSheet0rAdd(sRouteC) Then _
Call transferCommittedRoute(sRouteC, k)
End If 'sRouteF = sRouteC
Next 'k
End If '.Range("H" & n) = "Y"
Next 'n
End With 'Sheets("FleetSummary")
End Sub
Function testRouteSheet0rAdd(sRoute$) As Boolean
testRouteSheet0rAdd = MsgBox("Yes or No", vbYesNo) = vbYes
End Function
Sub transferCommittedRoute(sRoute$, Ndx&)
MsgBox "Transferred " & sRoute & ", " & Ndx, vbExclamation
End Sub
--
Garry
Free usenet access at
http://www.eternal-september.org
Classic
VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.
vb.general.discussion