Necesito quitar el error 13 de hoja de Excel
Tengo esto lo que me interesa es que cuando de el error 13 aparezca en la pantalla que falta un dato que es el nombre que esta en la celda F12 que me aparezca un cuadro de dialogo y me de la opción de corregir este error o que puedo hacer? Para solucionar esto y que me de la opción de corregir el dato faltante
Dim Ruta As String, Nuevonombre As String
Ruta = "C:\Documents and Settings\rodolfo\Mis documentos\"
Nuevonombre = Ruta & Range("F12") & Range("W4") & ".pdf"
Worksheets("Factura").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nuevonombre, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
1 Respuesta
Quedaría así:
'********MACRO****
Sub pdf()
'Por daM
'
Dim Ruta As String, Nuevonombre As String
Ruta = "C:\Documents and Settings\rodolfo\Mis documentos\"
Do While Range("F12").Value = ""
If Range("F12").Value = "" Then
celdaF12 = InputBox(Prompt:="Falta el dato en F12. Introduce dato: ")
Range("F12").Value = celdaF12
End If
Loop
Do While Range("W4").Value = ""
If Range("W4").Value = "" Then
celdaW4 = InputBox(Prompt:="Falta el dato en W4. Introduce dato: ")
Range("W4").Value = celdaW4
End If
Loop
Nuevonombre = Ruta & Range("F12") & Range("W4") & ".pdf"
Worksheets("Factura").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nuevonombre, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End sub
'********MACRO****
