R
Rich
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 "On Schedule" or "Off Schedule"
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 "Off Schedule"
If = 0 (Overview)Column E should display "On Schedule"
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("Overview").Range("C" & rnOverview).Value =
Worksheets("Data").Range("C" & rnData).Value) And
Worksheets("Data").Range("N" & rnData).Value > 0 Then
Worksheets("Overview").Range("E" & rnOverview).Value =
"Off Schedule"
Else
Worksheets("Overview").Range("E" &
rnOverview).Value = "On Schedule"
y = 1
End If
rnData = rnData + 1
If Worksheets("Data").Range("A" & rnData).Value = "" Then y
= 1
Loop
rnOverview = rnOverview + 1
If Worksheets("Overview").Range("B" & rnOverview).Value = ""
Then x = 1
Loop
End Sub
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 "On Schedule" or "Off Schedule"
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 "Off Schedule"
If = 0 (Overview)Column E should display "On Schedule"
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("Overview").Range("C" & rnOverview).Value =
Worksheets("Data").Range("C" & rnData).Value) And
Worksheets("Data").Range("N" & rnData).Value > 0 Then
Worksheets("Overview").Range("E" & rnOverview).Value =
"Off Schedule"
Else
Worksheets("Overview").Range("E" &
rnOverview).Value = "On Schedule"
y = 1
End If
rnData = rnData + 1
If Worksheets("Data").Range("A" & rnData).Value = "" Then y
= 1
Loop
rnOverview = rnOverview + 1
If Worksheets("Overview").Range("B" & rnOverview).Value = ""
Then x = 1
Loop
End Sub