fill formula based on fill column until specific row

[Mussa]

Hi Guys
I need fill this formula in column H from H8=F8*G8 until row contains text in column C ="PAID" based on entering in column B .
should stop fill formula until row contains PAID in column C . after fill the formula should show as in value
thanks

 

[DanteAmor]

Hi @Mussa

Try this:

Sub fillforumula()
  Dim f As Range
  
  Set f = Range("C:C").Find("PAID", , xlValues, xlWhole, xlByRows, xlNext, False)
  If Not f Is Nothing Then
    With Range("H2:H" & f.Row)
      .Formula = "=F2*G2"
      .Value = .Value
    End With
  End If
End Sub

 

[Mussa]

Hi
thanks, but it shows the formula in last row "PAID" in column H , shouldn't show .

 

[DanteAmor]

should stop fill formula until row contains PAID in column C

thanks, but it shows the formula in last row "PAID" in column H , shouldn't show .

I didn't understand that part, but the change is minimal.
Change this:

With Range("H2:H" & f.Row)

For this:

With Range("H2:H" & f.Row -1)

 

[Mussa]

umm, you seem to understood me the formula should add until to lastrow contains PAID .
sorry for my bad explanation !!
thank you very much for your help & support