Macro para modificar totales de distinta columnas
Lo que necesito a quien me pueda ayudar es una macro que me permita al modificar el porcentaje de la celda G1, modificque todos los importes que hay en las columnas de enero febrero y marzo, es decir le sume el 2% o el porcentaje que ingrese a los importes de dichas columnas
1 respuesta
Respuesta de James Bond
1
Coloca esta macro en el modulo VBA de la hoja1 cada que cambies el valor de la celda g1 cambiara el total de todos los meses sin importar cuantas filas tenga
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G1")) Is Nothing Then
Set DATOS = Range("A1").CurrentRegion
With DATOS
F = .Rows.Count: C = .Columns.Count
Set DATOS = .Rows(2).Resize(F - 1, C)
PORCENTAJE = Range("G1")
For I = 1 To .Cells.Count
.Cells(I) = .Cells(I) + (.Cells(I) * PORCENTAJE)
Next I
End With
End If
End Sub
