Cells(2, Columns.Count).End(1)(1, 2).Value = n |/| difficult to manipulate "for me"

[montecarlo2012]

Hello everyone.
I think I don't need for this question to use XL2BB, if so, please let me know will more than grateful to do it.
with this code:

Sub jumping_v2()
  Dim i As Long, n As Long
  Dim f As Range  
  For i = 2 To Range("B" & Rows.Count).End(3).Row  
    Set f = Range("B" & i).Resize(, 5).Find(1, , xlValues, xlWhole)   
    If Not f Is Nothing Then    
      Cells(2, Columns.Count).End(1)(1, 2).Value = n     
      n = -1
    End If
    n = n + 1
  Next
End Sub

I got this answer:

right beside my array is the answer, I really need my answer on T2
so I tried to change the line for:

Sub jumping_v2()
  Dim i As Long, n As Long
  Dim f As Range
  
  For i = 2 To Range("B" & Rows.Count).End(3).Row
  
    Set f = Range("B" & i).Resize(, 5).Find(1, , xlValues, xlWhole)
   
    If Not f Is Nothing Then
    
            Cells(Rows.Count, "P").End(xlUp).Offset(1, 0).Value = n
      

      n = -1
    End If
    n = n + 1
  Next
End Sub

and this is what I got:

so what I am looking for is for:

dante_skip_April.xls
	B	C	D	E	F
2	5	4	23	25	32
3	4	7	13	31	33
4	10	12	17	26	33
5	5	10	19	33	36
6	10	13	16	21	27
7	7	8	10	24	29
8	8	12	20	27	28
9	1	9	15	31	33
10	5	11	21	25	28
11	2	5	13	25	27
12	9	12	30	32	36
13	3	12	19	22	31
Sheet1

thank you for your understanding and time

 

[DanteAmor]

I do not know where to start.

You have several problems that you need to solve.

I make a list for you to solve them:
1. In your profile you say that you have excel 2010, but you uploaded a 2003 version file. Correct your profile.
2. The 2003 version only has 256 columns, that is, the number 5 is repeated 1255 times, that's why it doesn't fit in 256 columns, that's why I put the sequence in other rows.
3. Update your excel file to version 2010, that way you will have more than 256 columns.
4. I don't understand what you are looking for or what you need as a result.
5. Explain with another file what you need, use colors to explain how you want the result, do not just send a file without explanations, it is very difficult to understand what result you want just by putting an image.
6. So explain each output sequence that you need.

7. You put this:
Set f = Range("B" & i).Resize(, 5).Find(1, , xlValues, xlWhole) display T2
For me to understand what you want, you need to put source data and what result you want.
8. You put this:
Set f = Range("B" & i).Resize(, 5).Find(2, , xlValues, xlWhole) display T3
For me to understand what you want, you need to put source data and what result you want.
9. You put this:
Set f = Range("B" & i).Resize(, 5).Find(3, , xlValues, xlWhole) display T4
For me to understand what you want, you need to put source data and what result you want.

10. I understand that you want a loop, but to solve it you must explain with several examples what you want as a result.
11. Close this thread because the original request was this:

so what I am looking for is for:

12. Create a new thread with all the recommendations that I put above and of course with a file that contains all the explanations.

--------------
Respectfully
Dante Amor
--------------

 

[montecarlo2012]

sorry about everything, and thank you for your help,
your points are right