me encanta seguir este grupo y probar la mayoría de códigos o macros con los que nos deleitan los
expertos :-)
Así que probada la que te acaban de enviar... la forma de "poner" las columnas es seleccionando, lo
que tengas seleccionado te lo copia en una nueva hoja.
Perdón por inmiscuirme en esta conversación pero esta macro me viene muy bien para mi trabajo, hasta
ahora lo hacía con copiar-pegar pero como es algo que lo hago muy frecuentemente facilita el proceso
mucho (insertar hoja - copiar - pegar = golpe de clip :-))
____________________________________________________________________________________
Saludos, Palel - [MVP Outlook]
http://www.infonegocio.com/luzylar/informatica.htm
ADD-IN para Outlook: http://www.infonegocio.com/luzylar/addin_outlook.htm
®El Rincón del Navegante - http://www.luzylar.com
*** Consulta en el Foro específico:
Outlook EXPRESS news://msnews.microsoft.com/microsoft.public.es.outlookexpress
OUTLOOK de OFFICE news://msnews.microsoft.com/microsoft.public.es.outlook
... hay más, busca el que necesites.
_________________________________________________________________________________________
Post by TonyGracias por la respuesta....
Lo que no entiendo es cómo pongo qué columnas son las que quiero copiar o
cortar en las otras hojas??
Gracias...
Post by Juan MHola Tony,
Prueba la siguiente macro, como no especificaste exactamente donde querías
copiarlas, las copia una detrás de otra.
Un saludo,
Juan
===Inicio código
Sub CopiaColumnas()
Dim mirango As Range
Dim col As Range
Dim NuevaHoja As Worksheet
Dim i As Integer
Set mirango = Selection
Worksheets.Add
i = 0
For Each col In mirango.Columns
col.Copy ActiveSheet.Range("A1").Offset(, i)
i = i + 1
Next col
End Sub
===Fin código
"Tony" escribió
Post by Tony¿Hay alguna forma automática para dividir una hoja en varias hojas?... Se
trata que pueda seleccionar las columnas que yo quiera y ponerlas en una hoja
nueva... ¿Existe alguna macro o función que pueda usar?...
Gracias de nuevo.