Copiar y pegar rango variable, modificando un valor.
publicado
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
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