Home |
Search |
Today's Posts |
#1
![]() |
|||
|
|||
![]()
Me again (sorry, I've been posting quite a bit, I know - but I'm almost finished).
Below is the macro I have. When I run it, it opens a spreadsheet in another folder and pulls from it, then opens a new workbook to paste it into. What I'd like to do is have the data paste into the workbook the macro is being run from. So, no new workbook. I'd like it to paste into the current/active workbook, the one with the macro in it (and it would be nice if I could specify the range it pastes into too - starting A5 to Q5, for example. I think part of the problem is the add part below, but I've replaced it with "active workbook" (and a dozen variations) and it only errors out. Sub Button6_Click() Dim TheAnswer As String Set wb1 = Workbooks.opm (Filename:="blahblahblah.xlsm" Dim working As Worksheet, dumping As Workbook Set working = ActiveSheet TheAnswer = LCase$(InputBox("Enter state below")) Set dumping = Workbooks.Add <-------------------------is this the problem? For x = 1 To 17 working.Rows(x).EntireRow.Copy dumping.Activate ActiveSheet.Paste ActiveCell.Offset(1).Select Next For x = 1 To working.Cells.SpecialCells(xlCellTypeLastCell).Row If LCase$(working.Cells(x, 8).Value) = TheAnswer Then working.Rows(x).EntireRow.Copy dumping.Activate ActiveSheet.Paste ActiveCell.Offset(1).Select End If etc etc etc. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Copy Range from Open Workbook to Active Workbook | Excel Programming | |||
Copy from active sheet and paste into new sheet using info from cell in active | Excel Programming | |||
Colour active row but allow copy / paste | Excel Programming | |||
Copy Paste from Active cell | Excel Programming | |||
copy worksheet from closed workbook to active workbook using vba | Excel Worksheet Functions |