Sumar rangos variables y colocar formula en la celda
Publicado por Jimmy Blanco (1 intervención) el 30/03/2019 02:32:34
Buenas noches, tengo una macro que me hace la suma de rangos cuando encuentra una palabra especifica, "Partida", pero coloca solo el valor y yo quiero que coloque la formula por si cambio un valor se actualice.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub SumarPartida()
UF = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To UFIf Cells(i, 1) = "Partida" Then
Var = Range("B" & i + 1, Range("B" & i + 1).End(xlDown))
Cells(i, 3) = Application.WorksheetFunction.Sum(Var)
'Separador = Application.International(xlListSeparator)
'Cells(i, 3) = "=SUM(Range(B & i + 1 " & Separador & " Range(B & i + 1).End(xlDown))"
End If
Next
End Sub
1
2
3
4
5
6
Columna A Columna B Columna C
Partida 100 (esta es la suma)
1-1-1 10
1-1-2 20
1-1-3 30
1-1-4 40
Valora esta pregunta
0
