Adriel Ortiz Mangia

H o l a prueba esto y me comentas Sub exportarPDF2() nombre = Cells(47, 5).Value ruta = Cells(48, 5).Value destinatario = Cells(49, 5).Value fecha = Sheets("FORMULAS").Cells(12, 2).Value If Sheets("ReporteAct").Cells(46, 5) > 0 Then...

H o l a: Te paso la macro y actualiza las celdas para el nombre del pdf Ruta = ThisWorkbook.Path & "\" '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- nomb = [A1] & "_" & [A2] & "_" & [A3] & "_" & [A4] ' EN ESTA LINEA CAMBIA LAS CELDAS PARA EL NOMBRE DEL ARCHIVO...

Revisa esta web http://www.taringa.net/post/info/12161192/Quitar-contrasena-visual-basic-de-excel.html

Hey! Revisa esto https://www.youtube.com/results?search_query=otto+javier+gonz%C3%A1lez+ https://www.youtube.com/results?search_query=david+asurmendi

Jey Te paso la macro Sub OcultarRestantes() Set h = Sheets("indice") For Each Sheet In ActiveWorkbook.Sheets If Sheet.Name <> h.Name Then Sheet.Visible = False End If Next Sheet End Sub Sub Mostrar() Set h = Sheets("indice") For Each Sheet In...

H o l a: Te paso la macro Private Sub CommandButton1_Click() If ComboBox1.ListIndex = -1 Then MsgBox "Seleccione una hoja", vbInformation, "AVISO" Exit Sub End If Set h = Sheets(ComboBox1.ListIndex) Application.ScreenUpdating = False...

h o l a Esto te puede ayudar Un libro para aprender VBA Excel 2013?

H o l a: Te paso la macro: Para generar el PDF, cambia el nombre del listbox por el tuyo Private Sub CommandButton1_Click() If ListBox1.ListIndex = -1 Then MsgBox "Seleccione una hoja", vbInformation, "AVISO" Exit Sub End If Set h =...

H o l a: Usa esto, el nombre lo determinas en la celda A1 y guardará el pdf en la ruta de tu archivo Sub Guardarpdf() Application.ScreenUpdating = False Application.DisplayAlerts = False Ruta = ThisWorkbook.Path & "\" nomb = [A1]...

H o l a: La respuesta de Dante es interesante para solucionar tu problema Como abro un hipervínculo desde un Listbox en Excel Esto para abrir hipervínculo Como agrego una condición para que Listbox abra un hipervínculo. Si no logras adaptar el código...