Alternativa para sumar datos de varias columnas
Publicado por Viriato (1 intervención) el 09/02/2015 14:06:55
Hola gente,
acabo de escribir el sub de abajo para que me sume varios valores de una columna si se cumple una condición en la primera de ella. La cuestión es que la suma se lleva a cabo en varias columnas, siendo la condición la misma para todas.
Como soy un poco patán con el VB y no tengo mucho tiempo lo he he hecho manualmente pero me gustaría que me indicárais una alternativa a copiar una orden por columna
Gracias y un saludo!
_______________________
acabo de escribir el sub de abajo para que me sume varios valores de una columna si se cumple una condición en la primera de ella. La cuestión es que la suma se lleva a cabo en varias columnas, siendo la condición la misma para todas.
Como soy un poco patán con el VB y no tengo mucho tiempo lo he he hecho manualmente pero me gustaría que me indicárais una alternativa a copiar una orden por columna
Gracias y un saludo!
_______________________
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Sub Summe()
Dim i As Integer
Dim Summe As Double
i = 3ActiveCell.SelectDo
If ActiveCell.Offset(0, -2).Value = Cells(i, 4).Value Then
Summe_6 = Cells(i, 6).Value + Summe_6
Summe_7 = Cells(i, 7).Value + Summe_7
Summe_8 = Cells(i, 8).Value + Summe_8
Summe_9 = Cells(i, 9).Value + Summe_9
Summe_10 = Cells(i, 10).Value + Summe_10
Summe_11 = Cells(i, 11).Value + Summe_11
Summe_12 = Cells(i, 12).Value + Summe_12
Summe_13 = Cells(i, 13).Value + Summe_13
Summe_14 = Cells(i, 14).Value + Summe_14
Summe_15 = Cells(i, 15).Value + Summe_15
Summe_16 = Cells(i, 16).Value + Summe_16
Summe_17 = Cells(i, 17).Value + Summe_17
Summe_18 = Cells(i, 18).Value + Summe_18
Summe_19 = Cells(i, 19).Value + Summe_19
Summe_20 = Cells(i, 20).Value + Summe_20
Summe_21 = Cells(i, 21).Value + Summe_21
Summe_22 = Cells(i, 22).Value + Summe_22
Summe_23 = Cells(i, 23).Value + Summe_23
Summe_24 = Cells(i, 24).Value + Summe_24
Summe_25 = Cells(i, 25).Value + Summe_25
Summe_26 = Cells(i, 26).Value + Summe_26
Summe_27 = Cells(i, 27).Value + Summe_27
Summe_28 = Cells(i, 28).Value + Summe_28
Summe_29 = Cells(i, 29).Value + Summe_29
Summe_30 = Cells(i, 30).Value + Summe_30
Summe_31 = Cells(i, 31).Value + Summe_31
Summe_32 = Cells(i, 32).Value + Summe_32
Summe_33 = Cells(i, 33).Value + Summe_33
End If
i = i + 1
Loop Until Cells(i, 3).Value < 1
ActiveCell.Value = Summe_6
ActiveCell.Offset(0, 1).Value = Summe_7
ActiveCell.Offset(0, 2).Value = Summe_8
ActiveCell.Offset(0, 3).Value = Summe_9
ActiveCell.Offset(0, 4).Value = Summe_10
ActiveCell.Offset(0, 5).Value = Summe_11
ActiveCell.Offset(0, 6).Value = Summe_12
ActiveCell.Offset(0, 7).Value = Summe_13
ActiveCell.Offset(0, 8).Value = Summe_14
ActiveCell.Offset(0, 9).Value = Summe_15
ActiveCell.Offset(0, 10).Value = Summe_16
ActiveCell.Offset(0, 11).Value = Summe_17
ActiveCell.Offset(0, 12).Value = Summe_18
ActiveCell.Offset(0, 13).Value = Summe_19
ActiveCell.Offset(0, 14).Value = Summe_20
ActiveCell.Offset(0, 15).Value = Summe_21
ActiveCell.Offset(0, 16).Value = Summe_22
ActiveCell.Offset(0, 17).Value = Summe_23
ActiveCell.Offset(0, 18).Value = Summe_24
ActiveCell.Offset(0, 19).Value = Summe_25
ActiveCell.Offset(0, 20).Value = Summe_26
ActiveCell.Offset(0, 21).Value = Summe_27
ActiveCell.Offset(0, 22).Value = Summe_28
ActiveCell.Offset(0, 23).Value = Summe_29
ActiveCell.Offset(0, 24).Value = Summe_30
ActiveCell.Offset(0, 25).Value = Summe_31
ActiveCell.Offset(0, 26).Value = Summe_32
ActiveCell.Offset(0, 27).Value = Summe_33
End Sub
Valora esta pregunta
0