VBA Search for match, if found, clear content in match rows

[Engalpengal]

Hello.
I am working on a project, where i want to track products in our factory.
The process start by me loading orders in a workbook called "Ordre"
It is a list of products with information spread out in rows C:P - See Pic 1
When a process is done, a date is filled in Q:AF depending on witch prosess that is completed (VBA program). These columns is hidden. - See Pic 2
In column AH:AV I have excel formulas that shows If the product should go throug the process (No=x, Yes=Process desc ex. PR), or if the process is done(Done=V). - See Pic 3

Ex of formulas: =IF(C22<1;"";IF(AE22>1;"V";XLOOKUP(F22;BOM!A:A;BOM!AC:AC;"x";0)))

With a click of a button all Product lines With "V" in column AV (the last process) is copied into av workbook called History.

Now i need to cleare (ClearContents) the same lines that was copied into History, from workbook "Ordre".

Under follows my attempt.
The program does not give me an Error, but nothing happens either, other than the workbook is thinking.
So what am i doing wrong?

Sub Fjern_ferdig()

unprotect
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

Dim wbo As Workbook
Dim wsSrc As Worksheet
Dim i As Integer

Set wbo = ThisWorkbook
Set wsSrc = wbo.Worksheets("Ordre") '______________________________________________________Sheet for search area
Set srcKey = wsSrc.Range("AV8") '___________________________________________________________Search key (The cell contains the letter V)

finalrow = wsSrc.Range("AV1000").End(xlUp).Row '__________________________________________Setting search area (These cells contains excel formulas)

For i = 48 To finalrow
    If Cells(i, 48) = srcKey Then
        wsSrc.Range(Cells(i, 3), Cells(i, 32)).ClearContents
    End If
Next i

Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
protect
ActiveWorkbook.Save

End Sub

Sub unprotect()
ActiveSheet.unprotect "1234"

End Sub

Sub protect()
ActiveSheet.protect "1234"

End Sub

 

[Georgiboy]

Maybe try as below:

With wsSrc
    For i = 48 To finalrow
        If .Cells(i, 48) = srcKey Then
            .Range(.Cells(i, 3), .Cells(i, 32)).ClearContents
        End If
    Next i
End With

 

[Engalpengal]

Thank you Georgiboy for fast respond.

When i removed wsSrc i received an Compile error
Invalid or unqualified reference

 

[Engalpengal]

Can VBA read cells with formulas?

 

[Georgiboy]

Did you include the 'With' lines?

Try replacing:

For i = 48 To finalrow
    If Cells(i, 48) = srcKey Then
        wsSrc.Range(Cells(i, 3), Cells(i, 32)).ClearContents
    End If
Next i

With:

With wsSrc
    For i = 48 To finalrow
        If .Cells(i, 48) = srcKey Then
            .Range(.Cells(i, 3), .Cells(i, 32)).ClearContents
        End If
    Next i
End With

 

[Engalpengal]

Oh i missed that.
Tried now, but still nothing happens.
It seems like the program is running. But i dont think it finds any match.

 

[kevin9999]

For i = 48 To finalrow

If Cells(i, 48) = srcKey Then

This means you're starting your search from row 48. Is that what you want?

 

[Engalpengal]

Oh no, i thought column no, not row no.

That is why you are pro and i am still newbie
Thank you so much Kevin

 

[kevin9999]

Glad we could help & thanks for the feedback

 

[Engalpengal]

For MrExcel i will post final solution soon. Just need to do a adjustments before presenting it.