Code to Update if Positive

[EssKayKay]

Is it possible to update a column of IF statements to the "number" where the IF statement returns a positive value, otherwise leave it as an IF statement (probably via VBA code)?

This is an abridged version of the IF statement “=IF(C33=$K$9,$K$10,0)”.

Thanks,
SKK

 

[Fluff]

How about, something like

Sub EssKayKay()
   Dim Cl As Range
   
   For Each Cl In Range("L2", Range("L" & Rows.count).End(xlUp))
      If Cl > 0 Then Cl.Value = Cl.Value
   Next Cl
End Sub

 

[EssKayKay]

Thanks Fluff for your response. Please bear with me a bit but what am I to do with this code? I assume I have to define the range but where does that go?

 

[Fluff]

What range do you want it to work on?

 

[EssKayKay]

What range do you want it to work on?

Range (I33:I1500)

 

[Fluff]

In that case, try

Sub EssKayKay()
   Dim Cl As Range
   
   For Each Cl In Range("I33:I1500")
      If Cl > 0 Then Cl.Value = Cl.Value
   Next Cl
End Sub

 

[EssKayKay]

In that case, try

Sub EssKayKay()
   Dim Cl As Range
   
   For Each Cl In Range("I33:I1500")
      If Cl > 0 Then Cl.Value = Cl.Value
   Next Cl
End Sub

Excellent that appears to be doing it. I added some code to run your code if the value in a specific cell is updated. It also appears to be working. Here's what I added.

'====================================
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$10" Then
EssKayKay
End If
End Sub
'=====================================

Again, thank you very much Fluff....

 

[Fluff]

You're welcome & thanks for the feedback