Totals/Sum in Excel?

Giganews Newsgroups
Subject: Totals/Sum in Excel?
Posted by:  Rich (TrickDown…@gmail.com)
Date: 16 May 2006

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

Replies