en vba como cuento el número de celdas horizontal y vertical pregunta 1/8

14/05/2009 - 18:45 por Chiri | Informe spam
Hola a todos y gracias por leerme

necesito crear una función que me permita contar el número de celdas
horizontal y vertical en un rango seleccionado para luego poder trabajar

=numerohorizontal ("C3:H7")

si yo en una celda pongo esto me debería devolver 6

=numerovertical ("C3:H7") y en vertical 5
 

Leer las respuestas

#1 Héctor Miguel
15/05/2009 - 02:38 | Informe spam
hola (...), ?????

sigo haciendo pruebas
Function TotalColumnas(Rang As Variant) As Integer
TotalColumnas = Range("A1:B3").Columns.Count
End Function
asi si que funciona, si pongo Rang como string no funciona
no me faltará alguna referencia????
cuanto utilizo en una celda
=TotalColumnas(A1:B3)
todo el rato error



veamos y vamos "por partes":

1) en tu consulta original comentabas (como ejemplo) "llamadas" a alguna funcion de esta forma:
=numerohorizontal ("C3:H7")
si yo en una celda pongo esto me deberia devolver 6
=numerovertical ("C3:H7") y en vertical 5



nota que lo que expones (entre parentesis) para llamar a "la funcion" ES una cadena de texto (String)
luego entonces, con la propuesta de codigo, la llamada desde celdas en hojas de calculo es "como" la pides:
[A1] =TotalColumnas("c3:h7") <= devuelve 6
[A2] =TotalFilas("c3:h7") <= devuelve 5

2) si crees que el usuario va a usar la funcion "como le plazca", entonces es necesario usar prevencion/correccion de errores (?)
es decir, si el objetivo de la funcion es "tomar" un rango (direccion en texto) para contar filas/columnas
como se puede ocurrir introducir como argumento un texto "diferente" de una direccion de celdas/rangos ?????

3) ahora, si el argumento lo vas a pasar a "la funcion" haciendo referencia "directa" a un rango de celdas...
[C5] =TotalColumnas(A1:B3)
=> no te parece mas facil/rapido/natural/... usar las funciones integradas de excel ???
[C5] =COLUMNAS(A1:B3)

por "esto" es que te comentaba que:
"no tiene sentido "simular" las funciones que ya trae integradas excel"



si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Preguntas similares