QUINTUPLICAR CELDAS

Hola, si te he entendido bien, esto puede servirte.
Has de definir un nombre primero para el rango completo de empleados.

******************************************************************
Sub Quintuplicar()
'
' Quintuplicar Macro

Dim i As Integer
Dim j As Integer

For i = 1 To Range("mis_empleados").Rows.Count

For j = 1 To 5
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Range("mis_empleados").Cells(i).Value
Next j

Next i

End Sub
**********************************************************************


"Jorge G" <Jorge escribió en el mensaje
news:

Buenas! me gustaría quintuplicar unos nombres de algunos empleados.
Me explico:
Tengo una lista de unos 300 empleados y me gustaría que esa lista que se
encuentra en la "hoja1" se quintuplicasen en la "hoja2" de tal forma que
si
la lista se modifica cada mes, la regla, macro o lo que sea; me permita
volverlo a generar.
Los nombres en la "hoja1" estan seguidos y ninguno se repite.
He intentado hacerlo grabando una macro, pero me está volviendo loco! no
se
si esto se puede hacer o es la constancia la que me ayudará es decir
quintuplicarlo a mano.
UNA AYUDITA POR FAVOR.
Gracias
Jorge G

Hola Jorge,

No lo veo muy claro, pero igual te valga el siguiente codigo (tendras que
cambiar los rangos y los nomres de hojas con los reales):

Sub QuintuplicarVertical()
Dim c As Range, i As Long
Application.ScreenUpdating=False
For Each c In Sheets("Hoja1").Range("A1:A10")
Sheets("Hoja2").Range("A1:A5").Offset(i, 0).Value = c.Value
i = i + 5
Next c
End Sub

Sub QuintuplicarHorizontal()
Dim c As Range, i As Long
Application.ScreenUpdating=False
For Each c In Sheets("Hoja1").Range("A1:A10")
Sheets("Hoja2").Range("A1:E1").Offset(i, 0).Value = c.Value
i = i + 1
Next c
End Sub

Saludos,
KL


"Jorge G" <Jorge wrote in message
news:

Buenas! me gustaria quintuplicar unos nombres de algunos empleados.
Me explico:
Tengo una lista de unos 300 empleados y me gustaria que esa lista que se
encuentra en la "hoja1" se quintuplicasen en la "hoja2" de tal forma que
si
la lista se modifica cada mes, la regla, macro o lo que sea; me permita
volverlo a generar.
Los nombres en la "hoja1" estan seguidos y ninguno se repite.
He intentado hacerlo grabando una macro, pero me esta volviendo loco! no
se
si esto se puede hacer o es la constancia la que me ayudara es decir
quintuplicarlo a mano.
UNA AYUDITA POR FAVOR.
Gracias
Jorge G

Gracias Chicos!!!
Me han ayudado mucho, espero ayudar yo en el futuro!!!

SOIS los P**** AMOS!!!!!!!

Jorge G