Copiar y pegar rango variable, modificando un valor.

[marinjgr]

Necesito ayuda al copiar y pegar de una hoja a otra con rango variable, modificando un valor.

aca en este sitio encontre una forma de hacerlo que funciona por Gerson Pineda-El Catracho , pera ademas de lo que hace la macro necesito saber de que hoja se copio, bien sea agregando una columna que diga "Banco1" o "Banco2" o "Banco3", en la hoja que recibe los datos "TotalBancos"o bien modificando en mi caso una celda especifica.

Sub TotalBancos()

Sheets("Banco1").Select

copiar_pegar_Banco

Sheets("Banco2").Select

copiar_pegar_Banco

Sheets("Banco3").Select

copiar_pegar_Banco

end sub

Sub copiar_pegar_Banco()

Dim col, ulf

Application.ScreenUpdating = False

On Error Resume Next

col = Cells(3, Columns.Count).End(xlToLeft).Column

ulf = Range("G" & Rows.Count).End(xlUp).Row

ActiveSheet.Range(Cells(3, 1), Cells(ulf, col)).Copy _

With Sheets("TotalBancos").Range("A" & Rows.Count).End(xlUp).Offset(1)

.PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

End With

On Error GoTo 0

Application.ScreenUpdating = True

End Sub

[rulesagain]

Verifica este link

https://www.ayudaexcel.com/foro/macros-programacion-vba-10/solucionado-poner-nombre-celda-hoja-8216/

Saludos