Adriel Ortiz Mangia

[Hola te paso para filtrar desde g2 Sub Macro2() ActiveSheet.Range("$A$2:$E$100").AutoFilter Field:=5, Criteria1:=Format(Range("G2"), "dd/mm/yyyy") End Sub A los títulos le pones en la segunda fila para cuando realices el filtro no se oculte

[Hola te paso un ejemplo Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If ComboBox1 = "" Or ComboBox1 = -1 Then MsgBox "Debe seleccionar un item" Cancel = True End If End Sub valora para finalizar

[Hola te paso la macro, cuando ingreses el código te volcará los datos a los textbox Private Sub CommandButton1_Click() '[Por Adriel ortiz ' Set h = Sheets("Hoja1") Set r = Columns("A") Set b = r.Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing...

[Hola te paso la macro actualizada Private Sub CommandButton1_Click() Sheets("Aperturas").Activate ' REPETIR = Val(TextBox8.Value) fila = Sheets("Aperturas").Range("A" & Rows.Count).End(xlUp).Row + 1 For Q = 1 To REPETIR 'Obtener la fila disponible...

[Hola prueba cambiando esta línea Range(Selection, Selection.End(xlDown)).Select por Range(Selection, Selection.End(xlUp)).Select

[hola Te paso un ejemplo If option1then Ranger("D") = "Maculino" Elseif option2 then Ranger("D") = "Femenino" End if

[Hola Has doble clic en la línea de la separación y volverá a su normalidad

[Hola ¿Puedes mostrar una imagen de tu hoja y cual columnas vas a filtrar?

[Hola ¿Deseas realizar la búsqueda y mostrarlo en el listbox? Y como esta organizado tu información osea cuales son las columnas a buscar y en que fila empieza tus datos

[Hola, deseas actualizar datos de un nombre encontrado? ¿Por ejemplo encuentras el Dni 12345678 y deseas actualizar el sexo de la persona?