Macro para sumar filas horizontal hasta la ultima columna con datos
Tengo el siguiente código el cual me funciona muy bien
Sub consulta_datos()
Application.ScreenUpdating = False
Set h = Sheets(Hoja5.Name)
Set b1 = h.Columns("B").Find(Sheets(Hoja3.Name).[D6], lookat:=xlWhole)
If Not b1 Is Nothing Then
'*1
Sheets(Hoja3.Name).[C11] = h.Cells(b1.Row, "D") + h.Cells(b1.Row, "E") + h.Cells(b1.Row, "F")
End If
End Sub
el detalle lo tengo aqui:
Sheets(Hoja3.Name).[C11] = h.Cells(b1.Row, "D") + h.Cells(b1.Row, "E") + h.Cells(b1.Row, "F")
Ya que se tiene que sumar hasta la columna "AH" por lo que mientras en esa línea tengo que estar colocando:
+ h.Cells(b1.Row, "G")
+ h.Cells(b1.Row, "H")
+ h.Cells(b1.Row, "I")
Hasta llegar a la columna AH
¿Hay alguna manera de simplificarlo?
1 respuesta
Respuesta de Dante Amor
2
Quedaría así
Sub consulta_datos()
Application.ScreenUpdating = False
Set h = Sheets(Hoja5.Name)
Set b1 = h.Columns("B").Find(Sheets(Hoja3.Name).[D6], lookat:=xlWhole)
If Not b1 Is Nothing Then
Sheets(Hoja3.Name).[C11] = WorksheetFunction.Sum(h.Range(h.Cells(b1.Row, "D"), h.Cells(b1.Row, "AH")))
End If
End Sub[sal u dos
