Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying data
Hi,
I'd like to copy the range in 'calc worksheet' into 'DailyTeleStat' worksheet following the last entry. I have seen vba coding where data can be copied into the first empty row, however, the row being copied into is not complete empty .. contains date/week number/period etc in the first few columns (b-e); therefore, I'd been looking to have the data copied starting at column f. How can I update the coding below to accomplish my means? Sheets("calc worksheet").Select Range("C95:J95").Select Application.CutCopyMode = False Selection.Copy Sheets("dailyTeleStat").Select Range("F461").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Thanks, Gail |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying data
l4 should be lastrow
..cells(lastrow,"f").PasteSpecial Paste:=xlValues -- Don Guillett SalesAid Software "Don Guillett" wrote in message ... try this with Sheets("dailyTeleStat") lastrow=.cells(.rows.count,"a").end(xlup).row Sheets("calc worksheet").Range("C95:J95").Copy .cells(l4,"f").PasteSpecial Paste:=xlValues end with -- Don Guillett SalesAid Software "GailK" wrote in message ... Hi, I'd like to copy the range in 'calc worksheet' into 'DailyTeleStat' worksheet following the last entry. I have seen vba coding where data can be copied into the first empty row, however, the row being copied into is not complete empty .. contains date/week number/period etc in the first few columns (b-e); therefore, I'd been looking to have the data copied starting at column f. How can I update the coding below to accomplish my means? Sheets("calc worksheet").Select Range("C95:J95").Select Application.CutCopyMode = False Selection.Copy Sheets("dailyTeleStat").Select Range("F461").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Thanks, Gail |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying data
Thanks for such a quick response.... When putting in your coding it does copy
the data into column F however into F2 when the last line is F462. Please note it copies over a formula in F2 (so it's not as though this was a blank cell). Any suggestions? regards, Gail "Don Guillett" wrote: l4 should be lastrow ..cells(lastrow,"f").PasteSpecial Paste:=xlValues -- Don Guillett SalesAid Software "Don Guillett" wrote in message ... try this with Sheets("dailyTeleStat") lastrow=.cells(.rows.count,"a").end(xlup).row Sheets("calc worksheet").Range("C95:J95").Copy .cells(l4,"f").PasteSpecial Paste:=xlValues end with -- Don Guillett SalesAid Software "GailK" wrote in message ... Hi, I'd like to copy the range in 'calc worksheet' into 'DailyTeleStat' worksheet following the last entry. I have seen vba coding where data can be copied into the first empty row, however, the row being copied into is not complete empty .. contains date/week number/period etc in the first few columns (b-e); therefore, I'd been looking to have the data copied starting at column f. How can I update the coding below to accomplish my means? Sheets("calc worksheet").Select Range("C95:J95").Select Application.CutCopyMode = False Selection.Copy Sheets("dailyTeleStat").Select Range("F461").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Thanks, Gail |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying data
First, make sure you use a column that always has data in it to determine the
last row. lastrow=.cells(.rows.count,"a").end(xlup).row Change "a" to the column that you know is filled if the row is filled. And then dropdown one row from that last used row: .cells(lastrow+1,"f").PasteSpecial Paste:=xlValues GailK wrote: Thanks for such a quick response.... When putting in your coding it does copy the data into column F however into F2 when the last line is F462. Please note it copies over a formula in F2 (so it's not as though this was a blank cell). Any suggestions? regards, Gail "Don Guillett" wrote: l4 should be lastrow ..cells(lastrow,"f").PasteSpecial Paste:=xlValues -- Don Guillett SalesAid Software "Don Guillett" wrote in message ... try this with Sheets("dailyTeleStat") lastrow=.cells(.rows.count,"a").end(xlup).row Sheets("calc worksheet").Range("C95:J95").Copy .cells(l4,"f").PasteSpecial Paste:=xlValues end with -- Don Guillett SalesAid Software "GailK" wrote in message ... Hi, I'd like to copy the range in 'calc worksheet' into 'DailyTeleStat' worksheet following the last entry. I have seen vba coding where data can be copied into the first empty row, however, the row being copied into is not complete empty .. contains date/week number/period etc in the first few columns (b-e); therefore, I'd been looking to have the data copied starting at column f. How can I update the coding below to accomplish my means? Sheets("calc worksheet").Select Range("C95:J95").Select Application.CutCopyMode = False Selection.Copy Sheets("dailyTeleStat").Select Range("F461").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Thanks, Gail -- Dave Peterson |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying data
I understood your need to copy to col F based on row info in col A. Modify
to suit. -- Don Guillett SalesAid Software "GailK" wrote in message ... Thanks for such a quick response.... When putting in your coding it does copy the data into column F however into F2 when the last line is F462. Please note it copies over a formula in F2 (so it's not as though this was a blank cell). Any suggestions? regards, Gail "Don Guillett" wrote: l4 should be lastrow ..cells(lastrow,"f").PasteSpecial Paste:=xlValues -- Don Guillett SalesAid Software "Don Guillett" wrote in message ... try this with Sheets("dailyTeleStat") lastrow=.cells(.rows.count,"a").end(xlup).row Sheets("calc worksheet").Range("C95:J95").Copy .cells(l4,"f").PasteSpecial Paste:=xlValues end with -- Don Guillett SalesAid Software "GailK" wrote in message ... Hi, I'd like to copy the range in 'calc worksheet' into 'DailyTeleStat' worksheet following the last entry. I have seen vba coding where data can be copied into the first empty row, however, the row being copied into is not complete empty .. contains date/week number/period etc in the first few columns (b-e); therefore, I'd been looking to have the data copied starting at column f. How can I update the coding below to accomplish my means? Sheets("calc worksheet").Select Range("C95:J95").Select Application.CutCopyMode = False Selection.Copy Sheets("dailyTeleStat").Select Range("F461").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Thanks, Gail |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying data
Thanks Don and Dave... it works great!!!
"Don Guillett" wrote: I understood your need to copy to col F based on row info in col A. Modify to suit. -- Don Guillett SalesAid Software "GailK" wrote in message ... Thanks for such a quick response.... When putting in your coding it does copy the data into column F however into F2 when the last line is F462. Please note it copies over a formula in F2 (so it's not as though this was a blank cell). Any suggestions? regards, Gail "Don Guillett" wrote: l4 should be lastrow ..cells(lastrow,"f").PasteSpecial Paste:=xlValues -- Don Guillett SalesAid Software "Don Guillett" wrote in message ... try this with Sheets("dailyTeleStat") lastrow=.cells(.rows.count,"a").end(xlup).row Sheets("calc worksheet").Range("C95:J95").Copy .cells(l4,"f").PasteSpecial Paste:=xlValues end with -- Don Guillett SalesAid Software "GailK" wrote in message ... Hi, I'd like to copy the range in 'calc worksheet' into 'DailyTeleStat' worksheet following the last entry. I have seen vba coding where data can be copied into the first empty row, however, the row being copied into is not complete empty .. contains date/week number/period etc in the first few columns (b-e); therefore, I'd been looking to have the data copied starting at column f. How can I update the coding below to accomplish my means? Sheets("calc worksheet").Select Range("C95:J95").Select Application.CutCopyMode = False Selection.Copy Sheets("dailyTeleStat").Select Range("F461").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Thanks, Gail |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copying rows of data into new worksheet but placing data into colu | Excel Discussion (Misc queries) | |||
Comparing data between sheets, and copying rows with data | Excel Programming | |||
Copying data as static as source data changes | Excel Worksheet Functions | |||
Copying Data into Column with Existing Data | Excel Discussion (Misc queries) | |||
Copying data down to next dirty cell, then copying that data | Excel Programming |