#1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 190
Default cell value

hi,

code is in worksheet selectionchange event. only want the code to run if
ONLY 1 cell is clicked, not a range of more than more than 1 cell. currently
have:

If Not Intersect(Target, Range("DATES_range")) Is Nothing Then
Dim selected_date1 As String
selected_date1 = Range(Target.Address).Value

thanks in advance,
geebee

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 2,510
Default cell value

Hello Geebee

If Target.Cells.Count 1 Then Exit Sub

--
Regards,

OssieMac


"geebee" wrote:

hi,

code is in worksheet selectionchange event. only want the code to run if
ONLY 1 cell is clicked, not a range of more than more than 1 cell. currently
have:

If Not Intersect(Target, Range("DATES_range")) Is Nothing Then
Dim selected_date1 As String
selected_date1 = Range(Target.Address).Value

thanks in advance,
geebee

  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 703
Default cell value

Hi

Inset this line before the code you posted:

If Target.Cells.Count 1 then Exit Sub

Regards,
Per

On 5 Aug., 00:19, geebee (noSPAMs) wrote:
hi,

code is in worksheet selectionchange event. *only want the code to run if
ONLY 1 cell is clicked, not a range of more than more than 1 cell. *currently
have:

If Not Intersect(Target, Range("DATES_range")) Is Nothing Then
Dim selected_date1 As String
selected_date1 = Range(Target.Address).Value

thanks in advance,
geebee


Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Code to copy the formulae of one cell to all the cell in the rangewith the specific cell and columnnumber changing Options Yuvraj Excel Discussion (Misc queries) 0 June 29th 09 11:20 AM
Populate a cell if values in cell 1 and cell 2 match cell 3 and 4 [email protected] Excel Worksheet Functions 1 August 22nd 08 02:04 AM
Populate a cell if values in cell 1 and cell 2 match cell 3 and 4 [email protected] Excel Programming 1 August 21st 08 10:13 PM
NEED VBA TO SELECT A CELL; NOTE THE CELL VALUE;COPYADJ CELL;FIND CELL VALUE IN A RANGE AND SO ON CAPTGNVR Excel Programming 2 July 8th 07 04:18 PM
How to create/run "cell A equals Cell B put Cell C info in Cell D abmb161 Excel Discussion (Misc queries) 5 January 26th 06 06:36 PM


All times are GMT +1. The time now is 02:31 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"