Move from one row to specified row and column

[RoMarius1981]

Hello
I made a macro to move one row content to another row and column and after I reinstal some programs, it doesn't work anymore.

Sub muta()

' Muta centrul cercului in dreptul ultimei coordonate

Dim Lr As Long, i As Long
Lr = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To Lr
    With Range("A" & i)
        If LCase(.Value) Like "of" Then .Cut Destination = .Offset(-5, 10)
    End With
Next i
End Sub

Anyway I want something like this:
The macro search a row who it content the value "of" and it move the entire row content to the row -5 (up 5 rows) and the column 10
Then it continues searching to the end of the rows.

[AB33]

Please use code tags with your code as per forum's rule.
You are missing a couple of lines
If you start at row 1, you can not go up as row 1 is the first row.
You can cut an entire row and paste in column 10. You can only paste in column A
You may not get "of" values if you are missing asterisk from like.
Cut/delete works well if you loop back ward.

Sub test()

Dim Lr As Long, i As Long
 Lr = Range("A" & Rows.Count).End(xlUp).Row
 For i = 6 To Lr
    With Range("A" & i)
      If LCase(.Value) Like "of" Then .Rows(i).Cut Destination = .Offset(-5, 10)
    End With
 Next i
 End Sub

[RoMarius1981]

Dooesn't work.
Same error at "LCase"

[AB33]

I did not say or indicated the code works. It will never work, copying entire row in to different column other than the first column is impossible in excel.
There are also other reasons for the code not to work. For e.g. like with *.

Try

Sub test()

Dim Lr As Long, i As Long
Application.ScreenUpdating = 0
    With ActiveSheet
        Lr = .Range("A" & .Rows.Count).End(xlUp).Row
        For i = 6 To Lr
             If LCase(.Cells(i, 1)) Like "of" Then
               .Rows(i).Copy
               .Cells(i, 1).Offset(-5, 0).PasteSpecial xlValues
               .Rows(i).Clear
             End If
        Next i
     End With
 Application.ScreenUpdating = 0
End Sub

[RoMarius1981]

I tried
Nothing
Still same error at LCase
And I tell you; this code worked perfectly till I reinstalled office

[Trebor76]

And I tell you; this code worked perfectly till I reinstalled office

Ensure there are no missing references in the Visual Basic Editor (VBE) via these four steps:

1. If it isn't already open the file with the macro and go into the VBE (Alt + F11)
2. From the Tools menu select References
3. Scroll down the list of Available References and unclick any that have MISSING in their name
4. After each reference with MISSING in their name have been unticked, click OK and then from the File menu click Close and Return to Microsoft Excel

HTH

Robert

[AB33]

Could you please attach your sample in order to test it?

[Fotis1991]

AB33 asked for you to use code tags around your code. Is there a particular reason that you ignored his request? Pls do it in your code in your first post!

[RoMarius1981]

Here it is the file

[AB33]

As I said, your condition is wrong.
What is "of"? I could not see any cell in column A, in sheet Main? The code will loop through column A, but will return nothing as there is no row to match.
I see words like comman,ID, figures and etc, but not a word with "of"? on it.
It has to be like a asterisk then the word you are looking for and then possibly another asterisk