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"