Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Active sheet instead of a "sheet1" for Macro
I have this code in a macro:
If Sheets("Sheet1").[A1] = True Then ActiveWindow.SmallScroll Down:=-9 Application.Goto Reference:="R17C3" Range("C11:C17").Select Range("C17").Activate Selection.Copy My questions is how do I make this macro work in any worksheet not only only in sheet1, what do i have to change from "Sheet1" to make it work. thank you, Pamela |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Active sheet instead of a "sheet1" for Macro
If Activesheet.range("a1").value = True Then
Pantera wrote: I have this code in a macro: If Sheets("Sheet1").[A1] = True Then ActiveWindow.SmallScroll Down:=-9 Application.Goto Reference:="R17C3" Range("C11:C17").Select Range("C17").Activate Selection.Copy My questions is how do I make this macro work in any worksheet not only only in sheet1, what do i have to change from "Sheet1" to make it work. thank you, Pamela -- Dave Peterson |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Active sheet instead of a "sheet1" for Macro
Sub copyif1()
With ActiveSheet If .Range("A1") = True Then .Range("C11:C17").Copy .Range("d5") End If End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Pantera" wrote in message ... I have this code in a macro: If Sheets("Sheet1").[A1] = True Then ActiveWindow.SmallScroll Down:=-9 Application.Goto Reference:="R17C3" Range("C11:C17").Select Range("C17").Activate Selection.Copy My questions is how do I make this macro work in any worksheet not only only in sheet1, what do i have to change from "Sheet1" to make it work. thank you, Pamela |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Active sheet instead of a "sheet1" for Macro
One way:
If ActiveSheet.Range("A1").Value = True Then ActiveSheet.Range("C11:C7").Copy End If Or, equivalently: With ActiveSheet If .Range("A1").Value = True Then .Range("C11:C17").Copy End With In article , Pantera wrote: I have this code in a macro: If Sheets("Sheet1").[A1] = True Then ActiveWindow.SmallScroll Down:=-9 Application.Goto Reference:="R17C3" Range("C11:C17").Select Range("C17").Activate Selection.Copy My questions is how do I make this macro work in any worksheet not only only in sheet1, what do i have to change from "Sheet1" to make it work. thank you, Pamela |
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Active sheet instead of a "sheet1" for Macro
On Dec 31, 10:10*am, JE McGimpsey wrote:
One way: * *If ActiveSheet.Range("A1").Value = True Then * * * * *ActiveSheet.Range("C11:C7").Copy * *End If Or, equivalently: * *With ActiveSheet * * * If .Range("A1").Value = True Then .Range("C11:C17").Copy * *End With In article , *Pantera wrote: I have this code in a macro: If Sheets("Sheet1").[A1] = True Then * * ActiveWindow.SmallScroll Down:=-9 * * Application.Goto Reference:="R17C3" * * Range("C11:C17").Select * * Range("C17").Activate * * Selection.Copy My questions is how do I make this macro work in any worksheet not only only in sheet1, what do i have to change from "Sheet1" to make it work. thank you, Pamela- Hide quoted text - - Show quoted text - Thank you!!! works like a charm. Pamela |
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Active sheet instead of a "sheet1" for Macro
Hi,
A few general point alluded to in the earlier responses: 1. You don't need to select a range to work with it. 2. The recorder is verbose, although it is a great starting point you can often eliminate much of what it generates. So you macro becomes If [A1] = True Then [C11:C17].Copy [X1] .... more code End if End With This macro assume that you want to copy the data to the range starting in cell X1. Also, it assumes that you are in the same sheet as the cell A1. In which case there is no need to reference any sheet since this code assumes the active sheet. -- If this helps, please click the Yes button Cheers, Shane Devenshire "Pantera" wrote: I have this code in a macro: If Sheets("Sheet1").[A1] = True Then ActiveWindow.SmallScroll Down:=-9 Application.Goto Reference:="R17C3" Range("C11:C17").Select Range("C17").Activate Selection.Copy My questions is how do I make this macro work in any worksheet not only only in sheet1, what do i have to change from "Sheet1" to make it work. thank you, Pamela |
#7
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Active sheet instead of a "sheet1" for Macro
On Dec 31, 10:05*am, Dave Peterson wrote:
If Activesheet.range("a1").value = True Then Pantera wrote: I have this code in a macro: If Sheets("Sheet1").[A1] = True Then * * ActiveWindow.SmallScroll Down:=-9 * * Application.Goto Reference:="R17C3" * * Range("C11:C17").Select * * Range("C17").Activate * * Selection.Copy My questions is how do I make this macro work in any worksheet not only only in sheet1, what do i have to change from "Sheet1" to make it work. thank you, Pamela -- Dave Peterson- Hide quoted text - - Show quoted text - Thanks!!! |
#8
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Active sheet instead of a "sheet1" for Macro
or briefly:
If ActiveSheet.Range("A1").Value Then On 31 Gru, 18:57, Pantera wrote: I have this code in a macro: If Sheets("Sheet1").[A1] = True Then * * ActiveWindow.SmallScroll Down:=-9 * * Application.Goto Reference:="R17C3" * * Range("C11:C17").Select * * Range("C17").Activate * * Selection.Copy My questions is how do I make this macro work in any worksheet not only only in sheet1, what do i have to change from "Sheet1" to make it work. thank you, Pamela |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do copy "sheet1!A1+1 in sheet2 to sheet 3 and get "sheet2!A1+ | Excel Discussion (Misc queries) | |||
Macro to email with "active row" info | Excel Discussion (Misc queries) | |||
Macro to concatenate into "B1" B2 thru B"x" based on new data in "Col A" | Excel Discussion (Misc queries) | |||
How do I color code the "SHEET1" Tab in Excel? | Excel Worksheet Functions | |||
Macro to run on the "Active Sheet" | Excel Discussion (Misc queries) |