software

I have 2 tabs going.

Data Tab
Column C = Branch (1-70) Each branch has 6 records.
Column N = Off Schedule (1's and 0's : yes or no field from Access)

Overview Tab
Column C = Branch
Column E = Status Lists out each Branch (1-70) and should display
either quot;On Schedulequot; or quot;Off Schedulequot;Code below is Looping through each Data Tab Branch record (6 each)
looking for 1's and 0's in column N.
..
If greater then 0 (Overview)Column E should display quot;Off Schedulequot;
If = 0 (Overview)Column E should display quot;On Schedulequot;

Not working?

Private Sub CommandButton1_Click()Dim x As Integer
Dim y As Integer
Dim rn As Integer
Dim rnData As Integer
Dim rnOverview As Integer

Do While x = 0
y = 0
rnOverview = 4
rnData = 4
Do While y = 0
If (Worksheets(quot;Overviewquot;).Range(quot;Cquot; amp; rnOverview).Value =
Worksheets(quot;Dataquot;).Range(quot;Cquot; amp; rnData).Value) And
Worksheets(quot;Dataquot;).Range(quot;Nquot; amp; rnData).Value gt; 0 Then
Worksheets(quot;Overviewquot;).Range(quot;Equot; amp; rnOverview).Value =
quot;Off Schedulequot;
Else
Worksheets(quot;Overviewquot;).Range(quot;Equot; amp;
rnOverview).Value = quot;On Schedulequot;

y = 1
End If
rnData = rnData 1
If Worksheets(quot;Dataquot;).Range(quot;Aquot; amp; rnData).Value = quot;quot; Then y
= 1
Loop
rnOverview = rnOverview 1
If Worksheets(quot;Overviewquot;).Range(quot;Bquot; amp; rnOverview).Value = quot;quot;
Then x = 1
Loop
End Subtry
Sub doloopd()
mlr = Cells(Rows.Count, quot;hquot;).End(xlUp).Row
For i = 1 To mlr
Select Case Cells(i, quot;hquot;)
Case quot; quot;: x = quot;quot;
Case 0: x = quot;Zeroquot;
Case 1: x = quot;Onequot;
Case Else
End Select
Cells(i, quot;Hquot;).Offset(, 1) = x
Next i
End Sub

--
Don Guillett
SalesAid Software

quot;Richquot; gt; wrote in message oups.com...
gt;I have 2 tabs going.
gt;
gt; Data Tab
gt; Column C = Branch (1-70) Each branch has 6 records.
gt; Column N = Off Schedule (1's and 0's : yes or no field from Access)
gt;
gt; Overview Tab
gt; Column C = Branch
gt; Column E = Status Lists out each Branch (1-70) and should display
gt; either quot;On Schedulequot; or quot;Off Schedulequot;
gt;
gt;
gt; Code below is Looping through each Data Tab Branch record (6 each)
gt; looking for 1's and 0's in column N.
gt; .
gt; If greater then 0 (Overview)Column E should display quot;Off Schedulequot;
gt; If = 0 (Overview)Column E should display quot;On Schedulequot;
gt;
gt; Not working?
gt;
gt; Private Sub CommandButton1_Click()
gt;
gt;
gt; Dim x As Integer
gt; Dim y As Integer
gt; Dim rn As Integer
gt; Dim rnData As Integer
gt; Dim rnOverview As Integer
gt;
gt; Do While x = 0
gt; y = 0
gt; rnOverview = 4
gt; rnData = 4
gt; Do While y = 0
gt; If (Worksheets(quot;Overviewquot;).Range(quot;Cquot; amp; rnOverview).Value =
gt; Worksheets(quot;Dataquot;).Range(quot;Cquot; amp; rnData).Value) And
gt; Worksheets(quot;Dataquot;).Range(quot;Nquot; amp; rnData).Value gt; 0 Then
gt; Worksheets(quot;Overviewquot;).Range(quot;Equot; amp; rnOverview).Value =
gt; quot;Off Schedulequot;
gt; Else
gt; Worksheets(quot;Overviewquot;).Range(quot;Equot; amp;
gt; rnOverview).Value = quot;On Schedulequot;
gt;
gt; y = 1
gt; End If
gt; rnData = rnData 1
gt; If Worksheets(quot;Dataquot;).Range(quot;Aquot; amp; rnData).Value = quot;quot; Then y
gt; = 1
gt; Loop
gt; rnOverview = rnOverview 1
gt; If Worksheets(quot;Overviewquot;).Range(quot;Bquot; amp; rnOverview).Value = quot;quot;
gt; Then x = 1
gt; Loop
gt; End Sub
gt;