Contar celdas seleccionadas

06/10/2007 - 14:11 por LuisVF | Informe spam
Saludos al grupo

Quería crear un procedimiento que contara celdas seleccionadas. Al
seeleccionarlas cambiarían de color y se irían sumando (es para sumar días
seleccionados)

Se me ocurre crear un botón "Contar días" que ponga un boolean a true y en
el evento selectionchange un if bo=true

Para cambiar los colores ni idea y para ir contando tampoco :(

Alguna sugerencia?

Gracias por responder
 

Leer las respuestas

#1 Héctor Miguel
06/10/2007 - 23:50 | Informe spam
hola, Luis !

Queria crear un procedimiento que contara celdas seleccionadas.
Al seeleccionarlas cambiarian de color y se irian sumando (es para sumar dias seleccionados)
Se me ocurre crear un boton "Contar dias" que ponga un boolean a true y en el evento selectionchange un if bo=true
Para cambiar los colores ni idea y para ir contando tampoco :(
Alguna sugerencia?



[creo que] quedan algunas *lagunas* de informacion o ambiguedades en tu consulta -?- en via de mientras...

1) un ejemplo para contar celdas seleccionadas, descartando si la seleccion actual no fuera un objeto *rango*
[obviamente, hay *pasos* que se pueden omitir si seran procdimientos +/- *repetitivos*] :D
Sub Contar_celdas_seleccionadas()
Dim Cuenta As Byte
If TypeName(Selection) = "Range" Then Cuenta = Selection.Count
If Cuenta Then MsgBox "Celdas seleccionadas actualmente: " & Cuenta
End Sub

-> OJO: si piensas seleccionar mas de 255 celdas, cambia el tipo de datos de la variable a: -> Dim Cuenta As Integer

2) para aplicar colores a las celdas seleccionadas [una vez descartado si la seleccion actual no fuera un rango]...
- aplicar un color de fondo rojo: -> Selection.Interior.ColorIndex = 3
- aplicar a la fuente color azul: -> Selection.Font.ColorIndex = 5

3) para *acumular* la cuenta [actual] con otras celdas ya contadas y acumuladas [anteriormente]...
dependera de si la *acumulacion* la necesitas conservar en alguna variable y/o la vas a *depositar* en alguna celda/hoja/... -???-

4) no te olvides de considerar mecanismos para prevenir/evitar/corregir/... -posibles- eventualidades como las siguientes [entre otras]:
- si la seleccion actual incluye celdas que ya se habian contado anteriormente -?-
- si en algun momento necesitas *regresar* a ceros algun acumulado -?-
- si en algun momenso necesitas *des-hacer* alguna acumulacion *erronea*
OJO: al modificar objetos y propiedades por macros no se puede des-hacer [o resulta en un proceso mas... *complicado*] :-((
- algunas otras que se te pudieran *ocurir* [como sucesos posibles] -?-

5) considera un procedimiento mas *sencillo*, uando una columna *auxiliar* donde pongas una *marca* que sea la cuenta/acumulacion
[opcionalmente] puedes usar los formatos condicionales para dar formato a los *dias seleccionados* ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares