Error en proyecto de Visual Basic

Soy Moleiro y en relación a la pregunta que te hice "pegar dos sentencias en una sola" solo era para comentarte que la instrucción que me diste funcionó perfectamente. El problema que tengo ahora es que tengo en el proyecto de VBA unas cuantos más checkbox con diferentes celdas y quisiera poner esa declaración que me diste a todas pero me tira el error "Los comentarios solamente pueden aparecer después de end sub, end fuction o end property" y no sé como arreglarlo.
Sin más un saludo de Moleiro

1 Respuesta

Respuesta
1
Enviame el código a mi correo
[email protected]
Ya te envié el correo
Saludos
No pude enviarte por correo algo pasa con mi correo o tu cuenta pero aquí esta la solución.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const Rango As String = "B2"
Private Const Rang As String = "C2"
Private Const Mensaje As String = "IIIIIIIIIIIIIIIIIIIIIIIII"
Private Sub CheckBox1_Click()
Dim Celda As Range
Set Celda = Range(Rango)
With Celda
.Font.Color = &HFF&
Do While CheckBox1.Value
DoEvents
Value = IIf(.Value = Mensaje, "", Mensaje)
Sleep 80
Range("B118").Value = 300
Range("B136").Value = 300
Range("B154").Value = 300
Range("B172").Value = 300
Range("B190").Value = 300
Loop
Value = ""
End With
End Sub
Private Sub CheckBox2_Click()
Dim Celda As Range
Set Celda = Range(Rang)
With Celda
.Font.Color = &HFF&
Do While CheckBox2.Value
DoEvents
Value = IIf(.Value = Mensaje, "", Mensaje)
Sleep 80
Range("C118").Value = 180
Range("C136").Value = 180
Range("C154").Value = 180
Range("C172").Value = 180
Range("C190").Value = 180
Loop
Value = ""
End With
End Sub
Solo cambie de posición algunas cosas y cambie de nombre una constante porque no puedes repedir un nombre de variable, ok
Lo he intentado pero la intermitencia en la celda no me sale
Un saludo
Hice otros cambios revisa bien el código copia este tal cual solo reemplaza los valores de la variable rango ami me funciona ok, solo que parpadea solo una a la vez, tu quieres que parpadeen las dos juntas, no se si se puede hacerlo averiguare, mandame un correo y dime si lo que te envíe te funciona, fíjate en los puntos ok
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const Mensaje As String = "IIIIIIIIIIIIIIIIIIIIIIIII"
Private Sub CheckBox1_Click()
Dim rango As String
Dim Celda As Range
rango = "b6"
Set Celda = Range(rango)
With Celda
.Font.Color = &HFF&
Do While CheckBox1.Value
DoEvents
.Value = IIf(.Value = Mensaje, "", Mensaje)
Sleep 80
Range("C118").Value = 180
Range("C136").Value = 180
Range("C154").Value = 180
Range("C172").Value = 180
Range("C190").Value = 180
Loop
.Value = ""
End With
End Sub
Private Sub CheckBox2_Click()
Dim Celda As Range
Dim rango As String
rango = "c10"
Set Celda = Range(rango)
With Celda
.Font.Color = &HFF&
Do While CheckBox2.Value
DoEvents
.Value = IIf(.Value = Mensaje, "", Mensaje)
Sleep 80
Range("C118").Value = 180
Range("C136").Value = 180
Range("C154").Value = 180
Range("C172").Value = 180
Range("C190").Value = 180
Loop
.Value = ""
End With
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro copiar datos de una web

Que me quita demasiado tiempo en mi trabajo. Lo que necesito es una rutina que me permita ingresar a un sitio web y consultar un número de identificación que en mi ejemplo está en la celda c5. Luego necesito copiar la información que se muestra para...
1 respuesta

Ejecutar macro una sola vez

Tengo el siguiente macro para que cuando el resultado de una fórmula me de "-1" ejecute otro macro que me envía un mail automáticamente y a la vez, me indica en la columna siguiente a la fórmula que me ha enviado el mail. El problema es que cada vez...
1 respuesta

Usar una plantilla de Excel para insertar datos de Access

Querría conseguir que desde Access se abriera un Excel que tengo como plantilla en la carpeta "Plantilla" y que me rellenara la celda A1 con Nombre, la celda B1 con Apellido, que me pusiera esas dos celdas en negrita, y que en la celda A2 me...
1 respuesta

Activar macro si cambia el valor de la celda

Necesito activar una macro cuando cambie el valor de una celda ... Prove con este Private Sub Worksheet_Change(ByVal Target As Range) Dim RangCtrl As String Dim EnRango As Variant If Range("B20").Value = 1 Then Run "Macro1" Else If Range(?B20?).Value...
1 respuesta

Enviar correo desde excel con otro remitente

Quisiera que me brindes tu apoyo con este inconveniente. Quiero enviar mensajes desde excel con macros. Sin embargo en el trabajo manejo 2 correos uno personal y otro del área donde laboro. Por ejemplo Correo personal: [email protected] correo del...
1 respuesta

Error 13 en tiempo de ejecución no coinciden los tipos excel

Tengo un UF que me saca un error que realmente no he podido descifrar. No me deja cargar la userform y cuando ejecuto el botón1 me genera un error al poner los datos en la base de datos . Código Ption Explicit Private Declare Function FindWindow Lib...
1 respuesta

Ocultar filas con celdas vacías

No he programado en mi vida una Macro, así que os cuento lo que necesito y lo que he utilizado "de oídas" buscando por internet. Tengo un Libro con distintas Hojas vinculadas y en una de ellas quiero ocultar las filas (desde la 52 hasta la 71) en las...
2 respuestas