Adriel Ortiz Mangia

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: Leonardo estos es un claro ejemplo Private Sub CommandButton1_Click() 'por Luis mondelo 'Actualizado por Adriel dato = TextBox1.Value For Each hoja In ActiveWorkbook.Sheets Set busca = hoja.Cells.Find(dato, LookIn:=xlValues, lookat:=xlWhole)...

H o l a Te paso la macro actualizada Sub Copiar() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.UsedRange.Offset(1, 0).ClearContents j = 2 n = 0 For i = 2 To h1.Range("A" &...

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