If Cell = "X" then copy from column Y and Paste into last row on another tab

[gheyman]

I have a table "Task_List" where the user will enter an X in column B if they want to use the data from that applicable row

How do I look down column B and where there is an X, copy the value in column Y and Paste it to tab "PBoMTaskList" (or sheet15) starting in B11 - looping through column B to find each time there is an X

Thank you for the help.

Sub PBOMTASKLISTID()

Dim lrow As Long

lrow = Sheet14.Range("Task_List").Columns(3).Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row



End Sub

 

[gheyman]

Partly there, but I cannot get it to paste

Sub PBOMTASKLISTID()

Dim lrow1 As Long
Dim lrow2 As Long
Dim iCount As Integer

lrow1 = Sheet14.Cells(Rows.Count, "C").End(xlUp).Row
lrow2 = Sheet15.Cells(Rows.Count, "B").End(xlUp).Row


    For iCount = 15 To lrow1

        If Cells(iCount, 2) = "X" Then Cells(iCount, 25).Copy
        

        Sheet15.Range("B" & lrow2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
          Application.CutCopyMode = False
        
    Next iCount

End Sub

 

[gheyman]

Getting closer but still do not have it

Sub PBOMTASKLISTID()

Dim lrow1 As Long
Dim lrow2 As Long
Dim iCount As Integer

lrow1 = Sheet14.Cells(Rows.Count, "C").End(xlUp).Row
lrow2 = Sheet15.Cells(Rows.Count, "B").End(xlUp).Row


    For iCount = 15 To lrow1

        If Cells(iCount, 2) = "X" Then Sheet15.Range("B" & lrow2).Value = Cells(iCount, 25).Value
        
    Next iCount

End Sub

 

[kweaver]

What about this:

Sub PBOMTASKLISTID()

Dim lrow As Long, i As Long, iRow

lrow = Worksheets("Task_List").Cells(Rows.Count, "B").End(xlUp).Row
iRow = 11
For i = 1 To lrow
  If Cells(i, "B") = "X" Then
    Worksheets("PBoMTaskList").Cells(iRow, "B") = Worksheets("Task_List").Cells(i, "Y")
    iRow = iRow + 1
  Else
  End If
Next i

End Sub

 

[gheyman]

Thank you!