VBA to lookup content, copy entire row containing data, insert copied rows into different workbook

jwillisatl

New Member
Joined
Oct 15, 2021
Messages
1
Office Version
  1. 365
Platform
  1. MacOS
Hi! We have multiple workbooks that we work in:
1) Master Expenses. This is where every transaction from the bank account is put into. Each transaction is then labeled with he corresponding "project" or "property".
2) Property Specific Expenses. Each project/property has its own spreadsheet with expenses from the Master Expenses workbook.

We are currently taking the time to filter on the Master by each property, go to the property specific workbook, copy the rows from Master and insert them into the property specific workbook. Theres gotta be a more efficient way to do this. I am thinking a macro where excel looks for the address in the Master Expenses and then copies/inserts into the corresponding workbook. Possible? Is there another way this could be done?

MASTER EXPENSES:

Master Expenses - External.xlsm
ABCEGHI
1DateCheck NumberDescriptionAmountCommentsPropertyUploaded
210/7/21Roc Cabinetry 3468CabinetsYes410 Bayfront PlaceYes
310/5/21Bagwell Insuran 3468Insurance - 3 MonthsYes
410/4/21City of Cumming 3468Utility Set UpStatement410 Bayfront PlaceYes
510/1/21Wire TransferPurchase Proceeds?Statement13206 Front BeachYes
69/30/219224PiaMaherasRealtor, LLCFinal Pay - PurchaseYes410 Bayfront PlaceYes
79/29/219208Keller Williams Community PartnersEarnest MoneyYes2482 Collins Port CoveYes
810/8/21Apartments.com Taylor$1,075.00Rent (OCT21)5635 Quail TrailStatement
910/8/21State Farm Ins 3468-$398.016 Months Insurance2835 Browne CircleYes
1010/8/21The Home Depot 5200$36.60Material Refund410 Bayfront PlaceYes
1110/8/21State Farm Ins 3468-$446.956 Months Insurance80 Oakmont DriveYes
1210/7/219218Dillon Martin-$400.00Yard Clean Up2482 Collins Port CoveYes
1310/7/2110001NG Key Works-$149.00Rekey4617 Forest PlaceYes
1410/7/219231Quality Window Service-$145.00Window410 Bayfront PlaceYes
1510/7/21Apartments.com Sullivan$1,700.00Rent (OCT21)103 Crain DriveStatement
1610/7/21Apartments.com Davis$1,515.00Rent (OCT21)9145 Pine Tree CircleStatement
1710/7/21Roc Cabinetry 3468-$1,064.17Cabinets1590 Hughes DriveYes
1810/7/21Foreclosure Bid 8999-$93.00FeeBusinessStatement
1910/6/21Barnesnoble Xx 3468-$111.21Books410 Bayfront PlaceYes
2010/6/21Caffemilanoofna 3468-$40.64Contractor Meal410 Bayfront Place
2110/6/219232Michael W Davis-$740.00Labor410 Bayfront PlaceYes
2210/6/219230Slider Genie-$348.00Sliding Door?410 Bayfront PlaceYes
2310/6/21Bayfront Inn 5t 3468-$97.24Contractor Lodging410 Bayfront Place
2410/6/21Apartments.com Dole$1,400.00Rent (OCT21)6512 Millwood RoadStatement
2510/6/21The Home Depot 3468-$15.66Materials410 Bayfront PlaceYes
2610/6/21Bayfront Inn 5t 3468-$13.64Contractor Lodging410 Bayfront Place
2710/6/21Bayfront Inn 5t 3468-$221.76Contractor Lodging410 Bayfront Place
2810/5/21Gulf Power Elec Pymts-$270.17Utilities (OCT21)13206 Front BeachYes
2910/5/21Dillards 216 Co 3468-$14.98Bedding410 Bayfront PlaceYes
3010/5/21Target X 3468-$318.09Rugs/Mirrors410 Bayfront PlaceYes
3110/5/2110002Cindy Vankempen-$1,203.00Labor410 Bayfront PlaceYes
3210/5/219217Cindy Vankempen-$100.00Labor2727 Bettis Tribble GapYes
3310/5/219219Hadinger Flooring-$7,673.46Floor Work410 Bayfront PlaceYes
3410/5/21Jcpenney x 3468-$38.50Cooler410 Bayfront PlaceYes
Transactions
Cells with Conditional Formatting
CellConditionCell FormatStop If True
E8:E11Cell Value=0textNO
E12:E1082Cell Value=0textNO




EXAMPLE PROPERTY SPECIFIC:
Proeprty Specific - External.xlsm
ABCDEFG
1DateCheck NumberDescriptionAmountCommentsPropertyUploaded
210/7/21Roc Cabinetry 3468-$1,064.17Cabinets1590 Hughes DriveYes
310/5/21Bagwell Insuran 3468-$628.00Insurance - 3 Months1590 Hughes DriveYes
410/4/21City of Cumming 3468-$125.00Utility Set Up1590 Hughes DriveStatement
510/1/21Wire Transfer-$5,000.00Purchase Proceeds?1590 Hughes DriveStatement
69/30/219224PiaMaherasRealtor, LLC-$200.00Final Pay - Purchase1590 Hughes DriveYes
79/29/219208Keller Williams Community Partners-$5,000.00Earnest Money1590 Hughes DriveYes
8
9
10
11
12
13
14
Transactions
Cells with Conditional Formatting
CellConditionCell FormatStop If True
D2:D7Cell Value=0textNO
 

Excel Facts

Round to nearest half hour?
Use =MROUND(A2,"0:30") to round to nearest half hour. Use =CEILING(A2,"0:30") to round to next half hour.

Forum statistics

Threads
1,224,823
Messages
6,181,181
Members
453,022
Latest member
Mohamed Magdi Tawfiq Emam

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top