Search for text, then insert value in previous cell

[solidENM]

Hello,
I need some vba that will search sheet1 for specific text in col C, then insert value of 1 into that rows B column.

I tried the manual recording, but that would not step over to previous column. It defines the exact cell i clicked on.


example: search col C (header is description) for word "wood," then insert value 1 into col b (header is qty). this must continue on to find all matches like this. Most files will have 5-10 lines with wood, but it varies.

 

[Fluff]

Glad to help & thanks for the feedback

 

[solidENM]

would you know how I could use this to change the value in cell f, same row that it changed the qty to 1? I would like all the ones that are included in this search to create a part name.

The name will be the contents of cell A1 + part number in col D for that row. I currently have the filename in cell a1, and various other info on the first column. I use these to make the header and footer, then delete the row when its done. I was hoping to use the job name in A1 t

ex:
col F= "A17423 3/16 clear"
col F= "A17423 1/4 clear"
col F= "A17423 2x2 Profile"

 

[Fluff]

Something like this

Sub FndValu()
'solidENM
    Dim lrow As Long
    Dim Cnt As Long
    Dim StrArray As Variant
    Dim Arr As Variant
    
    lrow = Cells.Find("*", After:=Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    StrArray = Array("3/16", "1/4")
    For Cnt = 2 To lrow
        For Each Arr In StrArray
            If Cells(Cnt, 4) Like "*" & Arr & "*" Then
                Cells(Cnt, 2) = Cells(Cnt, 1)
                Cells(Cnt, 6) = Cells(1, 1).Value & " " & Cells(Cnt, 4).Value
            End If
        Next Arr
    Next Cnt

End Sub

 

[solidENM]

thats awesome! Thanks for all the help today.

 

[Fluff]

Glad to help & thanks for the feedback