Adriel Ortiz Mangia

[Hola Te paso la macro actualizada para buscar, lo pones en el evento change de Textfiltro. Private Sub txtFiltro1_Change() ' '[Act. Por Adriel Ortiz ' txtFiltro1 = UCase(txtFiltro1) Set h5 = Sheets("Hoja1") ListBox1.Clear For i = 3 To h5.Range("B" &...

[Hola Te paso la macro, suponiendo que tus datos inicia en la fila 2 Sub EliminarFilas() 'Por.Dante Amor 'Act. Adriel Ortiz ' Application.ScreenUpdating = False For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If...

[Hola Lo consigues con esta formula. Suponiendo que tienes Hoja1 y Hoja2, tus datos en la Hoja1 empiezan A2. Y la formula lo pones en c2 y lo rellenas hacia abajo =BUSCARV(A2,Hoja1!$A$2:$B$200,2,0)

En cual Hoja, fila y columnas tienes tus datos

[Hola Lo puedes conseguir protegiendo la hoja Revisa esta página el tema proteger un rango de celdas https://exceltotal.com/como-proteger-celdas-en-excel/

[Hola Te paso la macro, cambias el nombre de la hoja por el tuyo. Sub Macro1() ' '[Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") u = Range("A" & Rows.Count).End(xlUp).Row h1.Range("A2:A" & u).Copy h1.Range("E2") ' u1 = Range("E" &...

Muestra una imagen de tu hoja y de tu formulario y como esta organizado tus datos; ¿En cuál columna vas a buscar? O si deseas envíame [email protected]

[Hola prueba con esto, cambias la columnas ganancia yo puse B, y el resultado lo pone C1 Sub sumar() u = Range("B" & Rows.Count).End(xlUp).Row Sumx = Application.WorksheetFunction.Sum(Range("B2:B" & u)) Range("C1") = Sumx End Sub Para finalizar a 2...

[Hola prueba esto =EXTRAE(A1,6,5)&"-"&IZQUIERDA(A1,5)

[Hola Usa esto, se ejecutará cuando cierras el libro. Pon la macro en el evento beforeclose de tu libro. Private Sub Workbook_BeforeClose(Cancel As Boolean) ' '[Por Adriel ' Application.ScreenUpdating = False Application.DisplayAlerts = False ' Set h...