Checkbox Macro
You will need event code behind the sheet.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "S1:S10" 'adjust to suit
Application.EnableEvents = False
On Error Resume Next
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
Target.Offset(0, 2).Value = Target.Value
End If
On Error GoTo 0
Application.EnableEvents = True
End Sub
Right-click on the sheet tab and "View Code". Copy/paste the above code
into that module.
Edit the range to suit. Alt + q to return to the Excel window.
Click on any cell in the S1:S10 range and the value will then be copied to
column U
Gord Dibben MS Excel MVP
On Mon, 8 Dec 2008 15:33:01 -0800, Ben in CA
wrote:
Hello,
Here's a question that shows my ignorance when it comes to Excel macros.
How can I copy the data contained in one cell to the next cell on the same
row (without referencing the cell names in the macro) by pressing a checkbox?
How about leaving an empty column in between - copying from cell S2 to U2,
for instance?
Thanks in advance for anyone who has some ideas!
|