VBA - Help to move text from one column to another!!

Hi there

I'm really new to VBA and could really do with some help on something I am trying to achieve. I thought it would be simple however, I just cant seem to figure it out even after searching the net for hours.

I have names in column A and text in column B, and want to move text from column B to Column C if a certain word is found in column A and everything else from Column B to move to column D if the criteria is not met.

I have this so far that seems to work if I do 1 row at a time, but surely there has to be an easier way:

Public Sub MoveOperatorOver()

Dim Person As String


'For row 1
Person = Range("A1").Value

If Person = "Operator" Then
Range("B1").Cut Range("C1")

Else: Range("B1").Cut Range("D1")

End If


'For row 2
Person = Range("A2").Value

If Person = "Operator" Then
Range("B2").Cut Range("C2")

Else: Range("B2").Cut Range("D2")

End If



End Sub




Any help would be greatly appreciated!!!

Many thanks in advance!!

Using something more like you have already, one way would be to create a loop;

Please Login or Register  to view this content.

Originally Posted by chojintrog

I have this so far that seems to work if I do 1 row at a time, but surely there has to be an easier way:

Formula based code

Please Login or Register  to view this content.

Wow!! 3 different methods from 3 different countries and the methods all work!! Thank you so much guys, this is just what I needed! I actually spent almost all day on this yesterday and tried to get loops in and all sorts, but couldn't get it to work.

Much appreciated, you've all been a great help!!