Adriel Ortiz Mangia

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: 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...

H o l a Te anexo un ejemplo con 3 label Private Sub ComboBox1_Change() Select Case ComboBox1.ListIndex Case 0 Label1.Visible = True Case 1 Label2.Visible = True Case 2 Label3.Visible = True End Select End Sub Private Sub UserForm_Initialize()...

H o l a Haz clic derecho sobre la celda B3, y clic en formato de celdas y en la pestaña PROTEGER desactiva BLOQUEADA. Y no tendrás problemas cuando protejas la hoja Puntuar para finalizar la pregunta.

Lo haces así Sub borrar() Sheets("Hoja1").Range("A5:A9").ClearContents End Sub

H o l a Pon el código en el Private Sub Workbook_BeforeClose(Cancel As Boolean), entonces cada vez que cierras el libro te validará tus datos. Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Contador As Integer Contador = 0 Range("A1").Select...

H o l a Te paso la macro asumiendo que tus encabezados está en la fila 1 Sub buscar_copiar() Set h1 = Sheets("archivo_base") Set h2 = Sheets("resumen") buscar = "logística" Set b = h1.Rows(1).Find(buscar, lookat:=xlWhole) If Not b Is Nothing Then For...