Checkbox Macro
 

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!

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!

Checkbox Macro
 

Thank you very much for your reply.

I might be able to use that the way it is, but is there a way I can have it
setup so that it only copies when I press a button or a checkbox?

Ben


"Gord Dibben" wrote:

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!