Pegar columna de valores en otra hoja "MACROS"
Lo que quiero hacer es pegar una columna que inicia desde "B4" y la tengo en una hoja que se llama "Output" y la quiero pegar en otra hoja que se llama HSG-Z0A... Soy nuevo en utilizando macros y utilizando VB :) 1 000 gracias por la ayuda ;)
Sub GenerateData()
Range("B1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Range("B4:B65536").Copy
Sheets("Datos HSG-Z0A").Select Range("A5").Select
End Sub
Eso es lo único que tengo lo único que me falta es que pegue los valores en la hoja HSG-Z0A en el rango "A5"
Sub GenerateData()
Range("B1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Range("B4:B65536").Copy
Sheets("Datos HSG-Z0A").Select Range("A5").Select
End Sub
Eso es lo único que tengo lo único que me falta es que pegue los valores en la hoja HSG-Z0A en el rango "A5"
1 Respuesta
Respuesta de Elsa Matilde
1
Te dejo las instrucciones explicadas:
Sub copia_datos()
'x Elsamatilde
'busco fin de rango desde abajo, en col B
filafin=Range("B65536").End(xlup).Row
'selecciono el rango y copio
Range("B4:B" & filafin).copy destination:=Sheets("Datos HSG-Z0A").Range("A5")
End Sub
Nota: estoy asumiendo que la copia se pega a partir de A5. En mi página de macros vas a encontrar otras instrucciones para encontrar el inicio o fin de rango
Sub copia_datos()
'x Elsamatilde
'busco fin de rango desde abajo, en col B
filafin=Range("B65536").End(xlup).Row
'selecciono el rango y copio
Range("B4:B" & filafin).copy destination:=Sheets("Datos HSG-Z0A").Range("A5")
End Sub
Nota: estoy asumiendo que la copia se pega a partir de A5. En mi página de macros vas a encontrar otras instrucciones para encontrar el inicio o fin de rango
