Adriel Ortiz Mangia

H o l a Te paso la macro Private Sub CommandButton1_Click() 'Por Adriel n = 0 ListBox1.Clear For Each j In Me.Controls If TypeOf j Is MSForms.TextBox Then If TypeName(j) = "TextBox" Then If j.Value <> "" Then n = n + 1 End If End If End If Next...

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

H o l a: Otto gonzales https://www.youtube.com/channel/UCfFT6jJx6khLYjibRwKODhA David Asurmendi https://www.youtube.com/channel/UCfoCe_a1EPntK64tD1Z8yMg También puedes revisar la preguntas resueltas de esta web todoexpertos por: Dante Amor Elsa...

H o l a: descarga de esta página http://www.intercambiosvirtuales.org/sistemas-operativos/win10-ani

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 Ta paso la macro Private Sub CommandButton1_Click() 'Fuente Elsa 'Act. Adriel Set h1 = Sheets("Hoja3") Set b = h1.Range("A:A").Find(ComboBox1, lookat:=xlWhole) If b Is Nothing Then MsgBox "No se encuentra" Exit Sub End If Range("A" &...

H o l a Muestra la macro