C digos de programacion Moises Medina



Contenido


Códigos de Programación en Macros 2
1. Ventana emergente para que el usuario ingrese un rango 2
2. Obtener posición de la última celda 2
3. Ocultar una hoja e impedir que el usuariola vea 3
4. Cargar, refrescar, salvar y cerrar una hoja de cálculo 3
5. Configurar área de impresión 3
6. Cambiar de libro o de hoja 3
7. Obtener los nombres de libros de Excel abiertos 4
8. ValorAbsoluto de un número 4
9. Valor Absoluto para un rango de valores 4
10. Valor Absoluto con condicionales 4
















Códigos de Programación en Macros

1. Ventana emergente para que el usuarioingrese un rango

Dim celdasSeleccionadas As Range

On Error Resume Next
Set celdasSeleccionadas = Application.InputBox(prompt:="Seleccione un rango de celdas", Type:=8)
On ErrorGoTo 0
If celdasSeleccionadas Is Nothing Then
'Aquí va el código que se ejecuta si no se selecciona ninguna celda.
'En este caso se despliega una ventana emergente con un mensaje.MsgBox "No se ha seleccionado ninguna celda."
Else
'Aquí va el código que se ejecuta si se se seleccionó celdas.
'En este caso se despliega una ventana emergente con elresultado de la suma de celdas.
MsgBox Application.WorksheetFunction.Sum(celdasSeleccionadas.Cells)
End If
2. Obtener posición de la última celdaActiveCell.SpecialCells(xlLastCell).Select
UltimaFila = ActiveCell.Row
UltimaColumna = ActiveCell.Column
3. Ocultar una hoja e impedir que el usuario la vea

Set hide_sheet = Sheet1
hide_sheet.Columns.Hidden = Truehide_sheet.Visible = False
4. Cargar, refrescar, salvar y cerrar una hoja de cálculo

Workbooks.Open Filename:="C:\MiArchivo.xlsx", UpdateLinks:=3
Workbooks("MiArchivo.xlsx").RefreshAllActiveWorkbook.Save
ActiveWindow.

5. Configurar área de impresión

ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PageSetup.Orientation = xlLandscape

ActiveSheet.PageSetup.Zoom = False...