Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy information from a specific range; not the entire worksheet.
I found the macro below on this site, and it is just what I've been
looking for. But... I need one modification, and would appreciate if you could help me. The macro below copy information starting in cell A5. I need the macro to copy all information in the range B5:C??? only, and not from all other columns in each sheet. The sign ??? is the last row used in each sheet. Sub CombineSheets() Dim counter As Long Dim i As Integer Dim copyrange As Range Dim actsheet As Worksheet Dim sh As Worksheet Set actsheet = Worksheets("Master") counter = 2 actsheet.Cells.ClearContents For i = 2 To ThisWorkbook.Sheets.Count - 1 Set sh = Worksheets(i) Set rng = Nothing On Error Resume Next Set rng = sh.Range("A5").SpecialCells(xlCellTypeLastCell) On Error GoTo 0 If Not rng Is Nothing Then Set copyrange = Range(sh.Range("A5"), rng) If Rows.Count - counter + 1 copyrange.Rows.Count Then copyrange.Copy _ actsheet.Cells(counter, 1) counter = counter + copyrange.Rows.Count Else MsgBox "Note enough room" End If End If Next i End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy entire row to different worksheet | Excel Worksheet Functions | |||
If statement to copy an entire row to other worksheet w/ in same b | Excel Worksheet Functions | |||
Copy only specific information from one colum to another worksheet | Excel Discussion (Misc queries) | |||
How do I copy specific information from a master sheet? | Excel Worksheet Functions | |||
find a specific cell from the entire worksheet | Excel Worksheet Functions |