Forums Últimos mensajes - Powered by IBM
 

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
 

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

Preguntas similares