Thread: Checkbox Macro
View Single Post
  #2  
Old December 9th, 2008, 12:42 AM posted to microsoft.public.excel.misc
Gord Dibben
external usenet poster
 
Posts: 20,252
Default 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!