PROGRAMACIÓN DE MACROS II

Continuando con la programación de macros...

'Agregar un libro y grabarlo con un nombre introducido en un Inputbox
Sub AgregarLibroconNombre()
   Set nuevolibro = Workbooks.Add
   With nuevolibro
      .SaveAs Filename:=InputBox("Dame el nombre de tu Libro")
   End With
End Sub

'Abrir un Libro anteriormente guardado
Sub AbrirLibrosGuardados()
   Workbooks.Open ("c:\Libro1.xls")
End Sub

'Puedes moverte entre libros abiertos
Sub InteractuaentreLibros()
   Windows("Libro2.xls").Activate
End Sub

'Nombrar a varias hojas con números
Sub NombresHojas()
   Dim i As Integer
   For i = 1 To 5
      Sheets(i).Name = i
   Next
End Sub

'Asignar valor a Celda mediante referencia de celdas
Sub AsignarValoraCelda()
   Worksheets("Sheet1").Cells(2, 5).Value = 30
End Sub

'Asignar valores a Celdas mediante referencia de celdas
Sub AsignarValoraCeldas()
   Dim n As Integer
   For n = 1 To 5
      Sheets(1).Cells(n, n).Value = n * 10
   Next
End Sub

'Muestra un cuadro de dialogo solicitando el nombre de la hoja que requerimos eliminar.
Sub EliminaHojaEspecifica()
   Sheets(InputBox("Cual Hoja deseas Eliminar?")).Delete
End Sub

'Selecciona una hoja especifica y le asigna un nombre
Sub RenombrarHoja()
   Sheets(InputBox("Cual Hoja deseas Renombrar?")).Name=InputBox("Nuevo Nombre:")
End Sub

Práctica2:
Genera una macro que solicite tu nombre y que lo ingrese en varias celdas de la hoja activa.

Solución
 

Secciones Macros VBA:

Introducción Macros

Macros Comunes de Celdas, Hojas, Libros

Programación Macros I

Programación Macros II

Programación Macros III

Utilizando Formularios

Descarga ejercicios correspondientes a esta sección:

Descarga los ejemplos