MSGBOX sobre vencimiento

[lmhernandezd]

Hola chicos, pretendo que cuando se abra el libro una macro me busque en un rango de datos que datos son mayores que 10 y de un aviso. Este es el código que he planteado pero no me corre.

Private...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Private Sub Workbook_Open()
Sheets("Ficha").Select
d = Range("da2").End(xlDown).Row
For j = 1 To d
If  range("da" & j) > 10 Then
msgbox "Se debe Cancelar la solicitud del pedido k & j"
End...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[lmhernandezd]

Muchas gracias Antoni, estoy muy agradecida, pero tengo otra duda, necesito que el mensaje indique el producto ya que no sale con el K & J, mil gracias

 

[HBanchieri]

Hola lmhernandezd y querido Antoni, que gusto!!!

será que no funcionaria algo más o menos así?

Sub P()

MsgBox Application.WorksheetFunction.CountIf(Range("DA:DA"), ">10")

End Sub

...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[HBanchieri]

lmhernandezd , metiendo mi cuchara te consulto:

El "producto" se encuentra en la columna "K"?
De ser así quizá te funcione cambiando esta linea de código de Antoni.

msgbox "Se debe Cancelar...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[lmhernandezd]

Chicos Muchas gracias, que tal este
Private Sub Workbook_Open()
Sheets("Ficha").Select
d = Range("da2").End(xlDown).Row
For j = 1 To d
texto = ""
municipio = Kj
If Range("da" & j) > 10 Then texto...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[lmhernandezd]

porque si son varios Municipios debe salir el nombre de todos, con el código me sale un error

 

[lmhernandezd]

El error que me sale es end if sin bloque AYuda !!

 

[HBanchieri]

El error que me sale es end if sin bloque

Una cosa es:

If Range("da" & j) > 10 Then
    texto = texto & municipio
End If

otra cosa es:

If Range("da" & j) > 10...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[lmhernandezd]

Hola les dejo el código que me funciono

Private Sub Workbook_Open()
Sheets("Ficha").Select
d = Range("d2").End(xlDown).Row
texto = ""
For j = 2 To d
municipio = Range("K" & j)
If Range("da" &...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí