Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How would I modify the following?
Sub MinReport()
RC= Sheets("15mintest").Select Range("A2:G2").Select Selection.Copy ActiveCell.SpecialCells(xlLastCell).Select Range().Select ActiveSheet.Paste Sheets("Master").Select End Sub What I want to do is make it so it does not interfer with what sheet I am working on now. Currently, it will select the sheet, paste data and then go back to Master Can I do this with out interfering with the screen I am on, and Not "selecting" the 15mintest sheet, just have it paste at the bottom of 15mintest? Thanks Bruce |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How would I modify the following?
one way:
Public Sub MinReport() With Sheets("15mintest").Range("A2:G2") .Parent.Range("A" & Rows.Count).End(xlUp).Offset( _ 1, 0).Resize(1, 7).Value = .Value End With End Sub In article <WTCnb.52055$Tr4.108464@attbi_s03, "BruceJ" wrote: Sub MinReport() RC= Sheets("15mintest").Select Range("A2:G2").Select Selection.Copy ActiveCell.SpecialCells(xlLastCell).Select Range().Select ActiveSheet.Paste Sheets("Master").Select End Sub What I want to do is make it so it does not interfer with what sheet I am working on now. Currently, it will select the sheet, paste data and then go back to Master Can I do this with out interfering with the screen I am on, and Not "selecting" the 15mintest sheet, just have it paste at the bottom of 15mintest? Thanks Bruce |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How would I modify the following?
Bruce,
Not too sure of how this is working - but amend this code to copy from one sheet and paste to another without selecting anything... And it doesn't matter what the active sheet is... Sheets("Sheet1").Range("A2:G2").Copy _ Destination:= Sheets("Sheet2").Range("A1") -- sb "BruceJ" wrote in message news:WTCnb.52055$Tr4.108464@attbi_s03... Sub MinReport() RC= Sheets("15mintest").Select Range("A2:G2").Select Selection.Copy ActiveCell.SpecialCells(xlLastCell).Select Range().Select ActiveSheet.Paste Sheets("Master").Select End Sub What I want to do is make it so it does not interfer with what sheet I am working on now. Currently, it will select the sheet, paste data and then go back to Master Can I do this with out interfering with the screen I am on, and Not "selecting" the 15mintest sheet, just have it paste at the bottom of 15mintest? Thanks Bruce |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How would I modify the following?
I have tried the code (and also mine) and both of them don't seem to work
when called from the program! If I make a macro, and press the hot key, it works, but when I move it into the actual CODE, it does not. Any ideas? It makes it to the module, both msgboxes come up... Public Sub showtimer() MsgBox ("Notes Added!") With Sheets("15min").Range("A2:G2") .Parent.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 7).Value = .Value End With incrementTimer lasttime = Sheets("15min").Range("A" & Rows.Count - 1) ' to see if new records were added.... MsgBox (lasttime) Call OntimeManager("ADD", nowplus, "showtimer", nowplus1) End Sub "J.E. McGimpsey" wrote in message ... one way: Public Sub MinReport() With Sheets("15mintest").Range("A2:G2") .Parent.Range("A" & Rows.Count).End(xlUp).Offset( _ 1, 0).Resize(1, 7).Value = .Value End With End Sub In article <WTCnb.52055$Tr4.108464@attbi_s03, "BruceJ" wrote: Sub MinReport() RC= Sheets("15mintest").Select Range("A2:G2").Select Selection.Copy ActiveCell.SpecialCells(xlLastCell).Select Range().Select ActiveSheet.Paste Sheets("Master").Select End Sub What I want to do is make it so it does not interfer with what sheet I am working on now. Currently, it will select the sheet, paste data and then go back to Master Can I do this with out interfering with the screen I am on, and Not "selecting" the 15mintest sheet, just have it paste at the bottom of 15mintest? Thanks Bruce |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Modify Before Send | Excel Discussion (Misc queries) | |||
Trying to modify a list | Excel Discussion (Misc queries) | |||
Modify a UDF please? | Excel Worksheet Functions | |||
Modify a UDF please? | Excel Worksheet Functions | |||
Modify width | Setting up and Configuration of Excel |