Pegar valores, configurar página

hola., alonso !

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...
... 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...

la propuesta anterior [de acuerdo a la solicitud inicial] es para depositar EN UNA CELDA los valores de varias ;)
y NO es aplicable para lo solicitado en 'esta' [nueva] consulta :-(
si lo que necesitas es que los valores de un rango sean 'agregados/sumados/... a los valores de otro rango SIMILAR...
prueba con un procedimiento +/- como el siguiente:
[toma nota que no se puede hacer con rangos 'discontinuos'] :-(
Sub Suma_Rangos_Iguales()
Range("ab9:ab16").Copy
Range("i9:i16").PasteSpecial _
xlPasteValues, xlPasteSpecialOperationAdd
Range("ab19:ab26").Copy
Range("i19:i26").PasteSpecial _
xlPasteValues, xlPasteSpecialOperationAdd
Application.CutCopyMode = False
End Sub

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

...más o menos, asi lo tenía yo hecho, pero de esta forma pierdo de
vista los valores que pego, pues solo veo los resultados...Si no hay
más remedio lo dejaré asi, que tampoco pasa nada: De todas maneras,
me pareció muy útil tú primera respuesta..

Muchas gracias

hola, alonso !

...mas o menos, asi lo tenia yo hecho, pero de esta forma pierdo de vista los valores que pego, pues solo veo los resultados
Si no hay mas remedio lo dejare asi, que tampoco pasa nada: De todas maneras, me parecio muy util tu primera respuesta.

[en ese caso]... si deseas que los valores segun vayan 'cambiando' en el rango "ab9:ab16,ab19:ab26"
se 'conserven/sumen/acumulen/... en su correspondiente celda en el rango "i9:i16,i19:i26" [19 columnas de diferencia]...
prueba con una macro +/- como la siguiente:
Sub Valores_de_celdas()
Application.ScreenUpdating = False
Dim Celda As Range
For Each Celda In Range("i9:i16,i19:i26")
If Celda.Offset(, 19) > 0 Then
If Celda.HasFormula Then
Celda.Formula = Celda.Formula & "+" & Celda.Offset(, 19)
ElseIf Celda > 0 Then
Celda.Formula = "=" & Celda & "+" & Celda.Offset(, 19)
Else
Celda = "=" & Celda.Offset(, 19)
End If
End If
Next
End Sub

saludos,
hector.

...gracias Hector, pero me da un error en la linea Celda = "=" &
Celda.Offset(, 19), "error definido por la aplicación o el objeto"+

Saludos

hola, alonso !

... me da un error en la linea Celda = "=" & Celda.Offset(, 19), "error definido por la aplicacion o el objeto"

pudieran existir varias 'causas' para ese tipo de error :-(
[p.e.] una referencia 'perdida' en el proyecto de macros -> menu herramientas / referencias -> falta: o missing: -?-

podrias mencionar 'el numero' del error ?
y las condiciones en las que se presenta -?- [que valores hay en las celdas ?]

saludos,
hector.