Rowcounts value +1 doesnt work

[Endered5]

Hi.

Need help with rowcount value that I want to add on specific cells. For example if the text in column B starting from a specific place, finding "car, cat or horse" I want it to go on the same row, A column and write the next value. So it will be 1, 2, 3, 4, 5 and so on.

But it seems like that it wont write the value of "Cells(rowcounts + 1, 1).Value". Nothing happens. Why?
Please see below.



Dim rowcount10 As Integer
Dim rowcount11 As Integer
Dim rowcount12 As integer

rowcount10 = Cells(Rows.Count, 1).End(xlUp).Row
rowcount11 = Cells(Rows.Count, 2).End(xlUp).Row

For I = rowcount10 To rowcount11

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

Cells(I + 1, 2).Select

If InStr(1, Range("B" & I + 1), "Car") Or InStr(1, Range("B" & I + 1), "Cat") Or InStr(1, Range("B" & I + 1), "Horse") Then

Cells(I + 1, 1).Value = Cells(rowcounts + 1, 1).Value

End If
Next I

 

[Endered5]

Dim rowcount10 As Integer
Dim rowcount11 As Integer
Dim rowcount12 As integer

rowcount10 = Cells(Rows.Count, 1).End(xlUp).Row
rowcount11 = Cells(Rows.Count, 2).End(xlUp).Row

For I = rowcount10 To rowcount11

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

Cells(I + 1, 2).Select

If InStr(1, Range("B" & I + 1), "Car") Or InStr(1, Range("B" & I + 1), "Cat") Or InStr(1, Range("B" & I + 1), "Horse") Then

Cells(I + 1, 1).Value = Range("A" & rowcount12).value

End If
Next I

 

[Endered5]

So I want the value of ("A" & rowcount12) +1 added to my cell (Cells(I +1, 1). But it wont work

 

[Fluff]

How about

Dim rowcount10 As Long, rowcount11 As Long, rowcount12 As Long, i As Long

rowcount10 = Cells(Rows.Count, 1).End(xlUp).Row
rowcount11 = Cells(Rows.Count, 2).End(xlUp).Row

For i = rowcount10 + 1 To rowcount11
   If InStr(1, Range("B" & i), "Car") Or InStr(1, Range("B" & i), "Cat") Or InStr(1, Range("B" & i), "Horse") Then
      rowcount12 = Cells(Rows.Count, 1).End(xlUp).Row
      Cells(i, 1).Value = Range("A" & rowcount12).Value + 1
   End If
Next i

 

[Endered5]

How about

Dim rowcount10 As Long, rowcount11 As Long, rowcount12 As Long, i As Long

rowcount10 = Cells(Rows.Count, 1).End(xlUp).Row
rowcount11 = Cells(Rows.Count, 2).End(xlUp).Row

For i = rowcount10 + 1 To rowcount11
   If InStr(1, Range("B" & i), "Car") Or InStr(1, Range("B" & i), "Cat") Or InStr(1, Range("B" & i), "Horse") Then
      rowcount12 = Cells(Rows.Count, 1).End(xlUp).Row
      Cells(i, 1).Value = Range("A" & rowcount12).Value + 1
   End If
Next i

Thanks, it works great! Just one more question. How do I get back to my original cells(rowcount10, 1)? Since it is a loop the values in column A starts to fill, but after it ends I need to get back to the original A column, rowcount 10. Is it somehow possible?

 

[Fluff]

As the code doesn't select anything the active cell will never change.
So I'm not quite sure what you mean.