Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy range from each worksheet to seperate workbook
I can't seem to get this code to work. I want to copy a range J12:012 from each worksheet in one workbook, an paste special (values only) into a DIFFERENT workbook, on the next ro down from the previous paste... Sub combine() 'On Error GoTo LASTSHEET Application.ScreenUpdating = False Dim Wkbk As Workbook Dim wksht As Worksheet Dim destWks As Worksheet Dim destCell As Range Dim drow As Integer Set Wkbk = Workbooks("ajx.xls") Set destWks = Workbooks("combined.xls").Worksheets("sheet1") drow = 1 For Each wksht In Wkbk.Worksheets With destWks Set destCell = .Cells(drow, 1) End With Range("J12:O12").Select Selection.Copy destCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone SkipBlanks _ :=False, Transpose:=False drow = drow + 1 Next 'LASTSHEET: End Sub I don't get an error, it just doesn't copy what I want it to. I copies the blank cells J12:o12 in the destination book, to column A. So, it runs for a while as it copies nothing to nothing, countin through the sheets which it ignores... :- -- Kieran102 ----------------------------------------------------------------------- Kieran1028's Profile: http://www.excelforum.com/member.php...fo&userid=1567 View this thread: http://www.excelforum.com/showthread.php?threadid=27727 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I have seperate headers for seperate pages in 1 worksheet? | Excel Discussion (Misc queries) | |||
copy worksheet from closed workbook to active workbook using vba | Excel Worksheet Functions | |||
Need a macro to copy a range in one workbook and paste into another workbook | Excel Programming | |||
Copy a range of cells in an unopened workbook and paste it to the current workbook | Excel Programming | |||
Code to copy range vs Copy Entire Worksheet - can't figure it out | Excel Programming |