Copiar y pegar datos saltando una celda
Srs expertos buenos días.
Deseo copiar las notas del libro1 al libro2 saltando una celda como se muestra en la imagen.
-Son 13 cursos en total que tengo en el encabezado
-Su uso será en varios libros de excel y con diferentes cantidades de alumnos
1 respuesta
Adjunto macro solicitada. Se coloca en un módulo y luego podrás ejecutarla con atajo de teclado, botón o desde el mismo menú Macros (estos temas los tengo explicados en la sección Macros de mi sitio).
Por ahora la macro vuelca los datos en Hoja2 ... no indicaste nada acerca de la ubicación del 2do libro, si ya estará abierto, cuál será su nombre, si hay que buscarlo y abrirlo, etc.
Cuando tengas probada la macro dejame una nueva consulta aclarando estos detalles de los diferentes libros. Podes indicar en el cuerpo del mensaje: 'Para Elsa' así completo la macro con las aclaraciones que me envíes.
Sub pasaNotas()
'x Elsamatilde
Dim filx As Long, colx As Integer, i As Integer
Dim ho
'se recorre la col A de Hoja1 a partir de fila 34 hasta el fin de datos
'se pasan los datos a la Hoja2 (* ver nota)
Set ho = Sheets("Hoja2")
filx = 5 '1er fila de destino
colx = 2
Sheets("Hoja1").Select
[A34].Select
While ActiveCell.Value <> ""
ho.Range("A" & filx) = ActiveCell 'nombre
'se recorren las 13 col de materias
For i = 1 To 13
ho.Cells(filx, colx) = ActiveCell.Offset(0, i) 'materia
colx = colx + 2
Next i
'pasa a la fila siguiente
filx = filx + 1
colx = 2
ActiveCell.Offset(1, 0).Select
Wend
MsgBox "Fin del pase"
End SubSdos.
Elsa
