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 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 ¿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 Te paso la macro actualizada Private Sub cboOperacion_AfterUpdate() Dim v1 As Variant, v2 As Variant, vOper As String v1 = Val(Me.txt1.Value) v2 = Val(Me.txt2.Value) ' 'validamos los textbox If Me.txt1 = "" Or Me.txt2 = "" Then MsgBox "No se...

</Hola Te paso la macro, si tus datos están de esta forma. Datos en la hoja1 resultado en la hoja2 macro Sub copia_ordena() '//Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h1.Cells.Copy h2.[A1] u = h2.Range("A" &...

</Hola Prueba con esto Sub compara() Set h1 = Sheets("Hoja1") For i = 2 To h1.Range("B" & Rows.Count).End(xlUp).Row Set r = h1.Columns("A") Set b = r.Find(h1.Cells(i, "B"), lookat:=xlPart) If Not b Is Nothing Then h1.Cells(i, "C") = "existe" Else...

</Hola Usa el control spingButton Private Sub SpinButton1_SpinDown() TextBox1.Value = TextBox1.Value - 1 End Sub Private Sub SpinButton1_SpinUp() TextBox1.Value = TextBox1.Value + 1 End Sub sigue las instrucciones de este vídeo...