Copy to a cell, based on the value of another C

[rdev]

****

This text is found in Column C3 "*2050_Land and Building"
If "_" is present it cannot be copied to cell B3, else C3 is copied in Column B3, The macro should find out the last row in column C and repeat the process through out the whole of column C.
I cannot figure a vba code for this and am asking for a help

 

[Tetra201]

Is this what you need?

Sub Test()
    For Each cll In Range("C1:C" & Range("C" & Rows.Count).End(xlUp).Row)
        If Not cll Like "*_*" Then cll.Offset(, -1) = cll
    Next cll
End Sub

 

[My Aswer Is This]

Try this:

Sub Copy_Over()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "C").End(xlUp).Row
    For i = 1 To Lastrow
        If InStr(Cells(i, 3).Value, "_") Then
            Else
                Cells(i, "B").Value = Cells(i, "C").Value
        End If
    Next
Application.ScreenUpdating = True
End Sub

 

[rdev]

Try this:

Sub Copy_Over()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "C").End(xlUp).Row
    For i = 1 To Lastrow
        If InStr(Cells(i, 3).Value, "_") Then
            Else
                Cells(i, "B").Value = Cells(i, "C").Value
        End If
    Next
Application.ScreenUpdating = True
End Sub

Thanks you very much, it works and was a great help

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

Thanks you very much, it works and was a great help