[RESOLVED] Insert a cell based on condition

[jakefuller]

Hi. I want to insert a cell based on what is found in column K.

Here is my code, not sure how to tweak it.

 

    Dim ws As Worksheet
    Dim LastRow As Long
    Dim j As Long
    
    Set ws = ActiveSheet
    LastRow = ws.Range("K" & Rows.Count).End(xlUp).Row
    
    For j = LastRow To 1 Step -1
        If Left(ws.Range("K" & j).Value, 2) = "PF" Then
            ws.Cells("K" & j).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next j

also, i would kind of like if the cell was inserted with some text.

Thanks alot.

[vbfbryce]

Change this:

ws.Cells("K" & j).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

to this:

ws.Range("K" & j).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

if you want to move all cells in that row from K on to the right.

What text do you want added?

[jakefuller]

The test would say "finance."

Thanks!

[vbfbryce]

then add:

ws.range("k" & j).value="finance"

after the line which inserts a blank cell.

[jakefuller]

thanks once again vbfbryce!