Comentario en la clase
Copiar Datos de las Hojas Existentes
Buenas tardes Sergio
En el caso del ejemplo , seria bueno agregar dos lineas de codigo despues de las que se copia el encabezado para ajustar el ancho de las columnas al texto del encabezado de la tabla. Pudiera ser las siguientes
Sheets(2).Range("A1:G1").Copy Sheets(1).Range("A1")
Columns("A:G").Select
Columns("A:G").EntireColumn.AutoFit
Sheets(1).Range("A2").Select
Ademas , tengo una duda.
Si Hubieramos usado un bucle For each en vez de un For Next, no hubiera sido necesario activar las hojas para poder copiar las tablas ?
En el caso del ejemplo , seria bueno agregar dos lineas de codigo despues de las que se copia el encabezado para ajustar el ancho de las columnas al texto del encabezado de la tabla. Pudiera ser las siguientes
Sheets(2).Range("A1:G1").Copy Sheets(1).Range("A1")
Columns("A:G").Select
Columns("A:G").EntireColumn.AutoFit
Sheets(1).Range("A2").Select
Ademas , tengo una duda.
Si Hubieramos usado un bucle For each en vez de un For Next, no hubiera sido necesario activar las hojas para poder copiar las tablas ?