INICIO FUNCIONES MACROS VBA MANUALES GUÍAS TEMÁTICAS

APLICACIONES

EJEMPLOS

    cibersoft_arg@yahoo.com.ar     cibersoft.arg@gmail.com    .

 

MAPA DEL SITIO

INICIO

MANUALES

Herramientas Excel

Programación VBA

Formularios Excel

(Para Excel xls y xlsm)

 

GUÍAS TEMÁTICAS

Listas desplegables

Comparando datos

Imágenes en Excel

Correo desde Excel

Mover-Copiar datos

 Bucles

 

APLICACIONES

Gestor de Ventas

Gestor de Documentos

Gestor Contable

Gestor Consorcios

 

HERRAMIENTAS y FUNCIONES

Novedades Excel 2013

Herramientas nuevas

Ejemplo de funciones

Lista completa de funciones

(2003 al 2013 - descarga)

 

MACROS VBA

Conceptos básicos

Referencias a objetos

Instrucciones básicas

Trabajando con Libros
Trabajando con hojas
Trabajando con celdas
Trabajando con bucles
Trabajando con objetos

 

EJEMPLOS (descarga gratuita)

 

 

 

 

 

MANUALES PARA LAS 2  VERSIONES EXCEL

(xlsm y xls)

       

 

 

 

 

 

 

 

 

Página:    Anterior   1  2  [3]  4  5  6  7   Siguiente

                                                              

 

TRABAJANDO CON LIBROS:

 

En esta sección veremos algunas instrucciones 'básicas' para ser utilizadas con LIBROS.

 

Nota: A partir de aquí usaré solo el objeto activo considerando que puede usarse algunas de las otras expresiones ya vistas con anterioridad.

 

 

1-Abrir un segundo libro:

Workbooks.Open "C:\Mis docu\Libro1.xlsb"    

 

Nota: Si el nombre se encuentra en una varible NO lleva comillas

 

Ej. 1: la variable 'librox' contiene el nombre + la extensión.

 

  a-  el librox se encuentra en la misma carpeta que el libro activo.

Workbooks.Open ThisWorkBook.Path & "\" & librox

   b- la variable 'ruta' indica la carpeta que contiene el librox

Workbooks.Open ruta & "\" & librox    

Nota: Si la variable 'ruta' contiene la barra final no es necesario agregarla aquí.

 

 

Ej. 2: la variable 'librox' contiene solo el nombre, sin la extensión.

 

          Workbooks.Open ThisWorkBook.Path & "\" & librox & ".xlsm"

 

 

 

2-Activar un segundo libro:

Workbooks("LibroOriginal.xlsm").Activate

 

'o también: Workbooks(2).Activate , en este caso es el 2do libro abierto.

 

IMPORTANTE: Al abrir un libro, éste pasa a ser el libro activo. Por lo tanto no es necesario activarlo nuevamente.

 

 

 

3-Cerrar un libro

 

     Ej. 1: sin guardar cambios:

Workbooks("Libro1.xlsb").Close  False   

'o también:  ActiveWorkbook.Close  False

    Ej. 2: guardando los cambios:

ActiveWorkbook.Save

ActiveWorkbook.Close

 

'o en 1 sola línea: ActiveWorkBook.Close True

 

 

 

4-Guardar un libro con otro nombre o ruta:

 

Ej. 1: La carpeta y el nombre del libro pueden guardarse en variables, como en este caso:

ruta = ThisWorkbook.Path & "\"        

 'o quizás:  ruta = "D:\Usuarios\"

librox = "LibroCopia.xlsm"

ActiveWorkbook.SaveAs ruta & librox

 

IMPORTANTE: tener presente que si en las variables no se incluye barra separadora o extensión del libro, deberá agregarse en la instrucción.

ActiveWorkbook.SaveAs ruta & "\" & librox & ".xlsm"

 

  

   Ej. 2: El nombre del libro (con o sin ruta) se guarda en una celda.

ActiveWorkbook.SaveAs Filename:=Range("A2").Value

 

Nota: en este caso como no se indica la ruta o carpeta, se lo guarda en la misma carpeta del libro activo.

 

 

 

5-No mostrar aviso al salir, al eliminar hoja, o cualquier aviso que queremos omitir:

Application.DisplayAlerts= False           

'volverla a True al finalizar la macro.

 

 

 

6-No mostrar la ejecución de la macro (movimiento de pantalla):

Application.ScreenUpdating = False      

 'volverla a True al finalizar la macro.

 

 

7- Obtener información del libro.

 

usuario = Application.UserName              'nombre de usuario del libro
nombre = ActiveWorkbook.Name            'nombre del libro activo
ruta = ActiveWorkbook.Path                 

       'ruta completa donde se encuentra alojado el libro
ruta -nbre = ActiveWorkbook.FullName   

       'ruta y nombre con extensión del libro activo
guarda = ActiveWorkbook.Saved            

      'devuelve False si el libro sufrió cambios desde la última vez que fue   guardado

 

 

8- Cambiar el modo de cálculo del libro.

 

Application.Calculation = xlCalculationManual       'modo manual
Application.Calculation = xlCalculationAutomatic   'modo automático

 

 

Página:    Anterior   1  2  [3]  4  5  6  7   Siguiente

::: Recomienda esta página :::

Servicio gratuito de Galeon.com