Copying/Moving data on a worksheet

Hi,

I need a VBA solution to look at Column L and if any row contains the word "NULL", copy the word "NULL" to Column "R" then copy whatever is in Column K to Column L.

Thanks in advance,

swjtx99Example.xlsx

Microsoft ExcelVB Script

Last Comment

swjtx99

8/22/2022 - Mon

fabriciofonseca

12/23/2014

Create a Macro and add the code below:

Dim Myrow As Long
Myrow = 1
While Range("L" & Myrow).Value <> ""
If UCase(Range("L" & Myrow).Value) = "NULL" Then Range("R" & Myrow).Value = "Null"
Range("L" & Myrow).Value = Range("K" & Myrow).Value
Myrow = Myrow + 1
Wend

Regards

fabriciofonseca

12/23/2014

Sorry... I forgot to close the "if". Please use the code below:

Dim Myrow As Long
Myrow = 1
While Range("L" & Myrow).Value <> ""
If UCase(Range("L" & Myrow).Value) = "NULL" Then
Range("R" & Myrow).Value = "Null"
Range("L" & Myrow).Value = Range("K" & Myrow).Value
End If
Myrow = Myrow + 1
Wend

swjtx99

12/23/2014

ASKER

Hi fabriciofonseca,

Sorry, I just found I have some blanks (empty cells in column L) and the code stops at the first blank. Can this be revised to go from the bottom up or skip any blanks in column L?

Thanks,

swjtx99

Your help has saved me hundreds of hours of internet surfing.

fblack61

ASKER CERTIFIED SOLUTION

fabriciofonseca

12/23/2014

THIS SOLUTION ONLY AVAILABLE TO MEMBERS.

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

See Pricing Options

Start Free Trial

GET A PERSONALIZED SOLUTION

Ask your own question & get feedback from real experts