XLSX a XLS, Convertir OFFICE 2007 a versiones anteriores

Si intenta habrir archivos realizados en office 2007 con versiones anteriores al 2007 y aún no ha instalado las actualizaciones y los convertidores, cuando intente abrir un libro de Excel 2007, es posible que le diga que no o que instale alguna acutalización o algún convertidor.
.
Después de instalar las actualizaciones y los convertidores, podrá abrir los libros de Excel 2007 y guardarlos o copiarlos a una versión anterior..
.
Pero OJO. Si tienes alguna version no oficial (pirata). nunca debes de realizar la actualización, deberas bajarte solo el convertidor.
.
Para descargar y usar convertidores de archivos pinche aquí y descargue el paquete de compatibilidad .Yo recomiendo que se guarde (asi siempre podrá tener el archivo guaradado para cualquier necesidad) y luego ejecutarlo desde la ubicación guardada.

HTM a EXCEL

Para convertir datos de un archivo en htm a excel es muy sencillo. Deberemos seleccionar todo los datos del archivo en HTM y habrir una hoja en excel y luego tan simple como pegarlos en la hoja abierta de excel.

.

Posteriormente deberemos tratar un poco los datos, para ello debemos ir al menu de Formato > de la barra de herramientas, luego celda> y en la ventana que se nos abre elegimos la pestaña de Alineación> y desmarcamos todas las casillas del control de texto.

.

Luego debemos de organizar los datos ya que aparecerán datos que no nos interesa, filas en blanco o incluso columnas en blanco. Este punto es muy personal pero yo suelo incluir una columna a la izquierda donde la enumero todas las filas de los datos que voy a tratar y le doy nombre a todas las columnas tanto vacías como no vacías. A partir de aquí empiezo a ordenar columnas, eliminando las filas que no interesan.

mostrar filas ocultas

Muestra todas las filas ocultas de una hoja especifica y de un rango de filas entre 1 y 1000.


Application.ScreenUpdating = False
Sheets("nombre hoja").Select
Rows("1:1000").Select
Selection.EntireRow.Hidden = False
Range("a1").Select
Application.ScreenUpdating = True

Eliminar y ocultar filas por condición

Para eliminar filas o ocultar filas de una columna especifica, por una condición, utilizaremos el siguiente código. Teniendo en cuenta que la columna especifica que utilizaremos para evaluar la condición será la COLUMNA "A" y la condición a utilizar será el encontrar en las filas de la columna A la condicion escrita "v"

Dim rngString As Range
Do
Set rngString = Columns("a").Find("v", MatchCase:=False, _ LookAt:=xlPart, LookIn:=xlValues)
If Not rngString Is Nothing Then

A continuación y en la misma macro podremos utilizar una de estas dos opciones dependiendo si queremos eliminar las filas (.delete) o si queremos solamente ocultar las filas (.hidden =true).
1. Rem para eliminar filas>
rngString.EntireRow.Delete
o
2. Rem para ocultar las filas>
rngString.EntireRow.Hidden = True

Y continuación de la macro ponemos lo siguiente...
End If
Loop Until rngString Is Nothing

Cambiar la fuente y el tamaño

Cambiar la fuente y el tamaño de un rango especifico (en este caso es desde B4 a U1000) y la fuente será "times new roman" y el tamaño a 8.

Range("B4:U1000").Select
With Selection.Font
.Name = "Times New Roman"
.Size = 8 .Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
Range("B4").Select

Borrar fuentes, bordes y sombreados

Con este codigo barraremos un area seleccionada previamente por nosotros (se puede incluir en una macro) para borrar todo: fuentes, colores de fuentes, bordes y sombreados de celdas.

Selection.Font.ColorIndex = 0
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Clear

escribir en un lugar especifico

Escribir en un lugar especifico, en esta caso en la celda C2, un texto predeterminado a traves de una formula de texto, luego bajamos a la celda de abajo C3 la celda activa.

Range("C2").Select
ActiveCell.FormulaR1C1 = "escribir texto"
Range("C3").Select

Copiar una Hoja en una Hoja nueva

Crearemos una hoja nueva dandole nombre y copiaremos todo los datos de otra hoja con el nombre especifico y lo pegaremos en la hoja nueva creada.

Sheets.Add.Name = "nombre hoja nueva"
Sheets("nombre de la hoja a copiar").Select
Cells.Select
Range("C1").Activate
Selection.Copy
Sheets("nombre de la hoja nueva").Select
Cells.Select
ActiveSheet.Paste
Range("a1").Activate

Añadir Hoja nueva

Para añadir una hoja nueva en nuestro libro abierto dandole un nombre especifico que nosotros querramos es:

Sheets.Add.Name = "poner nombre"