VBA to Copy and Paste Rows if Conditions are Met

[lpw0806]

Hi -

I am a first time poster on this site. I am still pretty green to VBA, but am learning and have made some small / short macros. I am familiar with SQL if that helps at all.

Right now I have a file with a "Raw Data" tab. I'd like to have a macro that states something like "IF Column A = "75" and Column B = "West" and Column C = "Local" etc etc then:

1) Create a new sheet titled 75
2) Paste that data into this new sheet.
--- note: Ideally I'd like to copy a handful of columns on the Raw Data tab instead of all of them.

I think there will need to be a "loop" involved here? Also - the number of rows is not sedentary and will always change.

Thanks in advance for the help on this!!! Much appreciated!

 

[lpw0806]

So close!!

What is happening is that the Sheet 1 tab (Raw Data) is being formatted incorrectly and thus the output is being formatted incorrectly now. Is there away to apply the formatting to only sheets 50,75,85,95 and 100? And exclude the Raw Data tab?

Thank you!!!

 

[lpw0806]

Actually -- please disregard my last post. I was pasting in the Raw Data incorrectly.

This works PERFECTLY

THANK YOU SO SO SO SO SOOOOO MUCH

 

[Fluff]

Glad to help & thanks for the feedback

 

[lpw0806]

Hi Again -

So I have a follow up question. I explained it in more detail in another post (https://www.mrexcel.com/forum/excel...data-into-tab-based-criteria.html#post5091078) - but thought I'd try and follow up here since it is similar to this macro you helped me with.

I got pretty far - but am having a hard time with

1) Matching the correct CM PROD (Column Q) to the correct category
2 ) Trying to combine this into one macro - Do I need 4 separate ones for each category?

Thank you!!!!

Sub Opportunities()
'
' Opportunities Macro


' Clear Data from Sheet
Sheets("Opportunities").Cells.Clear


' Filter Seller POD
Dim ary As Variant
Dim i As Long
ary = Array("Auto", "Multi", "Tech", "Lifestyle")

For i = 0 To UBound(ary)
With Sheets("Raw Data")
If .AutoFilterMode Then .AutoFilterMode = False
With .Range("A1:W1")
.AutoFilter 11, ">=" & 75
.AutoFilter 19, ary(i)
End With




Intersect(.AutoFilter.Range, .Range("A:A,C:C,S:S")).Copy Sheets("Opportunities").Range("A1")
.AutoFilterMode = False
End With
Next i


End Sub

 

[Fluff]

Please do not post the same question multiple times.

 

[lpw0806]

I understand - this is different. It is allocating the $ in one column to a column on a new sheet based on criteria. Make sense?

 

[Fluff]

What I meant was, you already have a thread for the new question (which you supplied the link for), so you should not ask that here as well.

 

[lpw0806]

Got it. Understood. Sorry about that. Just looking for answers on my second question and thought I'd ask since you were so helpful last time. Thank you!