Estoy recien aprendiendo e intentando crear macros en VB,pero esta vez necesito por favor ayuda...
Debo crear lo siguiente:
1. Crear una macro que tome las primeras 10 celdas de la hoja 1 y las copie en la segunda hoja a partir de A1
2. Crear una macro que tome de la celda 11 en adelante y la copie a una tercera hoja a partir de A1
Este es el codigo que intente hacer pero no me resulta el traspaso a la tercera hoja
Public Sub traspasohoja2()
Sheets("hoja1").Select
Dim i As Integer
For i = 1 To 10
Cells(i, 1).Select
Selection.Copy
Sheets("hoja2").Select
Cells(i, 1).Select
ActiveSheet.Paste
Sheets("hoja1").Select
Next i
End Sub
Ojala me puedan ayudar
Y muchas gracias por la ayuda que en este magnifico foro todos aportan
Estimados
Estoy recien aprendiendo e intentando crear macros en VB,pero esta vez necesito por favor ayuda...
Debo crear lo siguiente:
1. Crear una macro que tome las primeras 10 celdas de la hoja 1 y las copie en la segunda hoja a partir de A1
2. Crear una macro que tome de la celda 11 en adelante y la copie a una tercera hoja a partir de A1
Este es el codigo que intente hacer pero no me resulta el traspaso a la tercera hoja
Public Sub traspasohoja2()
Sheets("hoja1").Select
Dim i As Integer
For i = 1 To 10
Cells(i, 1).Select
Selection.Copy
Sheets("hoja2").Select
Cells(i, 1).Select
ActiveSheet.Paste
Sheets("hoja1").Select
Next i
End Sub
Ojala me puedan ayudar
Y muchas gracias por la ayuda que en este magnifico foro todos aportan
saludos
Meggido
traspaso.xlsm