Adriel Ortiz Mangia

[Hola Usa la función buscarV, pero primero aplica un filtro para ambas hojas ordenados de menor a mayor.

[Hola te paso la macro actualizada Private Sub TextBox7_Change() Label9 = Len(TextBox7) If Label9.Caption >= 1 Then Label10.Caption = "Numero de Caracteres" Else Label10.Caption = Empty End If ' Dim NUMERO As Integer NUMERO = Label9.Caption ' Select...

[Hola puedes poner un límite con esto Private Sub UserForm_Activate() TextBox1.MaxLength = 64 End Sub

[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 ¿Puedes mostrar una imagen de tu hoja y cual columnas vas a filtrar?