Visual Basic - Alternativa para sumar datos de varias columnas

Life is soft - evento anual de software empresarial
   
Vista:

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!
_______________________

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 = 3
 
ActiveCell.Select
 
Do
 
    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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder