Skip to main content
Publicación cerrada como "Necesita detalles o aclaraciones" por Rubén, Francisco Romero, eferion, Jorgesys
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
se añadieron 30 caracteres en el cuerpo; título editado
Origen Enlace
Mariano
  • 24.5k
  • 20
  • 76
  • 105

Cajas de mensaje Recordatorios si una celda coincide con una fecha en Excel VBA - Recordatorios

Estoy tratando de desarrollar una alerta que recuerde a las personas a enviar un reporte semanal cuando determinadas fechas (que están seleccionadas en la columna BA) están igualadas con el día actual. 

El problema es que mi caja de mensaje no se está mostrando, y a pesar de que el código parece ser muy simple, no estoy encontrando una solución al problema. Cambié el día en mi computadora para probar y no pasopasó nada.

El código es el siguiente:

Sub ReportReminder()

    If Date = Sheets(1).Cell("BA15").Value Then
        MsgBox ("Enviar reporte semanal")
    ElseIf Date = Sheets(1).Cell("BA21").Value Then
        MsgBox ("Enviar reporte semanal")
    ElseIf Date = Sheets(1).Cell("BA27").Value Then
        MsgBox ("Enviar reporte semanal")
    ElseIf Date = Sheets(1).Cell("BA33").Value Then
        MsgBox ("Enviar reporte semanal")
    End If

End Sub

Cualquier otro dato que necesiten haganmeháganme saber, Muchas gracias.

Cris

Cajas de mensaje Excel VBA - Recordatorios

Estoy tratando de desarrollar una alerta que recuerde a las personas a enviar un reporte semanal cuando determinadas fechas (que están seleccionadas en la columna BA) están igualadas con el día actual. El problema es que mi caja de mensaje no se está mostrando, y a pesar de que el código parece ser muy simple, no estoy encontrando una solución al problema. Cambié el día en mi computadora para probar y no paso nada.

El código es el siguiente:

Sub ReportReminder()

If Date = Sheets(1).Cell("BA15").Value Then
MsgBox ("Enviar reporte semanal")
ElseIf Date = Sheets(1).Cell("BA21").Value Then
MsgBox ("Enviar reporte semanal")
ElseIf Date = Sheets(1).Cell("BA27").Value Then
MsgBox ("Enviar reporte semanal")
ElseIf Date = Sheets(1).Cell("BA33").Value Then
MsgBox ("Enviar reporte semanal")
End If

End Sub

Cualquier otro dato que necesiten haganme saber, Muchas gracias.

Cris

Recordatorios si una celda coincide con una fecha en Excel VBA

Estoy tratando de desarrollar una alerta que recuerde a las personas a enviar un reporte semanal cuando determinadas fechas (que están seleccionadas en la columna BA) están igualadas con el día actual. 

El problema es que mi caja de mensaje no se está mostrando, y a pesar de que el código parece ser muy simple, no estoy encontrando una solución al problema. Cambié el día en mi computadora para probar y no pasó nada.

El código es el siguiente:

Sub ReportReminder()

    If Date = Sheets(1).Cell("BA15").Value Then
        MsgBox ("Enviar reporte semanal")
    ElseIf Date = Sheets(1).Cell("BA21").Value Then
        MsgBox ("Enviar reporte semanal")
    ElseIf Date = Sheets(1).Cell("BA27").Value Then
        MsgBox ("Enviar reporte semanal")
    ElseIf Date = Sheets(1).Cell("BA33").Value Then
        MsgBox ("Enviar reporte semanal")
    End If

End Sub

Cualquier otro dato que necesiten háganme saber.

se añadieron 52 caracteres en el cuerpo
Origen Enlace
sstan
  • 16.9k
  • 2
  • 24
  • 48

Estoy tratando de desarrollar una alerta que recuerde a las personas a enviar un reporte semanal cuando determinadas fechas (que están seleccionadas en la columna BA) están igualadas con el día actual. El problema es que mi caja de mensaje no se está mostrando, y a pesar de que el código parece ser muy simple, no estoy encontrando una solución al problema. Cambié el día en mi computadora para probar y no paso nada.

El código es el siguiente:

Sub ReportReminder()

If Date = Sheets(1).Cell("BA15").Value Then MsgBox ("Enviar reporte semanal") ElseIf Date = Sheets(1).Cell("BA21").Value Then MsgBox ("Enviar reporte semanal") ElseIf Date = Sheets(1).Cell("BA27").Value Then MsgBox ("Enviar reporte semanal") ElseIf Date = Sheets(1).Cell("BA33").Value Then MsgBox ("Enviar reporte semanal") End If

End Sub

Sub ReportReminder()

If Date = Sheets(1).Cell("BA15").Value Then
MsgBox ("Enviar reporte semanal")
ElseIf Date = Sheets(1).Cell("BA21").Value Then
MsgBox ("Enviar reporte semanal")
ElseIf Date = Sheets(1).Cell("BA27").Value Then
MsgBox ("Enviar reporte semanal")
ElseIf Date = Sheets(1).Cell("BA33").Value Then
MsgBox ("Enviar reporte semanal")
End If

End Sub

Cualquier otro dato que necesiten haganme saber, Muchas gracias.

Cris

Estoy tratando de desarrollar una alerta que recuerde a las personas a enviar un reporte semanal cuando determinadas fechas (que están seleccionadas en la columna BA) están igualadas con el día actual. El problema es que mi caja de mensaje no se está mostrando, y a pesar de que el código parece ser muy simple, no estoy encontrando una solución al problema. Cambié el día en mi computadora para probar y no paso nada.

El código es el siguiente:

Sub ReportReminder()

If Date = Sheets(1).Cell("BA15").Value Then MsgBox ("Enviar reporte semanal") ElseIf Date = Sheets(1).Cell("BA21").Value Then MsgBox ("Enviar reporte semanal") ElseIf Date = Sheets(1).Cell("BA27").Value Then MsgBox ("Enviar reporte semanal") ElseIf Date = Sheets(1).Cell("BA33").Value Then MsgBox ("Enviar reporte semanal") End If

End Sub

Cualquier otro dato que necesiten haganme saber, Muchas gracias.

Cris

Estoy tratando de desarrollar una alerta que recuerde a las personas a enviar un reporte semanal cuando determinadas fechas (que están seleccionadas en la columna BA) están igualadas con el día actual. El problema es que mi caja de mensaje no se está mostrando, y a pesar de que el código parece ser muy simple, no estoy encontrando una solución al problema. Cambié el día en mi computadora para probar y no paso nada.

El código es el siguiente:

Sub ReportReminder()

If Date = Sheets(1).Cell("BA15").Value Then
MsgBox ("Enviar reporte semanal")
ElseIf Date = Sheets(1).Cell("BA21").Value Then
MsgBox ("Enviar reporte semanal")
ElseIf Date = Sheets(1).Cell("BA27").Value Then
MsgBox ("Enviar reporte semanal")
ElseIf Date = Sheets(1).Cell("BA33").Value Then
MsgBox ("Enviar reporte semanal")
End If

End Sub

Cualquier otro dato que necesiten haganme saber, Muchas gracias.

Cris

Origen Enlace

Cajas de mensaje Excel VBA - Recordatorios

Estoy tratando de desarrollar una alerta que recuerde a las personas a enviar un reporte semanal cuando determinadas fechas (que están seleccionadas en la columna BA) están igualadas con el día actual. El problema es que mi caja de mensaje no se está mostrando, y a pesar de que el código parece ser muy simple, no estoy encontrando una solución al problema. Cambié el día en mi computadora para probar y no paso nada.

El código es el siguiente:

Sub ReportReminder()

If Date = Sheets(1).Cell("BA15").Value Then MsgBox ("Enviar reporte semanal") ElseIf Date = Sheets(1).Cell("BA21").Value Then MsgBox ("Enviar reporte semanal") ElseIf Date = Sheets(1).Cell("BA27").Value Then MsgBox ("Enviar reporte semanal") ElseIf Date = Sheets(1).Cell("BA33").Value Then MsgBox ("Enviar reporte semanal") End If

End Sub

Cualquier otro dato que necesiten haganme saber, Muchas gracias.

Cris