Introduccion a los macros de excel

Solo disponible en BuenasTareas
  • Páginas : 4 (876 palabras )
  • Descarga(s) : 0
  • Publicado : 26 de agosto de 2012
Leer documento completo
Vista previa del texto
INTRODUCCION A LAS MACROS DE EXCEL
1. Esta macro nos sirve para abrir un libro existente.
Sub abrirlibro1()
Workbooks.Open ("C:\Mis documentos\Ejemplo.xls")
End Sub

2. Con esta Macro podemoscambiar el libro activo. Es muy importante que el libro ya esté abierto, si no fuera así, la Macro daría error.
Sub activarlibro2()
Workbooks("jose.xls").Activate
End Sub

3. Con la siguienteMacro podremos crear un libro nuevo. Esta Macro es exactamente igual que si activásemos la opción Archivo - Nuevo.
Sub nuevolibro3()
Workbooks.Add
End Sub

4. Podemos utilizar esta Macro parapodernos situar al final de una lista de elementos. Interpretaremos que el final de la misma está en el momento en el que encontramos una celda vacía.
Sub final4()
While ActiveCell.Value <> ""ActiveCell.Offset(1, 0).Range("A1").Select
Wend
End Sub

5. Esta Macro es exactamente igual que la anterior pero con la única diferencia que la celda activada es la última entrada de la lista.
SubFinalLista5()
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Range("A1").Select
Wend
ActiveCell.Offset(-1, 0).Range("A1").Select
End Sub

6. Vamos a imaginar que tenemos una tabla dedatos en la cual nos interesa buscar un elemento determinado y borrar todos los datos que hay en la misma fila.
Sub borrarfilas6()
While ActiveCell.Value <> ""
If ActiveCell.Value <>"Barcelona" Then
ActiveCell.Offset(1, 0).Range("A1").Select
Else
Selection.EntireRow.Delete
End If
Wend
End Sub

7. Imaginemos que tenemos una lista de datos dentro de la que hay espaciosen blanco, como mucho un espacio en blanco entre dato y dato. Si utilizásemos la primera macro que hemos creado esta interpretaría como final de la lista el primer espacio en blanco que encontrara.Realizaremos una macro que interpretará el final de la lista cuando encuentre 2 espacios en blanco seguidos.
Sub FinalLista7()
Salir = "No"
While Salir = "No"

While ActiveCell.Value <> ""...
tracking img