Adriel Ortiz Mangia

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

[Hola esto es para poner el enfoque cuando inicias el userform Private Sub UserForm_Activate() CommandButton1.SetFocus End Sub

[Hola Reviso tu archivo y te comento

[Hola prueba así Sub prueba() Sheets("Hoja1").Select Range("A1:D7").Copy Sheets("Hoja2").Range("A1") End Sub valora la respuesta Excelente o bueno saludos!

[Hola Te paso la macro Esto resulta con la grabadora de macros Sub Macro2() ' ' [Por Adriel ' With Range("F10:F21") .Value = "=IF(RC[-5]=""Credito"",(RC[-4]*R4C2/100),(IF(RC[-5]=""Debito"",(RC[-4]*R3C2/100))))" .Value = .Value End With ' With...

[Hola El link no sirve. Pon otro