Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Make code apply to more than 1 column
I am using this code to insert X in a column with a mouse click. I need this
to apply to other column as well. How do I change this code? Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count 1 Then Exit Sub If Target.Column = 5 Then If Len(Trim(Target.Value)) = 0 Then Target.Value = "X" Else Target.ClearContents End If End If End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Make code apply to more than 1 column
Are you SURE you want this with a SELECTION change? Maybe a double click
instead. or target.column = 12 -- Don Guillett Microsoft MVP Excel SalesAid Software "Cheryl" wrote in message ... I am using this code to insert X in a column with a mouse click. I need this to apply to other column as well. How do I change this code? Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count 1 Then Exit Sub If Target.Column = 5 Then If Len(Trim(Target.Value)) = 0 Then Target.Value = "X" Else Target.ClearContents End If End If End Sub |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Make code apply to more than 1 column
Hi,
How about this which now does columns A,B & E. Change ot it match the columns you want Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count 1 Then Exit Sub If Not Intersect(Target, Range("A:A,B:B,E:E")) Is Nothing Then If Len(Trim(Target.Value)) = 0 Then Target.Value = "X" Else Target.ClearContents End If End If End Sub -- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "Cheryl" wrote: I am using this code to insert X in a column with a mouse click. I need this to apply to other column as well. How do I change this code? Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count 1 Then Exit Sub If Target.Column = 5 Then If Len(Trim(Target.Value)) = 0 Then Target.Value = "X" Else Target.ClearContents End If End If End Sub |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Make code apply to more than 1 column
Thank You Mike it works!!
"Mike H" wrote: Hi, How about this which now does columns A,B & E. Change ot it match the columns you want Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count 1 Then Exit Sub If Not Intersect(Target, Range("A:A,B:B,E:E")) Is Nothing Then If Len(Trim(Target.Value)) = 0 Then Target.Value = "X" Else Target.ClearContents End If End If End Sub -- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "Cheryl" wrote: I am using this code to insert X in a column with a mouse click. I need this to apply to other column as well. How do I change this code? Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count 1 Then Exit Sub If Target.Column = 5 Then If Len(Trim(Target.Value)) = 0 Then Target.Value = "X" Else Target.ClearContents End If End If End Sub |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Make code apply to more than 1 column
You are correct a double right mouse click would be better. How do I do that
change? "Don Guillett" wrote: Are you SURE you want this with a SELECTION change? Maybe a double click instead. or target.column = 12 -- Don Guillett Microsoft MVP Excel SalesAid Software "Cheryl" wrote in message ... I am using this code to insert X in a column with a mouse click. I need this to apply to other column as well. How do I change this code? Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count 1 Then Exit Sub If Target.Column = 5 Then If Len(Trim(Target.Value)) = 0 Then Target.Value = "X" Else Target.ClearContents End If End If End Sub . |
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
Make code apply to more than 1 column
I am sorry my in reply to you I meant doulbe left mouse click.
"Don Guillett" wrote: Are you SURE you want this with a SELECTION change? Maybe a double click instead. or target.column = 12 -- Don Guillett Microsoft MVP Excel SalesAid Software "Cheryl" wrote in message ... I am using this code to insert X in a column with a mouse click. I need this to apply to other column as well. How do I change this code? Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count 1 Then Exit Sub If Target.Column = 5 Then If Len(Trim(Target.Value)) = 0 Then Target.Value = "X" Else Target.ClearContents End If End If End Sub . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
alter code to apply to range (links cells w/ row insertions) | Excel Discussion (Misc queries) | |||
Problem undstanding how to apply a code | Excel Discussion (Misc queries) | |||
=COUNTIF & how to make it apply to consecutive cells | Excel Worksheet Functions | |||
how do I apply changes I make on one sheet to other sheets? | Excel Discussion (Misc queries) | |||
make custom header and footer in excel apply to all worksheets | Excel Discussion (Misc queries) |