VBA Logic Thread

[Ian.Lance]

Hi,

I'm new to VBA and have been having trouble figuring out how to make this logic work between multiple sheets.
Basically, I have two tables: One on Sheet A and one on Sheet B.

Sheet A needs to be updated in a specific way to include some new data presented by sheet B.

In this case, I ONLY care about updating Columns A and F in Sheet A.
The logic would go as follows:

If Sheet A column B = "Delete Item" then Delete Entire Row.

If Sheet B Column B = "New Rev. Update!" then paste Sheet B Column F into Sheet A column F.
If Sheet B Column B = "Missing Item" and Sheet B Column C = "PCBA Comp" or "Cab Assem Comp" then SKIP THIS ITEM
If Sheet B Column B = "Missing Item" and Sheet B Column C = "Comp", then Copy entire row from Sheet B and paste it into the Bottom of Sheet A


I know this is a lot, but I could use some hints!
Thanks!!!



ExampleIMAGE.png

[Richard Buttrey]

The approach I generally use is to use an Advance Filter on the Data
e.g.
Either
Sheet1.Range("Data").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet2.Range("DataOut"), CriteriaRange:=Sheet2.Range("crit")
Or
Sheet1.Range("Data").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheet2.Range("crit")

The above uses a range called "Crit" so use a helper column or columns in your "Data" range to identify the particular rows you want to filter.

Then use code like

Range("Data").SpecialCells(xlCellTypeVisible).Offset(1,0).Copy
Range("A1").SpecialCells(xlCellTypeVisible).Offset(1,0).Rows.Delete