loop code require

[VBABEGINER]

Hi All,

I'm trying to write one logic (in loop). How can I write rk value. I want to read rk every cell value.

Sub code()

Sheets("Sheet1").Select

Dim cn As Integer
Dim i As Integer

i = 2
cn = Range("BN" & Rows.Count).End(xlUp).Row

Dim rk As Integer
rk = Range("BN2") 'comment - read every value..

For i = 2 To cn
If ActiveSheet.Range(Cells(i, "BN")) = rk Then


End If
Next i

End Sub

 

[VBABEGINER]

So, I work a full time job and can sometimes chime and help during the day, but not all the time. You posted 4 times after I went to bed last night and as I was coming to work today.

I want to help. Have more patience. I need to ask questions and I need you to respond to the questions. The code you have provided has me asking more questions. I'll get back to you later.

OK?

Hi Jeffrey, just checking any luck on code pls

 

[Jeffrey Mahoney]

I'm not going to be able to help for at least a week. Family issues. Sorry, life!

 

[Alex Blakenburg]

Why is row 16 not highlighted in green ?
If you are happy to rely on Column BO, why not just filter on that column for the value 1 and copy the filtered rows ?

 

[VBABEGINER]

Why is row 16 not highlighted in green ?
If you are happy to rely on Column BO, why not just filter on that column for the value 1 and copy the filtered rows ?

row no 16 is not will not picked up / highlighted because, for that rank 1, we've already consider 2 records. For every rank i want to pick 2 records only.

 

[Alex Blakenburg]

So do we assume that the each rank is grouped together as in your sample image and that you want to copy the only first 2 rows in the same rank that have a "1" in column BO ?
Also are we copying as Values only (no formatting or formulas) ?