Trying to fill values to cells

[Darren Smith]

I am trying to say if cell A10 is under 3200 then fill in 6 to selected cells if not then 8
For some reason, nothing happens?
If it helps I could send the workbook?

Private Sub HingeQty()

Dim ws As Worksheet
Dim iRow As Integer


Set ws = ThisWorkbook.Worksheets("Job Card Master")

With ws

If .Range("A10") <= 3200 Then


    iRow = .Range("E13:F" & .UsedRange.Rows.Count).Find("SIDEBOARD", LookIn:=xlValues, lookat:=xlWhole).Row
    iRow = iRow + 4
    .Cells(iRow, 8) = 6
    .Cells(iRow + 1, 8) = 6
    Else
    iRow = .Range("E13:F" & .UsedRange.Rows.Count).Find("SIDEBOARD", LookIn:=xlValues, lookat:=xlWhole).Row
    iRow = iRow + 4
    .Cells(iRow, 8) = 8
    .Cells(iRow + 1, 8) = 8
   
End If
End With

End Sub

 

[Darren Smith]

Sorry, this is now sorted. Had the wrong column in the code.

 

[Peter_SSs]

Glad to hear you got the solution.

Do you mind posting your corrected code? Then it is perfectly fine to mark your post as the solution to help future readers.
The tick marks are to mark the actual solution, not just the fact that you have found a solution.

 

[Darren Smith]

Private Sub HingeQty()


Dim iRow As Integer
Dim RangeRow As Range
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Job Card Master")

If ws.Range("A10") <= 3200 Then


    Set RangeRow = ws.Range("C13:C" & ws.UsedRange.Rows.Count).Find("SIDEBOARD", LookIn:=xlValues, lookat:=xlWhole)
    If Not RangeRow Is Nothing Then
    iRow = RangeRow.Row + 3
    ws.Cells(iRow, 8) = 6
    ws.Cells(iRow + 1, 8) = 6
    Else
    Set RangeRow = ws.Range("C13:C" & ws.UsedRange.Rows.Count).Find("SIDEBOARD", LookIn:=xlValues, lookat:=xlWhole)
    If Not RangeRow Is Nothing Then
    iRow = RangeRow.Row + 3
    ws.Cells(iRow, 8) = 8
    ws.Cells(iRow + 1, 8) = 8
    End If
    End If
    
    Set RangeRow = ws.Range("C13:C" & ws.UsedRange.Rows.Count).Find("SIDEBOARD-DROPSIDE", LookIn:=xlValues, lookat:=xlWhole)
    If Not RangeRow Is Nothing Then
    iRow = RangeRow.Row + 3
    ws.Cells(iRow, 8) = 6
    Else
    Set RangeRow = ws.Range("C13:C" & ws.UsedRange.Rows.Count).Find("SIDEBOARD-DROPSIDE", LookIn:=xlValues, lookat:=xlWhole)
    If Not RangeRow Is Nothing Then
    iRow = RangeRow.Row + 3
    ws.Cells(iRow, 8) = 8
    End If
    End If
    End If