QUINTUPLICAR CELDAS

13/08/2005 - 13:57 por Jorge G | Informe spam

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

Siga el debate

3 respuestas

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 daniel_hg

13/08/2005 - 18:13 | Informe spam

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

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :