Adriel Ortiz Mangia

[Hola Te paso la macro para insertar tus datos del formulario a la hoja. -No tendrás dificultades si la hoja esta oculta -Cambia el nombre de la hoja por el tuyo. -Cambias los nombres del textbox por el que tengas en tu formulario. Private Sub...

[Hola Te paso la macro Sub multiplicar() ' '[Por Adriel Ortiz ' For i = 4 To Range("A" & Rows.Count).End(xlUp).Row For j = 2 To Cells(4, Columns.Count).End(xlToLeft).Column If Cells(i, "A") = "EXP" Then Cells(i, j) = Cells(i, j) * -1 End If Next j...

[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 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 ¿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 En workbook_open pon esto Application.Visible = False Userform.show 'cambias el nombre de tu formulario por el tuyo

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