Jonathan Escobar Molina

Dante Amor respondió: H o l a: Ese efecto lo puedes lograr así: Pon lo siguiente para abrir el formulario: Sub abrir() 'Por.Dante Amor Application.Windows(ThisWorkbook.Name).Visible = False UserForm1.Show Application.Windows(ThisWorkbook.Name).Visible = True End Sub...

Dante Amor respondió: H o l a: Quedaría así para enviar la hoja "OC" como PDF: Sub Enviar() hoja = "OC" correo = "xxxxxxxxxxxxx" passwd = "xxxxxxxxx" ' Application.DisplayAlerts = False Application.ScreenUpdating = False ruta = ThisWorkbook.Path & "\" nombre =...

Dante Amor respondió: H o l a: Si quieres guardar la hoja "OC" como archivo "xlsx", quedaría así: Sub guardar() Application.ScreenUpdating = False Application.DisplayAlerts = False Ruta = ThisWorkbook.Path & "\" nombre = InputBox("Ingrese Nombre", "Ingreso") If...

Dante Amor respondió: H o l a: Prueba con la siguiente macro Sub GuardarPdf() 'Act.Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Ruta = ThisWorkbook.Path & "\" nombre = InputBox("Ingrese Nombre", "Ingreso") If Len(nombre) = 0 Then...