Sumar un rango desconocido con macro
Hola amigos, desea saber si se puede sumar un rango de celdas pero deseo introducir en un inputbox el rango o en todo caso que sea seleccionado el rango y enviarlo en una celda que tampoco es fija.
Gracias
Gracias
1 respuesta
Respuesta de villaju
1
Prueba con esta macro:
Sub SumarRango()
Dim celda1 As String
Dim celda2 As String
celda1 = InputBox("Sumar desde...")
celda2 = InputBox("Hasta...")
Dim rango As String
rango = celda1 & ":" & celda2
Dim resultado As String
resultado = InputBox("Celda donde se pondrá el resultado")
Range(resultado) = "=SUM(" & rango & ")"
End Sub
Espero te sirva, por favor, no olvides finalizar la pregunta (salvo que te queden dudas, en ese caso me vulves a preguntar, y con gusto te ayudo).
Sub SumarRango()
Dim celda1 As String
Dim celda2 As String
celda1 = InputBox("Sumar desde...")
celda2 = InputBox("Hasta...")
Dim rango As String
rango = celda1 & ":" & celda2
Dim resultado As String
resultado = InputBox("Celda donde se pondrá el resultado")
Range(resultado) = "=SUM(" & rango & ")"
End Sub
Espero te sirva, por favor, no olvides finalizar la pregunta (salvo que te queden dudas, en ese caso me vulves a preguntar, y con gusto te ayudo).
