ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Activecell Count (https://www.excelbanter.com/excel-programming/416864-activecell-count.html)

Corey

Activecell Count
 

Is there a way to have a cell(Say L59) display how many cells are selected.
I am using the Ctrl + Mouse to select multiply cells, but want to know how many cells are in total slected.

I tried:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("L59").Value = ActiveCell.Count
End Sub

But it only seem to show - 1 and nevr changes when more than 1 cell is selected.



--
Corey ....
The Silliest Question is generally
the one i forgot to ask.

Don Guillett

Activecell Count
 
Pls post in plain text and top post

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Cells.Count
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Corey" wrote in message
...

Is there a way to have a cell(Say L59) display how many cells are selected.
I am using the Ctrl + Mouse to select multiply cells, but want to know how
many cells are in total slected.

I tried:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("L59").Value = ActiveCell.Count
End Sub

But it only seem to show - 1 and nevr changes when more than 1 cell is
selected.



--
Corey ....
The Silliest Question is generally
the one i forgot to ask.


John_John

Activecell Count
 
You can also use the "Selection" object as above:

Range("L59").Value = Selection.Cells.Count

John

Ο χρήστης "Corey" *γγραψε:


Is there a way to have a cell(Say L59) display how many cells are selected.
I am using the Ctrl + Mouse to select multiply cells, but want to know how many cells are in total slected.

I tried:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("L59").Value = ActiveCell.Count
End Sub

But it only seem to show - 1 and nevr changes when more than 1 cell is selected.



--
Corey ....
The Silliest Question is generally
the one i forgot to ask



All times are GMT +1. The time now is 03:20 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com