01/03/2011, 16:12
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 1 mes Puntos: 88 | |
 Copia de texto en rojo
Hola! Joao
Me parece que tienes bastante que "trabajar" aún.
Sin embargo puedes comenzar por corregir el principal problema: el de copiar una línea entera cuando -en rigor- necesitas sólo 4 celdas.
Para ello podrías reemplazar:
Range("b" & fil).EntireRow.Copy
por:
Range("b" & fil).Resize(, 4).Copy
Saludos, Cacho. |