Macro que envía email informando valor en porcentaje
Estimado Deathwatch, hace un tiempo solicité ayuda y me respondiste de forma clara y oportuna, esta vez quisiera me ayudaras a resolver lo siguiente. He desarrollado una macro para que envíe vía email un valor que está expresado en %. Denominé la celda donde está el valor como "tabla1" y esta denominación va en el strbody del mensaje del email. Sin embargo este aparece como número y no como porcentaje (en vez de aparecer 9,41% aparece 0,041).
La macro es la siguiente:
Sub email_alerta()
'
'Envía aviso cuando se ha excedido el límite superior
Range("I47").NumberFormat = "00%"
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim tabla1 As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Set tabla1 = Range("I47")
strbody = "srs" & vbNewLine & vbNewLine & _
"El control de plagas detectó que el área que usted administra presentó un incremento del consumo de cebos. El porcentaje de consumo asciende a: " & tabla1 & vbNewLine & _
"atentamente, Administrador"
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Control de roedores"
.Body = strbody
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
A la espera de tu valiosa ayuda le saluda, donghi.
La macro es la siguiente:
Sub email_alerta()
'
'Envía aviso cuando se ha excedido el límite superior
Range("I47").NumberFormat = "00%"
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim tabla1 As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Set tabla1 = Range("I47")
strbody = "srs" & vbNewLine & vbNewLine & _
"El control de plagas detectó que el área que usted administra presentó un incremento del consumo de cebos. El porcentaje de consumo asciende a: " & tabla1 & vbNewLine & _
"atentamente, Administrador"
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Control de roedores"
.Body = strbody
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
A la espera de tu valiosa ayuda le saluda, donghi.
Respuesta de deathwatch
1