En este grupo En todos

Foro de Excel

Rommel
Bogotá, Colombia
Escrito por Rommel
el 07/02/2008

Hola a todos. Requiero toda su colaboración para crear un checkbox; al ser seleccionado, la celda que contiene el titulo que antecede a éste elemento (celda superior) debe quedar con un color de fondo particular y la celda que precede al checkbox (celda inferior) quedará con el valor 1.

Yo sé que me pueden ayudar. Estaré atento a ésta bitácora. Gracias.

Fabricio Lopez Coto
Costa Rica, Costa Rica
Escrito por Fabricio Lopez Coto
el 18/09/2008
"Dos soluciones: 1 sencilla y una compleja
1. Sencilla: Formato condicional
Selecciona A3 y luego en la barra de menú Formato - Formato condicional, elijes la condición "valor de la celda menor o igual que 0" (cero) y defines un formato personalizado.   Ahora bien, cambia el valor en A2 y observa el resultado
2. Compleja: VBA
Copia el sgte código en un módulo de VBA
Public datHora As Date
Public Const conIntervalo = 1 "un segundo
Public Const conRunMacro = "Tu_Sub" "tu proced.
Public acum As Integer "Acumulador
Sub StartTemporizador()
datHora = Now + TimeSerial(0, 0, conIntervalo)
"iniciar el temporizador
Application. OnTime _
Earliesttime:=datHora, _
Procedure:=conRunMacro, _
Schedule:=True
End Sub
Sub Tu_Sub()
Dim resultado As Integer
    resultado = Range("a3"). Value
    acum = acum + 1
   
    If resultado <= 0 Then
   
        If acum Mod 2 = 0 Then
            Range("A3"). Font. ColorIndex = 3
        Else
            Range("A3"). Font. ColorIndex = 1
        End If
       
        If acum >= 32000 Then
            acum = 0
        End If
    Else
        Range("A3"). Font. ColorIndex = 1
    End If
   
    "reiniciar el temporizador
    StartTemporizador
End Sub
Sub StopTemporizador()
On Error Resume Next
"desactivar el temporizador
Application. OnTime _
Earliesttime:=datHora, _
Procedure:=conRunMacro, _
Schedule:=False
End Sub

Ejecuta el procedimiento Tu_sub para ver cómo parapeda y luego cambia el valor en A2.
Para detenerlo, debes ejecutar Stop_temporizador.
Espero te sirva, saludos.
"

por Luis Sanabria (Julio 2007)

Hola... Luis trato de ejecutar la macro que le enviaste a jesus y tengo un error de conpilacion que me dice FIN DE LA INSTRUCCION.... Y QUE ESTE SE DEBE A FALTA DE UNA PARENTESIS EN LA MACRO ME PODRIAS AYUDAR CON ESTO... PARA VER SI PUEDO PONERLA EN PRACTICA YA QUE VEO QUE ES DE MUCHA UTILIDAD... GRACIAS...


Luis Sanabria
Cartago, Costa Rica
Escrito por Luis Sanabria
el 18/09/2008

Vamos a ver ahora, copia y pega.   Saludos y cualquier cosa me avisas

Public datHora As Date
Public Const conIntervalo = 1 "un segundo
Public Const conRunMacro = "Tu_Sub" "tu proced.
Public acum As Integer "Acumulador

Sub StartTemporizador()
 datHora = Now + TimeSerial(0, 0, conIntervalo)
 "iniciar el temporizador
 Application. OnTime _
 Earliesttime:=datHora, _
 Procedure:=conRunMacro, _
 Schedule:=True
End Sub


Sub Tu_Sub()
Dim resultado As Integer
    resultado = Range("a3"). Value
    acum = acum + 1
   
    If resultado <= 0 Then
   
        If acum Mod 2 = 0 Then
            Range("A3"). Font. ColorIndex = 3
        Else
            Range("A3"). Font. ColorIndex = 1
        End If
       
        If acum >= 32000 Then
            acum = 0
        End If
    Else
        Range("A3"). Font. ColorIndex = 1
    End If
   
    "reiniciar el temporizador
    StartTemporizador
End Sub

Sub StopTemporizador()
On Error Resume Next
 "desactivar el temporizador
 Application. OnTime _
 Earliesttime:=datHora, _
 Procedure:=conRunMacro, _
 Schedule:=False
End Sub

Fabricio Lopez Coto
Costa Rica, Costa Rica
Escrito por Fabricio Lopez Coto
el 18/09/2008

Saludos amigo...

Mira ya copie el macro en el visual basic, y lo ejecute pero me sigue apareciendo el mensaje erroneo...

Te adjunto una pantalla.... No se si estare haciendo algo incorrecto que me impide que me funcione...


Gracias.....



Ficheros adjuntos:
alerta excel
Luis Sanabria
Cartago, Costa Rica
Escrito por Luis Sanabria
el 19/09/2008
Mira, cambia las comillas (") por el apóstrofe que es el indicador de comentario.
Observa el adjunto que te paso en un txt.
"saludos amigo...
mira ya copie el macro en el visual basic, y lo ejecute pero me sigue apareciendo el mensaje erroneo...
te adjunto una pantalla.... No se si estare haciendo algo incorrecto que me impide que me funcione...
 
gracias.....
Alerta excel. Doc
Tamaño: 111104
Tipo: application/octet-stream
 
"
por FABRICIO (Septiembre 2008)






Ficheros adjuntos:
vba
Fabricio Lopez Coto
Costa Rica, Costa Rica
Escrito por Fabricio Lopez Coto
el 19/09/2008

Muchas gracias por la ayuda... El macro funcion bien... Quisiera saber si tu conoces de plantillas de excel que pueda bajar para montar una contabilidad.... Yo me dedico a esto... Y quiesiera saber si conoces de algunas donde se pueda llevar todo el proceso contable.....

Asi mismo tambien si tienes algunos otros macros de utilidad creados por vos me gustaria tenerlos...

Gracias.

Milton Correa Viloria
Licenciatura en cultura fisica institu...
Escrito por Milton Correa Viloria
el 18/09/2010

Soy Milton Correa Viloria

Les pido el favor si me pueden ayuden con esta macro

Cómo hacer que al introducir un valor en una celda en forma inmedita en otra celda empiece a parpadear su contenido y cuando se quite el valor en la anterior celda, se desactive el parpadeo.

Mi correo es micovi1960@gmail. Com


Armando Montes
Foro excel emagister
Escrito por Armando Montes
el 18/09/2010

Para recibir mejor atencion por favor inicia un nuevo debate.

Armando Montes
Foro excel emagister
Escrito por Armando Montes
el 18/09/2010

-----------------