Home |
Search |
Today's Posts |
#1
|
|||
|
|||
More on Macro - Excel 97
I finally got it to work from the code below:
Sub Uhrs() ' ' Uhrs Macro ' Macro recorded 7/3/05 by Abay ' Keyboard Shortcut: Ctrl+h ' ActiveSheet.Previous.Select Range("B29").Select Selection.Copy ActiveSheet.Next.Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End Sub Many thanks again for your help Tom & Alan you pointed me in the right direction. Much appreciated! Abay |
#2
|
|||
|
|||
Sub Uhrs()
' ' Uhrs Macro ' Macro recorded 7/3/05 by Abay ' Keyboard Shortcut: Ctrl+h ' ActiveSheet.Previous.Range("B29").Copy Selection.PasteSpecial Paste:=xlValues, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False End Sub Is Shorter and should work. You should avoid selecting as much as possible. It just slows things down. -- Regards, Tom Ogilvy "Abay" wrote in message ... I finally got it to work from the code below: Sub Uhrs() ' ' Uhrs Macro ' Macro recorded 7/3/05 by Abay ' Keyboard Shortcut: Ctrl+h ' ActiveSheet.Previous.Select Range("B29").Select Selection.Copy ActiveSheet.Next.Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End Sub Many thanks again for your help Tom & Alan you pointed me in the right direction. Much appreciated! Abay |
#3
|
|||
|
|||
Thanks again Tom .. will try it out .. Abay
"Tom Ogilvy" wrote in message ... Sub Uhrs() ' ' Uhrs Macro ' Macro recorded 7/3/05 by Abay ' Keyboard Shortcut: Ctrl+h ' ActiveSheet.Previous.Range("B29").Copy Selection.PasteSpecial Paste:=xlValues, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False End Sub Is Shorter and should work. You should avoid selecting as much as possible. It just slows things down. -- Regards, Tom Ogilvy "Abay" wrote in message ... I finally got it to work from the code below: Sub Uhrs() ' ' Uhrs Macro ' Macro recorded 7/3/05 by Abay ' Keyboard Shortcut: Ctrl+h ' ActiveSheet.Previous.Select Range("B29").Select Selection.Copy ActiveSheet.Next.Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End Sub Many thanks again for your help Tom & Alan you pointed me in the right direction. Much appreciated! Abay |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can't find macro in an Excel file to delete it | Excel Discussion (Misc queries) | |||
Saving Excel using Macro | Excel Discussion (Misc queries) | |||
How can I edit cell contents with a macro in Excel? | Excel Discussion (Misc queries) | |||
Problem Editing Macro in Shared Excel File | Excel Discussion (Misc queries) | |||
Open Access Database under and Excel window using a Macro | Excel Worksheet Functions |