Pegar valores, configurar página

hola, Guillermo / Vulcano / Navibel / todavianosequeponer / madoli / alonso / -mas los que vengan- :D

1:- Tengo un macro que suma valores de varios celdas
posibilidad de ver en la barra de formulas los valores que pega, no lo resultados?.
O sea, si pego valores 5+3, no quiero ver 8, sino =5+3

2.- Como hago para que una macro me configure una pagina ajustándola automaticamente a una sola hoja?
Con la grabadora de macros no lo consigo

1) sin conocer 'como' es que tu macro 'va sumando' los valores de las varias celdas :-)) ...
[p.e.] suponiendo que en la celda 'A1' vas a depositar los valores tomandolos de las celdas 'B5', 'D10' y 'C27'
Sub Valores_de_celdas()
Dim Celda As Range, Valores As String
For Each Celda In Range("b5,d10,c27")
If Valores <> "" Then Valores = Valores & "+"
Valores = Valores & Celda
Next
Range("a1") = "=" & Valores
End Sub

2) puedes 'depurar' el codigo que genera la grabadora de macros y 'dejar' [solo] las instrucciones 'importantes' [p.e.]
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

-> si necesitas que al numero de paginas 'ajustable' en alto [tall] o ancho [wide] sea 'automatico/variable...'
establece su valor como 'False'

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

...gracias Hector, perfecto...

.está muy bien como has hecho la macro para pegar datos, pero
tambien sería muy util si me dijeses si se puede hacer con referencias
de rangos, no de celdas individuales; o sea poder sumar los valores que
hay en (por ejemplo) A2:A26 con los que pudiese haber en C2:C26, más
los que hay en G2:G26, etc...y ver en la suma total los sumandos...

Un Saludo

hola, alonso !

... se puede hacer con referencias de rangos, no de celdas individuales; o sea... sumar los valores
... en (por ejemplo) A2:A26 con los que pudiese haber en C2:C26, mas los que hay en G2:G26, etc.
... y ver en la suma total los sumandos...

[solo] complementa/modifica/agrega/... los rangos en el 'parametro' correspondiente de 'mis supuestos' [p.e.]
de -> For Each Celda In Range("b5,d10,c27")
a -> For Each Celda In Range("a2:a26,c2:c26,g2:g26")

-> toma en cuenta que los rangos 'distantes' van separados por una coma y los continuos se 'unen' por dos puntos]
y 'el orden' en que seran 'tomados' es de acuerdo con el rango 'especificado' en dicha 'linea' ;)

saludos,
hector.

Sub Valores_de_celdas()
Dim Celda As Range, Valores As String
For Each Celda In Range("ab9:ab16,ab19:ab26")
If Valores <> "" Then Valores = Valores & "+"
Valores = Valores & Celda
Next
Range("i9:i16,i19:i26") = "=" & Valores
End Sub

..me da un fallo en la linea que va despues de Next...Esto es lo que
quiero, que los valores que hay en los rangos ab9:ab16:ab19:ab26, LOS
SUME a los que hay en el rango i9:i16, i19:i26...

Saludos