A simple maco . . .
Would appreciate some help with a simple macro.
I'd like a keystroke-activated macro to do the following in whatever cell I happen to be in: insert "text1" into the cell I activate the macro from, move one cell to the right and insert "text2", select and copy the contents of both cells to the clipboard, end the macro with the original cell active and the dashed line around both cells indicating they were copied to the clipboard. I tried recording the keystrokes to do this, but the recorded macro includes specific cell addresses. I need something that uses some form of relative cell addressing. Thanks. Steve |
Hi Steve,
Sub Macro1() With ActiveCell .Value = "text1" .Offset(0, 1) = "text2" .Resize(1, 2).Copy End With End Sub -- HTH RP (remove nothere from the email address if mailing direct) "Steve" wrote in message ... Would appreciate some help with a simple macro. I'd like a keystroke-activated macro to do the following in whatever cell I happen to be in: insert "text1" into the cell I activate the macro from, move one cell to the right and insert "text2", select and copy the contents of both cells to the clipboard, end the macro with the original cell active and the dashed line around both cells indicating they were copied to the clipboard. I tried recording the keystrokes to do this, but the recorded macro includes specific cell addresses. I need something that uses some form of relative cell addressing. Thanks. Steve |
Thanks Bob, it works great. I'm just starting to learn about macros,
appreciate the guidance. Steve Bob Phillips wrote: Hi Steve, Sub Macro1() With ActiveCell .Value = "text1" .Offset(0, 1) = "text2" .Resize(1, 2).Copy End With End Sub |
Just an alternative:
Public Sub Macro2() With ActiveCell.Resize(1, 2) .Value = Array("text1","text2") .Copy End With End Sub In article , "Bob Phillips" wrote: Sub Macro1() With ActiveCell .Value = "text1" .Offset(0, 1) = "text2" .Resize(1, 2).Copy End With End Sub |
All times are GMT +1. The time now is 04:04 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com