May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.
Set wbk1 = ActiveWorkbook Set wsht1 = wbk1.Sheets("Sheet1") Set wbk3 = Workbooks.Open(wbk3path) 'Interface workbook Set wsht3 = wbk3.Sheets(1) wsht3.Range("A1:AA2").Formula = wsht1.Range("A1:AA2").Value wsht1.Range("A1").EntireRow.Delete wsht1.Range("A1").EntireRow.Delete Do I = wsht1.Range("A1") wsht1.Range("C1:AA1").Copy K = wsht3.Columns("A:A").Find(What:=I, lookat:=xlWhole) wsht3.Range(K).Offset(0, 2).PasteSpecial xlPasteValues wsht1.Range("A1").EntireRow.Delete Loop Until I = ""
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.