Contar celdas en selecion

Estimo Foro
Tengo una seleccion
Ejemplo 'A1:B10

Necesitaría contar la cantidad de celdas que hay en (VB)
**** Columna
**** Filas

Sub contar()
Dim nCeldas
nCeldas = Selection.Count

End Sub

Si lo que quieres es el nº de filas o Columnas
Sub contar()
Dim nCeldas
nCeldas = Selection.Rows.Count
nCeldas = Selection.Columns.Count
End Sub

Saludos desde la Mancha

Espero que puedan ayudarme

Salucos
Amadeo



Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.607 / Virus Database: 387 - Release Date:

02/03/2004

.

Agradezco el tema
Saludos
Amadeo desde
Bariloche
"Tommi" escribió en el mensaje
news:6d5301c40203$49733160$

Estimo Foro
Tengo una seleccion
Ejemplo 'A1:B10

Necesitaría contar la cantidad de celdas que hay en (VB)
**** Columna
**** Filas

Sub contar()
Dim nCeldas
nCeldas = Selection.Count

End Sub

Si lo que quieres es el nº de filas o Columnas
Sub contar()
Dim nCeldas
nCeldas = Selection.Rows.Count
nCeldas = Selection.Columns.Count
End Sub

Saludos desde la Mancha

Espero que puedan ayudarme

Salucos
Amadeo



Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.607 / Virus Database: 387 - Release Date:

02/03/2004

.

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.611 / Virus Database: 391 - Release Date: 03/03/2004