Suma de columnar y totalizar AYUDA !
Hola expertos! Necesito sumar la columna A2:A500 y luego B2:B500 y si el resultado de la columna A es mayor al resultado de la columna B dar un error msg. Debo hacer esto para tres hojas (HOJA1, HOJA2 y HOJA3). Necesito una macro que lo haga y diga que hoja tiene datos malos. Gracias.
1 Respuesta
Respuesta de Elsa Matilde
1
Aquí vá un ejemplo para 1 hoja, luego lo repetís para las otras 2;
Sub MacroSuma()
Sheets("Hoja1").Select
sum1 = Application.WorksheetFunction.Sum(Range("A2:A20"))
sum2 = Application.WorksheetFunction.Sum(Range("b2:b20"))
If sum1 > sum2 Then
MsgBox "La col A es > a la col B, en hoja 1"
Else
MsgBox "La col B es > a la col A, en hoja 1"
End If
End Sub
Sdos
Elsa
PD) No te pierdas la promoción de julio, en manuales
Sub MacroSuma()
Sheets("Hoja1").Select
sum1 = Application.WorksheetFunction.Sum(Range("A2:A20"))
sum2 = Application.WorksheetFunction.Sum(Range("b2:b20"))
If sum1 > sum2 Then
MsgBox "La col A es > a la col B, en hoja 1"
Else
MsgBox "La col B es > a la col A, en hoja 1"
End If
End Sub
Sdos
Elsa
PD) No te pierdas la promoción de julio, en manuales
