Forum Discussion

OliverScheurich's avatar
OliverScheurich
Gold Contributor
Apr 01, 2022

Re: is there a fast way to match my "cell content" to the "row number"

sophiekatchu 

In the attached file you can click the button in cell H2 to start the macro. Maybe this is what you are looking for.

 

Sub rownumber()

Dim i As Integer
Dim z As Integer

For i = 1 To 1000

If Cells(i, 1).Value > 0 Then

z = Cells(i, 1).Value

Cells(z, 5).Value = Cells(i, 1).Value
Cells(z, 6).Value = Cells(i, 2).Value

Else
End If

Next i

End Sub

3 Replies

  • sophiekatchu's avatar
    sophiekatchu
    Copper Contributor
    Apr 10, 2022
    WOAHHH THIS IS THE ANSWER I'M LOOKING FOR T,T THANK YOU SO MUCH~~

    But the problem is... I don't know how I'm going to tweak the formula 😅 can you please teach me how? 🙏 here's a sample data set:
      • OliverScheurich's avatar
        OliverScheurich
        Gold Contributor
        Apr 11, 2022

        sophiekatchu 

        Sub rownumber()

Dim LngZeileMax As Integer
Dim z As Integer
Dim i As Integer

LngZeileMax = Cells(Rows.Count, 1).End(xlUp).Row

For i = 3 To LngZeileMax

If Cells(i, 1).Value > 0 Then

z = Cells(i, 1).Value

Cells(z, 13).Value = Cells(i, 1).Value
Cells(z, 14).Value = Cells(i, 2).Value
Cells(z, 15).Value = Cells(i, 3).Value
Cells(z, 16).Value = Cells(i, 4).Value

Else
End If

Next i

End Sub

        Maybe with these lines of code. You can click the button in cell Q2 to start the macro. The results are in columns 13 to 16.

Resources