Contar celdas seleccionadas

Hola, Sony !

... contar el numero de celdas en un rango
' Range("A4").Select
' Range(Selection, Selection.End(xlDown)).Rows.Count
... utilizando esto ... me da un error. ''uso de la propiedad no valido" [...]

la propiedad '.Count' NECESITA 'ser asignada' como valor de una variable [p.e.]
[... ... ...]
Dim Total As Long
Range("a4").Select
Total = Range(Selection, Selection.End(xlDown)).Rows.Count
MsgBox Total
[... ... ...]

Saludos,
Héctor.

Hola Hector y Sony

Tambien deberian considerar usar Cells.Count en lugar de
Rows.Count, para que cuando la seleccion sea de varias
columnas se calcule el numero real de celdas y no el
numero de filas del rango.

Saludos,

Henry

Hola, Sony !

... contar el numero de celdas en un rango
' Range("A4").Select
' Range(Selection, Selection.End(xlDown)).Rows.Count
... utilizando esto ... me da un error. ''uso de la

propiedad no valido" [...]

la propiedad '.Count' NECESITA 'ser asignada' como valor

de una variable [p.e.]

[... ... ...]
Dim Total As Long
Range("a4").Select
Total = Range(Selection, Selection.End

(xlDown)).Rows.Count

MsgBox Total
[... ... ...]

Saludos,
Héctor.


.

Sony:

Los comentarios de porque te falla tu rutina, ya fueron
hechos por Hector Miguel y Henry.

Yo solo te mando esto como ejemplo; ejecuta esto "paso a
paso" (F8), para que notes la diferencia entre cada una
de las diferentes formas de hacer esto.


Range("A4").Select
' ' Solo indica cuantas filas o celdas hay a partir de
' donde estas, hasta el ultimo dato dentro de el rango

Mr = Range(Selection, Selection.End
(xlDown)).Rows.Count
Mc = Range(Selection, Selection.End
(xlDown)).Cells.Count
MsgBox "De aqui, para abajo hay " & _
Mr & " renglones."

MsgBox "De aqui, para abajo hay " & _
Mc & " Celdas."
' ' Selecciona e indica cuantas filas o celdas hay dentro
' rango seleccionado

Range(Selection, Selection.End(xlDown)).Select
Nr = Selection.Rows.Count
Nc = Selection.Cells.Count

MsgBox "la seleccion contiene " & _
Nr & " renglones."
MsgBox "la seleccion contiene " & _
Nc & " Celdas."
'

Nota: Henry comento que en tu caso lo que se tiene que
poner es Cells y no Rows; en este caso, como solo
seleccionas desde una celda hacia abajo, el resultado es
el mismo, ya sea que utilices Rows o Cells, pero si la
seleccion fuera, por ejemplo...
Selection.CurrentRegion.Select

El resultado obviamente no es el mismo


Saludos
Servando Villalon

Hola Grupo,
Quisiera que me ayudarais a contar el número de celdas
en un rango

' Range("A4").Select
'
' Range(Selection, Selection.End(xlDown)).Rows.Count
estoy utilizando esto pero me dá un error.

''uso de la propiedad no válido.

Gracias, de un QUIJOTE.


.