Copy all the rows with values "Questioned", "TechHold", and "OnHold" in Column A of Sheetname "Activity Tracker"

[papajups]

Hi All,

Good day!

I'm a beginner in Excel that's why I would like to seek for your help and expertise regarding below concern. I tried to search for answers as well from existing posts but I wasn't able to find one. I'm hoping that you can help me.

What I wish to happen is to copy all the rows with values "Questioned", "OnHold", and "TechHold" in Column A of Sheet "Activity Tracker" and paste it all in column B3 of Sheetname "Pending Asia".

Any help will be highly appreciated. Thanks a lot in advance!

regards,

papajups

 

[farmerscott]

Hello,

do you mean that you want the information pasted into Col B starting at row 3?

thx

FarmerScott

 

[farmerscott]

try the following. Adjust the Col number (in red) to suit your range-

Sub extract_Questioned_OnHold_TechHold()
Dim x As Integer
Dim y As Integer
y = 3
lr = Worksheets("Activity Tracker").Cells(Rows.Count, "A").End(xlUp).Row

For x = 1 To lr
    If Cells(x, 1).Value = "Questioned" Or Cells(x, 1).Value = "OnHold" Or Cells(x, 1).Value = "TechHold" Then
'adjust Col number (in red below) to suit your range.
    Range(Cells(x, 1), Cells(x, [COLOR=#ff0000]12[/COLOR])).Copy Worksheets("Pending Asia").Range("B" & y)
    y = y + 1
   
     End If
Next x
End Sub

FarmerScott

 

[papajups]

Hi FarmerScott,

You are really great!

With all sincerity in me, thank you so much. This will really help me a lot.

Again, my deepest appreciation.


best regards,
papajups

 

[farmerscott]

glad i could help.