| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
With End With question
The first routine (below) works, but when I try the second one, only the
paste funtion works. I don't understand why the activate and select funtions don't work in the With End With routine. Can anyone explain this to me? Thanks, Steve Sheets("Temp").Select Range("A4").Paste Range("A1").Activate Range(ActiveCell, ActiveCell.End(xlDown)).Select Selection.Copy With wsTemp .Range("A4").Paste .Range("A1").Activate .Range(ActiveCell, ActiveCell.End(xlDown)).Select .Selection.Copy End With |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
With End With question
the sheet needs to be ative in order to select a cell.
if wstemp is the sheet, then just add ..activate With wsTemp .Range("A4").Paste .activate .Range("A1").Activate .Range(ActiveCell, ActiveCell.End(xlDown)).Select Selection.Copy -- Gary "Steve" wrote in message ... The first routine (below) works, but when I try the second one, only the paste funtion works. I don't understand why the activate and select funtions don't work in the With End With routine. Can anyone explain this to me? Thanks, Steve Sheets("Temp").Select Range("A4").Paste Range("A1").Activate Range(ActiveCell, ActiveCell.End(xlDown)).Select Selection.Copy With wsTemp .Range("A4").Paste .Range("A1").Activate .Range(ActiveCell, ActiveCell.End(xlDown)).Select .Selection.Copy End With |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
With End With question
Thanks, Gary, for clearing that up.
Steve "Gary Keramidas" wrote: the sheet needs to be ative in order to select a cell. if wstemp is the sheet, then just add ..activate With wsTemp .Range("A4").Paste .activate .Range("A1").Activate .Range(ActiveCell, ActiveCell.End(xlDown)).Select Selection.Copy -- Gary "Steve" wrote in message ... The first routine (below) works, but when I try the second one, only the paste funtion works. I don't understand why the activate and select funtions don't work in the With End With routine. Can anyone explain this to me? Thanks, Steve Sheets("Temp").Select Range("A4").Paste Range("A1").Activate Range(ActiveCell, ActiveCell.End(xlDown)).Select Selection.Copy With wsTemp .Range("A4").Paste .Range("A1").Activate .Range(ActiveCell, ActiveCell.End(xlDown)).Select .Selection.Copy End With |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Linear Mode
