Anónimo
Macro inserta fila y suma
Hola amigos, mi problema es el siguiente, tengo 2700 datos, por ejemplo:
B
B1 3
B2 8
B3 9
B4 12
B5 13
B6 18
B7 13
B8 17
ETC.
Lo que quiero es que me inserte una macro cada 4 celdas, y me sume esas 4 celdas que queden por arriba, es decir, en el ejemplo anterior después de B4 me inserte una fila y me haga la suma por tanto resulta B5 = 32 y después B9 sería 61 y así sucesivamente.
B
B1 3
B2 8
B3 9
B4 12
B5 13
B6 18
B7 13
B8 17
ETC.
Lo que quiero es que me inserte una macro cada 4 celdas, y me sume esas 4 celdas que queden por arriba, es decir, en el ejemplo anterior después de B4 me inserte una fila y me haga la suma por tanto resulta B5 = 32 y después B9 sería 61 y así sucesivamente.
1 Respuesta
Respuesta de v_344
1
Asi quedaria el codigo, deberas insertar un boton de comando del menu programador del cuadro activex.
Private Sub CommandButton1_Click()
While ActiveCell.Value <> ""
ActiveCell.Offset(4, 0).Select
Selection.EntireRow.Insert
num1 = ActiveCell.Offset(-4, 0)
num2 = ActiveCell.Offset(-3, 0)
num3 = ActiveCell.Offset(-2, 0)
num4 = ActiveCell.Offset(-1, 0)
ActiveCell = WorksheetFunction.Sum(num1, num2, num3, num4)
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Es muy importante que antes de ejecutar la macro te coloques en la primera celda de los datos.
saludos... cualkier duda x aki ando
Private Sub CommandButton1_Click()
While ActiveCell.Value <> ""
ActiveCell.Offset(4, 0).Select
Selection.EntireRow.Insert
num1 = ActiveCell.Offset(-4, 0)
num2 = ActiveCell.Offset(-3, 0)
num3 = ActiveCell.Offset(-2, 0)
num4 = ActiveCell.Offset(-1, 0)
ActiveCell = WorksheetFunction.Sum(num1, num2, num3, num4)
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Es muy importante que antes de ejecutar la macro te coloques en la primera celda de los datos.
saludos... cualkier duda x aki ando