GOING DOWN BY A SPECIFIC NO. in a loop -IN EXCEL

[navyaa]

I need to write a loop where i have start with selecting a cell and then going down the column based on the value in another cell.

eg. 1) go to RPTDT
2) GO DOWN the rows by the number in range("rptcount")
3)Compare the contents of the cell selected after going down by a number of rows.


How can i write this in VB...any suggestions?

Thank you,
navya.

 

[Andrew Poulsom]

Apologies to Jim for butting in here.

RPTCNT is the counter so I do not think that Range("RPTCNT") exists.

So should the code be?

Range("RPTDT").Offset(RPTCNT,0)

 

[navyaa]

Thats what i wanted to confirm...BECAUSE RPTCNT a named cell range in the sheet and when the loop is run i want the value in that cell to be incremented with the loop so will the code I am using do that.

I got the Offset to work:
Range("RPTDT").Select
ActiveCell.Offset(rowOffset:=[Range("RPTCNT").Value], columnOffset:=0).Activate

Dont know what i was doing wrong before.

Thank you for your help....

 

[Andrew Poulsom]

So do you need?

Set RPTCNT = Range("RPTCNT")
RPTCNT.Value = 1
'*** More of your existing code ***
RPTCNT.Value = RPTCNT.Value + 1

Currently you don't seem to be updating the counter in the worksheet.

 

[navyaa]

Sub rptloop()

Set RPTCNT = Range("RPTCNT")
RPTCNT.Value = 1

For i = 1 To Range("CURCNT")
Range("PYRCHK").Select
ActiveCell.FormulaR1C1 = "=0"
Range("RPTDT").Select
ActiveCell.Offset(rowOffset:=[Range("RPTCNT").Value], columnOffset:=0).Activate
If ActiveCell.Value > [RPTCHK] Then
Call RPTCHK2
ElseIf [RPTCNT] >= [CURCNT] Then
Call QTRPT
Else
RPTCNT.Value = RPTCNT.Value + 1
End If

Next


End Sub

THIS IS MY UPDATED CODE NOW AFTER MAKING ALTERATIONS ACCORING TO YOUR POST. I KNEW THERE WAS SOMETHING WRONG BUT DIDNT KNOW HOW TO UPDATE THE VALUE OF THE CELL LIKE A COUNTER.
does this look fine now?

 

[Jim North]

Andrew... I'm home for the night... so help yourself (and navyaa!)

 

[navyaa]

Thank you very much to both of you....