D
Darin Kramer
Good Morning all!
Question is why is this Macro (Originally done by Tom, attempted
modification by me ) skipping a column before pasting its results..?
It opens a book, selects cells from Analysis sheet, and pastes it into
the existing open book first worksheet. Does the same thing for a second
sheet, but pasting it into exisitng open bok, second worksheet. Then
closes source. Then repeats.
For some reason it pastes into every second column, ie pastes into
column A, then column C, then column E. It does this on both 1st and 2nd
sheets its pasting into.... I need it to paste into every column, not
every second column
Any ideas...?
Regards
Darin
Sub consolidator3()
'CONSOLIDATES ANALYSIS and STATS SHEET
Dim i As Long, sName As String, sh As Worksheet
Dim dest As Range, bk As Workbook, bk1 As Workbook
Dim sh1 As Worksheet
Set bk1 = ThisWorkbook
i = 1
sName = Dir("D:\Documents and
Settings\dk\Desktop\Consolidation_AR_test_files\*.xls")
Do While sName <> ""
Set bk = Workbooks.Open("D:\Documents and
Settings\dk\Desktop\Consolidation_AR_test_files\" & sName)
Set sh = bk.Worksheets("Analysis")
Set dest = ThisWorkbook.Worksheets(1).Cells(1, i)
i = i + 1
sh.Columns(3).Copy
dest.PasteSpecial xlValues
dest.PasteSpecial xlFormats
' write name of the workbook in row 1
dest.Value = sName
'now get stats and paste into Second Worksheet in book (RM stats)
Set sh = bk.Worksheets("stats")
Set dest = ThisWorkbook.Worksheets(2).Cells(1, i)
i = i + 1
sh.Columns(4).Copy
dest.PasteSpecial xlValues
dest.PasteSpecial xlFormats
bk.Close SaveChanges:=False
sName = Dir()
Loop
ThisWorkbook.Worksheets(1).Name = "Consol_AR"
ThisWorkbook.Worksheets(2).Name = "Sum_Stats" '
End Sub
Question is why is this Macro (Originally done by Tom, attempted
modification by me ) skipping a column before pasting its results..?
It opens a book, selects cells from Analysis sheet, and pastes it into
the existing open book first worksheet. Does the same thing for a second
sheet, but pasting it into exisitng open bok, second worksheet. Then
closes source. Then repeats.
For some reason it pastes into every second column, ie pastes into
column A, then column C, then column E. It does this on both 1st and 2nd
sheets its pasting into.... I need it to paste into every column, not
every second column
Any ideas...?
Regards
Darin
Sub consolidator3()
'CONSOLIDATES ANALYSIS and STATS SHEET
Dim i As Long, sName As String, sh As Worksheet
Dim dest As Range, bk As Workbook, bk1 As Workbook
Dim sh1 As Worksheet
Set bk1 = ThisWorkbook
i = 1
sName = Dir("D:\Documents and
Settings\dk\Desktop\Consolidation_AR_test_files\*.xls")
Do While sName <> ""
Set bk = Workbooks.Open("D:\Documents and
Settings\dk\Desktop\Consolidation_AR_test_files\" & sName)
Set sh = bk.Worksheets("Analysis")
Set dest = ThisWorkbook.Worksheets(1).Cells(1, i)
i = i + 1
sh.Columns(3).Copy
dest.PasteSpecial xlValues
dest.PasteSpecial xlFormats
' write name of the workbook in row 1
dest.Value = sName
'now get stats and paste into Second Worksheet in book (RM stats)
Set sh = bk.Worksheets("stats")
Set dest = ThisWorkbook.Worksheets(2).Cells(1, i)
i = i + 1
sh.Columns(4).Copy
dest.PasteSpecial xlValues
dest.PasteSpecial xlFormats
bk.Close SaveChanges:=False
sName = Dir()
Loop
ThisWorkbook.Worksheets(1).Name = "Consol_AR"
ThisWorkbook.Worksheets(2).Name = "Sum_Stats" '
End Sub