Anónimo
Rango de suma mediante macro
Hola amigos, estoy intentando conseguir una suma mediante un rango conseguido por la union de strings
mediante la union de los strings he conseguido el rango que hay que sumar pero este comando falla, alguien me puede decir porque u orientarme de otra manera
ej.
Hoja 3 celda A1 tengo conseguida la dirección de la celda que encabeza el rango inferior A1
Hoja3 Celda A2 tengo conseguida la dirección de la celda que encabeza el rango superior A10
Hoja3 Celda A3 tengo conseguida la dirección de la hoja donde están las celdas Worksheet("Hoja1").range(
si dimensiono variables tal que
dim a, b, c, d as string
a= sheets("hoja3").range("A1").value
b= sheets("hoja3").range("A2").value
c= sheets("hoja3").range("A3").value
luego
d = c & a & c & ")"
y compongo
'Hoja3 celda A5
Worksheet("Hoja3").cells(1,5).value = application.worksheetfunction.sum(d)
esto no funciona
si lo escribo directamente si que funciona
Worksheet("Hoja3").cells(1,5).value = application.worksheetfunction.sum(Worksheet("Hoja3").range("A1:A10")
algun consejo
mediante la union de los strings he conseguido el rango que hay que sumar pero este comando falla, alguien me puede decir porque u orientarme de otra manera
ej.
Hoja 3 celda A1 tengo conseguida la dirección de la celda que encabeza el rango inferior A1
Hoja3 Celda A2 tengo conseguida la dirección de la celda que encabeza el rango superior A10
Hoja3 Celda A3 tengo conseguida la dirección de la hoja donde están las celdas Worksheet("Hoja1").range(
si dimensiono variables tal que
dim a, b, c, d as string
a= sheets("hoja3").range("A1").value
b= sheets("hoja3").range("A2").value
c= sheets("hoja3").range("A3").value
luego
d = c & a & c & ")"
y compongo
'Hoja3 celda A5
Worksheet("Hoja3").cells(1,5).value = application.worksheetfunction.sum(d)
esto no funciona
si lo escribo directamente si que funciona
Worksheet("Hoja3").cells(1,5).value = application.worksheetfunction.sum(Worksheet("Hoja3").range("A1:A10")
algun consejo
1 Respuesta
Respuesta de Elsa Matilde
1
Si luego de obtener la variable de, la mostraras en un msgbox o en alguna celda, verías que la cadena no tiene ningún sentido, además de faltarte los separadores de rango :
Tal como la obtuviste, el resultado te quedó: Hoja1A1Hoja1)
Te dejo las instrucciones correctas:
Sub Macro4()
Dim a, b, c, d As String
a = Sheets("hoja3").Range("A1").Value
b = Sheets("hoja3").Range("A2").Value
c = Sheets("hoja3").Range("A3").Value
'luego
d = a & ":" & b
'y compongo
'Hoja3 celda A5
Worksheets("Hoja3").Cells(1, 2).Value = Application.WorksheetFunction.Sum(Sheets(c).Range(d))
End Sub
Sdos. No olvides finalizar la consulta si el tema queda resuelto
Tal como la obtuviste, el resultado te quedó: Hoja1A1Hoja1)
Te dejo las instrucciones correctas:
Sub Macro4()
Dim a, b, c, d As String
a = Sheets("hoja3").Range("A1").Value
b = Sheets("hoja3").Range("A2").Value
c = Sheets("hoja3").Range("A3").Value
'luego
d = a & ":" & b
'y compongo
'Hoja3 celda A5
Worksheets("Hoja3").Cells(1, 2).Value = Application.WorksheetFunction.Sum(Sheets(c).Range(d))
End Sub
Sdos. No olvides finalizar la consulta si el tema queda resuelto