Codigo Macros Excel.Docx

Codigo

No mostrar el trabajo de la Macro
-No se ve lo que va ejecutando-

Application.ScreenUpdating = False

No calcular automaticamente
-Es igual a configurar en las opciones de Excel"Calcular=Manual"-

Application.Calculation = xlManual

Pegar formulas
-Es lo mismo a "Pegado especial -> Fórmulas"-

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone,SkipBlanks_ 
:=False, Transpose:=False
Application.CutCopyMode = False

Pegar valores
-Es lo mismo a "Pegado especial -> Valores"-

Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone, SkipBlanks_ 
:=False, Transpose:=False
Application.CutCopyMode = False

Ocultar hoja
-En este caso oculta Hoja1-

Worksheets("Hoja1" ).Hidden True

Mostrar el trabajo de laMacro
-Deshace lo que hicimos con ocultar-

Application.ScreenUpdating = True

Guardar como y cerrar
-Aquí va a abrir dos cuadros pidiendo al usuario que ingrese una nombre primero y despuésuna carpeta, guarda y cierra-

Dim NombreLibro As String
Dim RutaGuardado As String
NombreLibro = InputBox(""Guardar como:"" ) & "".xlsm""
RutaGuardado = InputBox(""Guardar en lacarpeta:"", , ""C:Mis documentos"" )
Dim NombreyRuta As String
NombreyRuta = RutaGuardado & NombreLibro
ActiveWorkbook.SaveAs Filename:=NombreyRuta
ActiveWorkbook.Close False

Ocultar variashojas
-Lo mismo que ocultar una, pero para varias usando un Array-

Sheets(Array(""Hoja1"", ""Hoja2"", ""Hoja3"" ).Select
ActiveWindow.SelectedSheets.Visible = False

Encontrar Ultima fila-Este código es muy bueno porque encuentra la última fila, cosa que puede variar entre un reporte y otro-

Dim ULTIMAFILA as String
 ULTIMAFILA = Cells(Rows.Count, 1).End(xlUp).Row

Filtrary copiar registros unicos
-En este caso filtra el rango A1:A4 y copia valores únicos a G1

Range(""A1:A4"" ).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range(""G1"" _
), Unique:=True