Adriel Ortiz Mangia

[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 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 Una vez copiado los datos adonde se va copiar

[Hola ¿Puedes poner la macro para modificar?

[Hola Te paso la macro. Private Sub Worksheet_Change(ByVal Target As Range) ' If Not Intersect(Target, Range("H:H")) Is Nothing Then If Target.Count > 1 Then Exit Sub Select Case Target.Value Case "" Cells(Target.Row, "N") = "" Case Else...

[Hola Indica cual el nombre de tu hoja y de los controles para adecuar la macro.

[Hola Al final de error está escrito cuount Es : count

[Hola El método Find puede buscar el valor con una coincidencia exacta o parcial con el valor de la celda.