IF > Value Put in Cell

[tfowlerusa]

I have a sheet where I am trying to pull only the cell where the value is greater the 3 and put them in column H & I within the same sheet. I have a list in Table 1 where if "F" is > the 3 with conditional formatting on. Is there a way to pull only data from Table 1 with Qty > then 3 and match it like in Table 2 columns "H" & "I"? ( I manually created the columns in Table 2 ) Thank you.

Table 1
[TABLE="class: grid, width: 200"]
<tbody>[TR]
[TD="align: center"]E[/TD]
[TD="align: center"]F[/TD]
[/TR]
[TR]
[TD]<style type="text/css"><!--td {border: 1px solid #ccc;}br {mso-data-placement:same-cell;}--></style>[TABLE="width: 0"]
<tbody>[TR]
[TD="align: center"]Event/Vendor/Tool[/TD]
[/TR]
[TR]
[TD="align: center"]JQ05-AMAT-EMO[/TD]
[/TR]
[TR]
[TD="align: center"]JXD1-AMAT-TSA[/TD]
[/TR]
[TR]
[TD="align: center"]JS07-AMAT-He FLOW[/TD]
[/TR]
[TR]
[TD="align: center"]JS07-AMAT-LOST PLASMA[/TD]
[/TR]
[TR]
[TD="align: center"]JO01-LAM-LOST PLASMA[/TD]
[/TR]
[TR]
[TD="align: center"]JS05-AMAT-IMPEDENCE FAULT[/TD]
[/TR]
[TR]
[TD="align: center"]JQ04-AMAT-HO Defect[/TD]
[/TR]
[TR]
[TD="align: center"]JLD2-AMAT-HEATER[/TD]
[/TR]
[TR]
[TD="align: center"]JO01-LAM-PLY[/TD]
[/TR]
[TR]
[TD="align: center"]JQ04-AMAT-UV Lamp[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]<style type="text/css"><!--td {border: 1px solid #ccc;}br {mso-data-placement:same-cell;}--></style>[TABLE="width: 0"]
<tbody>[TR]
[TD="align: center"]Tx Wafer Qty[/TD]
[/TR]
[TR]
[TD="align: center"]2[/TD]
[/TR]
[TR]
[TD="align: center"]2[/TD]
[/TR]
[TR]
[TD="align: center"]1[/TD]
[/TR]
[TR]
[TD="bgcolor: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FF9900]#FF9900[/URL] , align: center"]8[/TD]
[/TR]
[TR]
[TD="align: center"]2[/TD]
[/TR]
[TR]
[TD="align: center"]2[/TD]
[/TR]
[TR]
[TD="align: center"]2[/TD]
[/TR]
[TR]
[TD="align: center"]2[/TD]
[/TR]
[TR]
[TD="align: center"]1[/TD]
[/TR]
[TR]
[TD="bgcolor: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FF9900]#FF9900[/URL] , align: center"]6[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]

Table 2
[TABLE="width: 200"]
<tbody>[TR]
[TD="align: center"]H[/TD]
[TD="align: center"]I[/TD]
[/TR]
[TR]
[TD]<style type="text/css"><!--td {border: 1px solid #ccc;}br {mso-data-placement:same-cell;}--></style>[TABLE="width: 0"]
<tbody>[TR]
[TD="align: center"]Event/Vendor/Tool[/TD]
[/TR]
[TR]
[TD="bgcolor: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFF00]#FFFF00[/URL] , align: center"]Avg Per Week[/TD]
[/TR]
[TR]
[TD="align: center"]JS07-AMAT-LOST PLASMA[/TD]
[/TR]
[TR]
[TD="align: center"]JQ04-AMAT-UV Lamp[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]<style type="text/css"><!--td {border: 1px solid #ccc;}br {mso-data-placement:same-cell;}--></style>[TABLE="width: 0"]
<tbody>[TR]
[TD="align: center"]Tx Wafer Qty[/TD]
[/TR]
[TR]
[TD="bgcolor: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFF00]#FFFF00[/URL] "][/TD]
[/TR]
[TR]
[TD="bgcolor: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FF9900]#FF9900[/URL] , align: center"]8[/TD]
[/TR]
[TR]
[TD="bgcolor: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FF9900]#FF9900[/URL] , align: center"]6[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]

 

[James_Latimer]

Maybe something like this...

Sub CreateYourTable()
Dim Cntr As Integer


    With Sheets("sheet1")
        .Range("H:I").ClearContents
    
        For Cntr = 1 To Application.WorksheetFunction.CountA(.Range("E:E")) - 1
            If .Range("E1").Offset(Cntr, 1) > 3 Then
                .Range("H1").Offset(Application.WorksheetFunction.CountA(.Range("H:H")), 0).Value = .Range("E1").Offset(Cntr, 0).Value
                .Range("I1").Offset(Application.WorksheetFunction.CountA(.Range("I:I")), 0).Value = .Range("E1").Offset(Cntr, 1).Value
            End If
        Next Cntr
    End With
End Sub