If a cell has specific text & another cell is empty then add value to that empty cell

[ipbr21054]

Morning,
I am looking for a code that will do the following.
Check for a specific value in a cell & on that same row check if another cell is empty or not.
If empty we need to write a value to that cell

So the text value to search for is DELIVERED NO SIG
It will be in column G
On the same row see if the cell at column L is empty or has a value.
If empty add a new text value to that cell NOW OPEN A CLAIM
If that cell has a value then exit sub.
Continue to search for another DELIVERED NO SIG.

The code best run from last row of values then up the page.

Many Thanks

 

[kvsrinivasamurthy]

Try this macro code.

Sub Fill_L_column()
Dim Rng As Range
Dim T&, Lr&
Application.ScreenUpdating = False
Lr = Range("G" & Rows.Count).End(xlUp).Row
For T = Lr To 2 Step -1
If Range("G" & T) = "DELIVERED NO SIG" And Range("L" & T) = "" Then Range("L" & T) = "NOW OPEN A CLAIM"
Next T
Application.ScreenUpdating = True
End Sub

 

[ipbr21054]

Perfect many thanks

 

[kvsrinivasamurthy]

Thanks for feed back. Try This faster code.

Sub Fill_L_column()
Dim Rng As Range
Dim T&, Lr&
Application.ScreenUpdating = False
Lr = Range("G" & Rows.Count).End(xlUp).Row
For T = Lr To 2 Step -1
If Range("G" & T) = "DELIVERED NO SIG" And Range("L" & T) = "" Then S = S & ",L" & T
If Len(S) > 240 Or T = 2 Then Range(Mid(S, 2)) = "NOW OPEN A CLAIM"
Next T
Application.ScreenUpdating = True
End Sub

 

[ipbr21054]

Variable not defined when i try that ?

Private Sub Worksheet_Activate()
    
        
Dim Rng As Range
Dim T&, Lr&
Application.ScreenUpdating = False
Lr = Range("G" & Rows.count).End(xlUp).Row
For T = Lr To 2 Step -1
If Range("G" & T) = "DELIVERED NO SIG" And Range("L" & T) = "" Then S = S & ",L" & T
If Len(S) > 240 Or T = 2 Then Range(Mid(S, 2)) = "NOW OPEN A CLAIM"
Next T
Application.ScreenUpdating = True

    
End Sub

 

[kvsrinivasamurthy]

Try.

Sub Fill_L_column()
Dim Rng As Range
Dim T&, Lr&, S$
Application.ScreenUpdating = False
Lr = Range("G" & Rows.Count).End(xlUp).Row
For T = Lr To 2 Step -1
If Range("G" & T) = "DELIVERED NO SIG" And Range("L" & T) = "" Then S = S & ",L" & T
If S <> "" Then
If Len(S) > 240 Or T = 2 Then Range(Mid(S, 2)) = "NOW OPEN A CLAIM": S = ""
End If
Next T
Application.ScreenUpdating = True
End Sub

 

[ipbr21054]

That worked Thanks