Loop Difficulty
 

I have this code, where upon in B1 and C1 are numbers entered such as
1, 1
Line code:
--- Sheet1.Range("B1").Value = Sheet1.Range("B1").Value + 1
increases 1,1 to 2,1 to 3,1 .. etc. which is OK
However, This Line of Code stays static and does not increase
---- Range("AQ3").Value = Count

Question is how can "AQ3" increase as "B1" increases? So 2,1 would be
"AQ4",
and 3,1 would be "AQ5" .. etc.
----------------------------------------------------------------
Code
Sub GetCountNow()
Dim No1 As Single
Dim No2 As Single
Dim NumberOfRows As Single
Dim RowRange As Range
Dim Count As Single
Dim Counter As Integer
No1 = [B1]
No2 = [C1]
NumberOfRows = Range("B3", Range("B" & Rows.Count). _
End(xlUp).Address).Rows.Count
Count = 0
Set RowRange = Range("B3", "AN3")
For Counter = 1 To NumberOfRows
If Not (RowRange.Find(What:=No1, LookAt:=xlWhole) Is Nothing) =
True And _
Not (RowRange.Find(What:=No2, LookAt:=xlWhole) Is Nothing)
= True Then _
Count = Count + 1
Set RowRange = RowRange.Offset(1)
Next
Range("AQ3").Value = Count
Sheet1.Range("B1").Value = Sheet1.Range("B1").Value + 1

End Sub

Loop Difficulty
 

smandula,

I'm not sure, but it might help to qualify all your ranges, like you did
with some, e.g.:

Sheet1.Range("AQ3").Value = Count

hth,

Doug


"smandula" wrote in message
ups.com...
I have this code, where upon in B1 and C1 are numbers entered such as
1, 1
Line code:
--- Sheet1.Range("B1").Value = Sheet1.Range("B1").Value + 1
increases 1,1 to 2,1 to 3,1 .. etc. which is OK
However, This Line of Code stays static and does not increase
---- Range("AQ3").Value = Count

Question is how can "AQ3" increase as "B1" increases? So 2,1 would be
"AQ4",
and 3,1 would be "AQ5" .. etc.
----------------------------------------------------------------
Code
Sub GetCountNow()
Dim No1 As Single
Dim No2 As Single
Dim NumberOfRows As Single
Dim RowRange As Range
Dim Count As Single
Dim Counter As Integer
No1 = [B1]
No2 = [C1]
NumberOfRows = Range("B3", Range("B" & Rows.Count). _
End(xlUp).Address).Rows.Count
Count = 0
Set RowRange = Range("B3", "AN3")
For Counter = 1 To NumberOfRows
If Not (RowRange.Find(What:=No1, LookAt:=xlWhole) Is Nothing) =
True And _
Not (RowRange.Find(What:=No2, LookAt:=xlWhole) Is Nothing)
= True Then _
Count = Count + 1
Set RowRange = RowRange.Offset(1)
Next
Range("AQ3").Value = Count
Sheet1.Range("B1").Value = Sheet1.Range("B1").Value + 1

End Sub