Valor de celda dentro de un Msgbox

Estoy atorado con una línea

Tengo un Msgbox que se despliega al abrir el archivo y dice lo siguiente:

MsgBox "Existen ## palpadores Vencidos"

El ## deberia ser el valor de la celda 

La hoja se llama:  Main

Valor ubicado en celda:  AS1

Asi esta el codigo:

Private Sub Workbook_Open()

Sheets("Main").Select
  If Sheet1.Range("AS1").Value > 0 Then
    MsgBox "EXISTEN   ¿?  PALPADORES VENCIDOS"
End If
End Sub

Muchas gracias por la ayuda,

2 respuestas

Respuesta
1

Te dejo la macro ajustada:

Private Sub Workbook_Open()
Sheets("Main").Select
  If ActiveSheet.[AS1].Value > 0 Then
    MsgBox "EXISTEN " & ActiveSheet.[AS1] & " PALPADORES VENCIDOS"
End If
End Sub

Sdos.

Elsa

*Cyber-mes en manuales Excel:

Respuesta
1

[Hola

Si mal no te entendí, y viendo lo que tienes, solo haría falta cambiar esto:

MsgBox "EXISTEN " & Range("AS1").Value & " PALPADORES VENCIDOS"

Comentas

Abraham Valencia

PD: Yo no usaría "Select"

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas