EXCEL VBA CODE - CODIGO VBA EXCEL - Excel Macros /Excel VBA - Excel VBA MACROS -MACROS

Macros varias 0.1 (cambiar signos con evaluate) ,cambiar entre mayusculas y minusculas Uppercase,LowerCase

2011-12-28T09:18:00.000-08:00

'Con las siguientes macros podemos realizar simples tareas cotidianas Cambiar signos con evaluate ,convertir a mayusculas Uppercase ,convertir a minusculas LowerCase o solo convertir la priemra letra a mayuscula vbProperCase

Sub Convertir_UPCASE() 'VBA.UPPERCASE

'- Mediante la sgte excel vba macro code puede Convertir seleccion A mayusculas

Dim UChr As Long

With Selection

For UChr = 97 To 122

.Replace Chr(UChr), UCase(Chr(UChr))

Next UChr

End With

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Convertir1era_UPCASE() 'VBA.UPPERCASE
' - Mediante la sgte excel vba macro code puede Convertir 1 Letra A mayusculas

Dim UChr As Long
Dim b As String

b = StrConv(ActiveCell.Text, vbProperCase)
ActiveCell.Value = b

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''

Sub Convertir_Minusculas() 'VBA.LOWERCASE
'- Mediante la sgte excel vba macro code puede Convertir seleccion A minusculas

Dim lowChr As Long

With Selection

For lowChr = 97 To 122

.Replace UCase(Chr(lowChr)), Chr(lowChr)

Next lowChr

End With

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub cambiar_signo1()
''Mediante la sgte excel vba macro code puede Cambiar signo a 1 celda

Selection.Value = Evaluate("-" & Str(Selection.Value))

End Sub

'''''''''''''''''''''''''''''''''''''''''''''

Sub cambiar_signo_2()
' 'Mediante la sgte excel vba macro puede Cambiar signo a varias celdas
Dim CurCell As Object

For Each CurCell In Selection.Cells

If VBA.IsNumeric(CurCell.Value) Or VBA.Right(CurCell.Value, 1) = "-" Or CurCell.Value! = "" Then

CurCell.Value = Evaluate("-" & VBA.Str(CurCell.Cells))

End If

Next

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''

Ingresar Formulas

2011-07-05T21:59:00.000-07:00

Ingresar Formulas

Escriba la fórmula en la celda C7.

Pulse ENTER para mostrar el resultado de la fórmula.

Cuando se hace clic en la celda C7, la fórmula aparece en la barra de fórmulas.

Operadores matemáticos
Sumar (+) = 7+ 5

Restar (-) = 7-05

Dividir (/) = 5/7

Multiplicar (*) = 7 * 5

Signos para crear fórmulas

Use un signo menos (-) para restar, un asterisco (*) para multiplicar y una barra diagonal (/) para dividir. Recuerde que debe comenzar siempre cada fórmula con un signo igual.

En Excel 2007 o Excel 2010 se puede utilizar el botón Autosuma situado en la pestaña Inicio de la cinta(ribbon) para agregar rápidamente la función de sus hojas.

Excel referencias 0.2

2011-07-05T21:53:00.000-07:00

Excel referencias

El estilo de referencia que Excel usa es A1 (por defecto)

Cuando nos referimos a una celda en particular usamos su dirección de celda para indicar la celda.

Excel celdas (filas, columnas)

Excel 2007 o superior

16384 Excel columnas
1048576 Excel filas
17179869184 Excel células

Excel 2003 o anterior

256 columnas de Excel
16777216 Excel células
36536 Excel filas

Ejemplos:

Celdas:
A1048576 Excel columna A , Excel Fila 1048576
XFD1048576 Excel columna XFD , Excel Fila 1048576
A36536 Excel columna A , Excel Fila 36536

Funciones de Excel 0.1

2011-07-05T21:40:00.000-07:00

Funciones de Excel 0.1

SUMA: Consigue la suma de un rango de celdas o argumentos.
PROMEDIO: Consigue el promedio en un rango de datos.
MAX: Consigue el numero mayor en el rango
MIN: Halla el número más pequeño de al serie de datos.

Formulas de Excel - Excel Error de 0.1

2011-07-05T21:33:00.000-07:00

Formulas de Excel - Excel Error de 0.1

La columna no es lo suficientemente ancha para mostrar el contenido de la celda (# # # # #)

La referencia de celda no es válida. Las celdas pueden haber sido eliminadas (# REF!)

Es posible que haya escrito mal el nombre de la función o utilizo un nombre que Excel no reconoce (# ¿NOMBRE?)

Ejemplo
Excel no reconoce -> MySum

Insertar Funciones en Excel

2011-07-05T21:27:00.000-07:00

Insertar funciones en Excel
Puede ser utilizado como una guía para cada argumento en una función.

Abrir el Asistente de Excel para funciones
- Ir a la ficha Formulas > insertar Función ó
- Presione Shift + F3

Búsqueda de una función de Excel
Escriba una breve descripción de lo que quiere hacer en este cuadro, a continuación, haga clic en Ir para ver una lista.

Funciones de Excel por Categorías
Haga click en Todas las categorías para ver una lista de todas las funciones de Excel.

Funciónes de Excel - Botón de ayuda
Si hace clic en este botón se le presentará una descripción de como emplear los argumentos de la función.

Excel vba - Metodo SpecialCells

2010-07-24T17:14:00.000-07:00

Excel vba - Metodo SpecialCells

Este metodo(SpecialCells) es gran ayuda para devolvernos referencias a rangos con determinadas caracteristicas :

Por ejemplo podemos obtener Mediante el metodo SpecialCells referencias a rangos :

Esta seria la sintaxis para obtener un objeto rango de las celdas

El rango de celdas es de donde se quiere buscar las celdas con determinadas carateristicas

Rango(rangodeCeldas).SpecialCells(Type, Value)

Los Parámetros serian los sgtes :

Type : parametro obligatorio que represnta el tipo de Celdas que se incluirán.
----
Value :parametro Opcional
-----

Si el paramtro "Type" es (xlCellTypeConstants) o (xlCellTypeFormulas), el parametro "Value" servira para determinar que tipos de celdas que se incluirán en el rango devuelto.

a)Las constantes para los tipos de celdas a buscar(XlCellType)

xlCellTypeAllFormatConditions. Celdas con cualquier formato.
xlCellTypeAllValidation. Celdas con criterios de validación.
xlCellTypeBlanks. Celdas vacías.
xlCellTypeComments. Celdas que contengan notas.
xlCellTypeConstants. Celdas que contengan constantes.
xlCellTypeFormulas. Celdas que contengan fórmulas.
xlCellTypeLastCell. La última celda del rango.
xlCellTypeSameFormatConditions. Celdas que tengan el mismo formato.
xlCellTypeSameValidation. Celdas que tengan los mismos criterios de validación.
xlCellTypeVisible. Todas las celdas visibles.

b)LAs Constantes para el segundo paarmetro que es opcionl (XlSpecialCellsValue) Valor
Este segundo parametyro nos permitira refinar nuestra busqueda de celdas especiles filtrando por :

xlErrors
xlLogical
xlNumbers
xlTextValues

ejemplo
--------
Set rng = Range(TuRango).SpecialCells(xlCellTypeFormulas, xlErrors) 'formulas con error

MsgBox rng.Address

----------------------------------

Ejemplo Excel Vba code SpecialCells

Sub VbaExcelCode_SampleSpeciallCells()

'MacroVbaExcel :Jesus Martin Serrano Panduro

Dim rng As Range
Dim TuRango As String

TuRango = "A1:C13"

Set rng = Range(TuRango).SpecialCells(xlCellTypeFormulas, xlNumbers) 'formulas

MsgBox rng.Address

Set rng = Range(TuRango).SpecialCells(xlCellTypeFormulas, xlErrors) 'formulas con error

MsgBox rng.Address

Set rng = Range(TuRango).SpecialCells(xlCellTypeComments) 'celdas con comentario

Debug.Print rng.Address

'Nota :
'mediante debug print puedes escribir el valor de una variable ,etc en al ventana de inmediato
'Para poder ver la ventana de inmediato estando sobre el editor vba debes presionar control G y listo
'Es especialmente util para analizar los valores que toma una variable en el procedimiento vba

End Sub

Sub VbaExcelCode_formatEmptyCells()

'MacroVbaExcel :Jesus Martin Serrano Panduro

ActiveSheet.UsedRange.SpecialCells _
(xlCellTypeBlanks).Interior.Color = 3732

'Nota :En caso no existan las celdas se te devolvera el error 1004 no se encontraron celdas
'debes validar que hacer en ese caso para no mostrar el mensaje en crudo.
End Sub

Sub vbaExcelCode_rowTestCells()

'MacroVbaExcel : Jesus Martin Serrano Panduro

'prueba las sgtes rutinas en Excel 2007 0 2010 - Filas de la version del Excel (1048576)
'como veras esto trabajaba correctamente en Excel 2003 -Filas de al versión del Excel (65536) o anterior por que no habian tantas filas
'esta es otra razon más par que restringas tus busquedas de celdas al rango usado o celdas especiales

MsgBox ActiveSheet.UsedRange.Cells.Count
MsgBox ActiveSheet.Cells.Count 'error 6 desbordamiento

End Sub

Sub VbaExcelCode_findLastCells()

'MacroVbaExcel: Jesus Martin Serrano Panduro

'para terminar el specialcells más simple para que quede claro
'activa la ultiam celda usada

ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate

End Sub

Ultima celda usada(LastCell) en el Rango (1)

2010-07-19T19:57:00.000-07:00

'Buscar la ultima celda usada(LastCell) en el Rango I

Sub Excel_Macro_ultim_cell_antes_de_una_celdaEnblanco()
'Mediante esta macro se podra seleccionar mediante codigo vba la ultima celda
'usada en la columna antes de una celda en blanco

'como se observa en la imagen del Excel se ha seleccionado la celda
'E5 que es justo la celda antes de la primera celda vacia (E6)
'con este parametro (xlDown) buscara la celda con direccion hacia abajo

Range("E1").End(xlDown).Select

End Sub

Sub Excel_Macro_LastCellInColumn()
'mediante esta macro podra seleccionar la ultima celda usada
'E10 tal como se aprecia en la imagen

Range("E65536").End(xlUp).Select

End Sub

Sub Excel_Macro_Ultiam_celda_antes_deBlanco()
'mediante esta macro podra realizar la busqueda de
'la ultima celda usada antes de una celda en blanco
'pero esta vez con direccion a la derecha (xlToRight) de su celda inicial

Range("A2").End(xlToRight).Select

End Sub

Sub UltimaCeldaUsada()
'Con esta macro se puede hallar la ultima celda usada
'en la Hoja

ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Select

End Sub

Enviar libro adjunto(macro excel vba)

2010-07-10T09:54:00.000-07:00

Option Explicit
'Mediante este excel codigo vba de ejemplo podemos enviar el libro activo al email
'lo sgte que podrias hacer es crear un boton en el ribbon o un boton en una barra del Excel
'y desde ese botón enviar directamente un libro o una hoja

'Macro enviar el libro activo
Sub Prc_SendTheActiveWorkbook()
ActiveWorkbook.SendMail Recipients:="EXCELVBASAMPLE@Sample.com", Subject:=" EXCELVBASAMPLE "
End Sub

'Enviar solo primera hoja como adjunto
Sub prc_Send_one_Sheet_From_ActiveWorkbook()
ActiveWorkbook.Sheets(1).Copy
With ActiveWorkbook
.SendMail Recipients:="EXCELVBASAMPLE@Sample.com", Subject:=" SAMPLE EXCEL VBA "
.Close SaveChanges:=False
End With
End Sub

Ejecutar macros de varios libros

2010-06-03T21:31:00.000-07:00

'Ejecutar macros de diferentes libros

En ocasiones puede ser util tener nuestras macros agrupadas en diferentes libros de Excel o complementos para Excel

La sgte macro "Exe_From_otroAddin" nos muestra lo sencillo que resulta ejecutar macros externas

Sub exe_From_otroAddin()

Dim MyTool As String
Dim NameFile As String
Dim NameProcedure As String

NameFile = "Addin_new.xla" 'Primero Guardamos el nombre del Libro o complemento donde se encuentra la macro

NameProcedure = "Macro_otroAddin" 'Indicamos el nombre de la macro de Addin_new.xla

MyTool = "'" & NameFile & "'!" & NameProcedure 'Finalmente Concatenamos el nombre del complemento para Excel(NameFile)
con el nombre de la macro(NameProcedure)

Application.Run MyTool 'ejecutar la macro externa

End Sub

Chart area

2010-03-28T07:10:00.000-07:00

'Este es un ejemplo de como cambiar el tamaño de chart area en varios charts

Sub SetChrtSize_Test()

Dim chtobj As ChartObject
Dim objChart As Chart

'cambiar el tamaño de chart area en el grafico activo
ActiveChart.ChartArea.Width = 1000
ActiveChart.ChartArea.Height = 80
ActiveChart.ChartArea.Interior.Color = 255

'Cambiar el tamaño de plot area
ActiveChart.PlotArea.Width = 1200
ActiveChart.PlotArea.Height = 800
ActiveChart.PlotArea.Interior.Color = 577

'Cambiar el tamaño de legend
ActiveChart.Legend.Interior.Color = 255
ActiveChart.Legend.Width = 33

'cambiar el tamaño de chart area en todos los graficos de la hoja activa (1)
For Each chtobj In ActiveSheet.ChartObjects
chtobj.Width = 250
chtobj.Height = 170
Next

End Sub

Graficos(Chart) - Excel - Excel Charts 2

2009-09-06T11:42:00.000-07:00

Cambiar el tipo de Chart
------------------------

Sub ChangeChartType()

'Cambiando el tipo de Chart

ActiveChart.Type = xl3DPie
ActiveChart.ChartType = xl3DLine

'Segun veo las 2 formas son validas para cambiar el tipo de chart
'de igual manera puedes seleccionar la constante xl3DPie y presionar CTRL + J
'y asi accedes a la lista de otros tipos de charts
'o tambien puedes probar grabando tus propias macros y asi verificas los tipos disponibles de manera sencilla

End Sub

Sub ConvertChartInsheet()

'De igual manera puede convertir el Chart activo en una nueva hoja de grafico
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=ActiveChart.Parent.Name

End Sub

Eliminar los graficos de la hoja activa

Sub DeleteAllcharts()

ActiveSheet.ChartObjects.Delete

End Sub

'eliminar todas las hojas de chart del libro

Sub DeleteAllcharts1()

ActiveWorkbook.Charts.Delete

End Sub

En la sgte entrada trataremos sobre los elementos propios del Chart
Chart area,Plot area,legend,ejes,etc..

Graficos(Chart) - Excel - Excel Charts 1

2009-09-06T11:14:00.000-07:00

Modelo de objetos - Grafico(Chart)
---------------------------------
Application
Workbook
Worksheet
ChartObjets
Chart

Conocinedo esta estructura para el modelo de objetos - grafico podra acceder a un grafico determinado para modificarlos segun guste.

Activar un grafico mediante su index correspondiente ,es decir el numero de index que le corresponde dentro de la coleccion .

De aqui en adelante sera mejor refererise al grafico como Chart(traducido) es mas practico porque asi se emplea en el codigo.

un ejemplo sencillo seria el activar el chart numero 3 de su hoja..(..claro siempre exista)

ActiveSheet.ChartObjects(3).Activate

De igual manera puede elimininar al chart de index 2 .
Eliminar un chart determinado
ActiveSheet.ChartObjects(2).Delete

Cambiar el nombre a un chart determinado
ActiveChart.Parent.Name = "ChartDeudas"

Cambiar el titulo de un chart
ActiveChart.ChartTitle.Text = "Deudas"

Activando un grafico mediante su nombre
Activesheet.Chartobjects("ChartDeudas").activate

Recuperar el nombre del chart activo
-----------------------------------

Msgbox ActiveChart.Name

'Te devolvera una cadena de esta forma primero la referencia a la hoja y luego el nombre del chart.
Hoja1 Gráfico 1

Msgbox ActiveChart.parent.Name
'Te devolvera exactamente lo que imagino que buscabas...solo el nombre del chart

Chart 1

En la proxima entrada la continuacion de charts..

La propiedad Offset Excel - VBA

2009-05-24T08:33:00.000-07:00

La propiedad Offset
--------------------
La propiedad offset permite 2 argumentos que corresponden a la posicion relativa a la celda.

Ejemplo
--------

Object.offset(RowOffset,ColumnOffset)

ActiveCell.Offset(0, 0).Select 'como hemos colocado 0 para los argumentos de fila y columna
la seleccion sigue siendo nuestra celda activa inicial.

Activecell.0ffset(1,0).select 'ahora la celda activa se encuentra una fila por debajo

'si nuestra celda activa inicial hubise sido A1 ahora la celda activa seria A2

Msgbox Activecell.0ffset(1,0).address

Es importante tambien tener en cuenta que obtendremos un error si asignamos o nos tratamoos de desplazar a una rango inexistente.

por ejemplo ActiveCell.Offset(-5, 0).Select 'nos arrojara un error porque no existe el rango que se trata de seleccionar que seria 5 filas arriba de A2.

De igual manera podemos desplazarnos entre las colmnas variando el valor para ColumnOffset

ActiveCell.Offset(0, 1).Select 'desplazarse una columna a la derecha

Tambien podemos usar ambos argumentos(RowOffset,ColumnOffset) para indicar hacia donde desplazarnos o asignar un valor a determinada celda.

Sub sample_vba_offset()

Dim RANGO As Range

Set RANGO = Range("B1")

RANGO.Offset(2, 4).Value = "27 DE MAYO GRAN FINAL DE LA Champions league - 2009"

'nos movemos 2 filas por debajo y 4 columnas a la derecha

End Sub

'Ojo...de igual manera obtendremos un error si tratamos de mover o asignar un valor hacia un rango no existente.

ActiveCell.Offset(0, -3).Select 'desplazarse 3 columnas a la Izquierda

Principales Eventos del formulario(Initialice,Activate,QueryClose

2009-02-01T09:58:00.000-08:00

Principales Eventos del formulario
----------------------------------

Initialice.
**********
Se ejecutara antes de que cargue o se muestre el formulario de usuario

Activate.
********
Se ejecuta cuando se muestra el formulario.

QueryClose
----------
Se ejecuta antes de descargar el formulario

Terminate
---------
Se ejecuta despues de descargar el formulario

*El primer evento que se ejecutara el usar el metodo show es el initialice..

Por ejemplo ...esta macro

sub abrir_formulario

Userform1.Show

End sub

Desencadenera el evento Initialize de Userform1

Private Sub UserForm_Initialize()

Msgbox "iniciando"

End Sub

y...Esta macro descargara el formulario desencadenado los sgtes eventos

Sub Close()

Unload UserForm1

End sub

1.QueryClose
2.Terminate

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Msgbox "ya me voy"

End Sub

Private Sub UserForm_Terminate()

End Sub

Trabajar con userform 1.0 (Eventos en el formulario (userform) y en los controles...)

2009-02-01T09:36:00.001-08:00

Eventos en el formulario y en los controles...

El formulario y todos los controles que agreguemos estan diseñados para interactuar con los usuarios
mediante las acciones o eventos que se realicen.

Para conocer los eventos disponibles para el formulario
coloquese en alguna parte del formulario y de doble clik

Conocer las acciones o eventos disponibles para un control

DE igual manera para conocer los eventos propios a un determinado control simplemente
de dar doble clik sobre el control.

Construcciones With End With

2009-02-01T09:08:00.000-08:00

Construcciones With - End With

nos permitira realizar varias operaciones con un objeto sin la necesidad
de referenciarlo varias veces.

Por ejemplo..

En este ejemplo se observa la referencia Selection.Font hasta 3 veces..pero se puede mejorar..

verifique Las siguientes macros y quedara totalmente claro

Sub sinWITHENDW() 'Macro1

Selection.Font.Color = 255 'color fuente

Selection.Font.Bold = True 'negrita

Selection.Font.Italic = True 'itali

End Sub

Sub conWithEndWith() 'Macro2

With Selection.Font

.Color = 255 'color fuente

.Bold = True 'negrita

.Italic = True 'itali

End With

End Sub

Trabajar con userform 0.2

2008-11-01T07:51:00.000-07:00

Trabajar con userform
---------------------

Añadir controles al formulario

Para agregar controles a su formulario empleara el cuadro de herramientas .Si el cuadro de herramientas no esta visible ,seleccione Ver , Cuadro de herramientas del menu VER

Puede agrgar su controles dando click en el control y luego arrastrando al formulario o puede dar click en el control y luego dar click en la sección del formulario donde desea insertar.

Cada vez que agregamos un control se le asigna el nombre de control mas indicador de secuencia numerica

por ejemplo cada vez que agreguemos un label..el primero sera label1..el segundo label2..etc..claro que siempre
sera posible renombrar los controles por nombres mas convenientes

Para cambiar el nombre de un contro debe seleccionar el control ... ir al ventana de propiedades y elegir la

propiedad nombre y asignar el nombre que desea.

Algunos Controles
------------------
Label(etiqueta) :Este control mostrara un texto dentro del useform

Cuadro de texto(TextBox): Permite al usuario introducir texto

Cuadro combinado(ComboBox) :permitira contener un listado de elementos pero solo mostrara uno la vez hasta ser desplegado .

Cuadro de Lista(ListBox) : Permite mostrar una lista de elementos donde le usuario puede realizar la selección de uno o varios.

Casilla de verificación(CheckBox):
Son utiles cuando el usuario necesita indicar varias opciones .La casilla de verificacion marcada tiene el valor de verdadero.

Boton de opcion(OptionButton).Se empleara cuando solo sea posible elegir uan sola opcion entre varias.
Cuando uno de los botones esta activado(valor true) el resto de botones se desactivara .

Control imagen(Image).Se emplea para mostrar una imagen desde un archivo o cargarse desde el portapapeles.

RefEdit.Le Permitira al usuario seleccionar un rango de celdas.

Para identificar los controles en el cuadro de herramientas simplemente coloquese sobre algun control y aparecera una etiqueta con el nombre del control.

Trabajar con userform 0.1

2008-10-26T09:01:00.000-07:00

Trabajar con UserForm 0.1
-------------------------
Mediante los userform podremos crear los cuadro de dialogo personalizados.

1) Active el editor (ALT+F11)

Ahora presione el boton insertar userform

o tambien ...

Pude dar click derecho en algun objeto de su proyecto como (Thisworkbook o alguna hoja)

*ya creado nuestro formulario podemos realizarle una serie de personalizaciones deacuerdo al gusto o

conveniencia.

Normalmente deseara cambiarle el nombre para identificarlo de manera más simple..

Para acceder a las propiedades para este objeto seleccione el useform en su proyecto y presione "F4"
ahora podemos manipular las propiedades.

cambie el nombre por el sgte Usf_example1
en la propiedad Backcolor despliegue las opciones y elija un color.

otro de los detalles iniciales seria la forma de ocultar o mostrar el formulario

Ahora inserte un modulo y coloque el sgte codigo

Sub call_form()

Usf_example1.Show 'mostrar el formulario

End Sub

De igual manera puede ocultar o descargar el formulario de la sgte forma

'Unload Me 'descargar ..use unload me ...si el codigo esta dentro del formulario

*ahora cierra su formulario y vaya al editor de codigo

Para este ejemplo primero cambie la propiedad ShowModal a False y corra la sgte macro linea por linea (presione F8 estando con el cursor sobre la macro call_form1)

Sub call_form1()

Usf_example1.Show 'mostrar form

Usf_example1.Hide 'ocultar

Usf_example1.Show 'mostrar

Unload Usf_example1 'descargar el form .desde un modulo

End Sub

Metodo GetSaveAsFileName de Excel

2008-09-14T08:27:00.001-07:00

El metodo GetSaveAsFileName de Excel

* Despliega el cuadro de dialogo guardar como y permite la seleccion de un archivo

* Devuelve un nombre de archivo y ruta ,pero no inicia ninguna acción .

Sintaxis

Nombre inicial de archivo :Opcional(especifica el nombre del archivo)

Filtro de archivo :Opcional. una cadena especificando el criterio de filtro archivo

Filterindex Opcional .Los numeros del indice por defecto

Titulo .Opcional .El titulo del cuadro de dialogo

ButtonText .Solo para macintosh

Ejemplo de empleo del metodo GetSaveAsFileName de Excel

Sub GetSaveasFilename()

Dim fileSaveName As String

fileSaveName = Application.GetSaveasFilename(fileFilter:="Excel Files (*.xls), *.xls")

If fileSaveName <> False Then

ActiveWorkbook.SaveAs (fileSaveName)

MsgBox "El libro se guardo en :" & fileSaveName

End If

End Sub

Msgbox

2008-09-14T07:58:00.000-07:00

'MsgBox II

'En ocasiones sera necesario forzar rotura de lineas en los mensajes que muestre

'El sgte es un ejemplo de esta situación.

Sub msgboxII()

Dim msg As String
Dim rpt As Byte

msg = "Usted debe asegurarse siempre " & vbCrLf
msg = msg & "de evitar que los usuarios manipulen " & vbCrLf
msg = msg & "Información de otras areas ¿Esta cumpliendo con esa tarea ?"

rpt = MsgBox(msg, vbYesNo + vbQuestion)

If rpt = vbYes Then

MsgBox "Realice las sgtes tareas"

Else

MsgBox "Revise nuevamente"

End If

End Sub

GETOPENFILENAME(Metodo GetOpenfilename De EXCEL)

2008-08-24T19:31:00.000-07:00

'Metodo GetOpenfilename De EXCEL
'------------------------------
'Este metodo nos permite desplegar el cuadro de dialogo abrir (del menu archivo) pero no abre el archivo indicado.
'*El metodo nos devuelve uan cadena con la ruta y nombre del archivo seleccionado.

'Sintaxis
'--------
'Object.GetOpenFilename(FileFilter,FilterIndex,Title,ButtonText,Multiselect)

'FileFilter> Opcional.Una serie especifica con criterios de filtro de archivo.

'FilterIndex> Opcional.Los numeros del indice por defecto bajo criterios de filtro de archivo.

'Titulo > Opcional .El titulo del cuadro de dialogo.si se omite,el titulo.. mostrara "Abrir"

'ButtonText>Solo para Macintosh

'Multiselect >Opcional . Si es verdadero,se pueden seleccionar varios nombres de archivos

'El argumento Filtro de archivo determinalo que muestra el cuadro de dialogo de los archivos del tipo lista desplegable.

'*Consiste en pares de series de filtro de archivo seguido del comodin especificado.

'*Si se omite sera por defecto : "All File(*.*),*.*"

'Ejemplo
'-------

'El argumento Filterindex especificara el tipo de archivo que aparece por defecto,
'el titulo del argumento es un texto que se despliega en la barra del titulo.
'
'*si el argumento de multiselect es verdadero,el usuario puede seleccionar varios archivos(y se devolveran en una serie)

Sub abreArchivo()

Dim filtrox As String
Dim FilterIndex As Integer
Dim titulo As String
Dim nombreArchivo As Variant

'Configurar Filtro para la lista de archivos

filtrox = "Archivos de texto (*.txt),*.txt," & _
"Word(*.doc),*.doc, " & _
"Excel (*.xls), *.xls, " & _
"Power Point(*.ppt), *.ppt, " & _
"Todos los archivos (*.*),*.* "

'Mostrar por defecto todos los archivos
FiltroIndex = 3
titulo = "Ejemplo"

'Obtener Nombre del archivo
nombreArchivo = Application.GetOpenFilename(FileFilter:=filtrox, FilterIndex:=FiltroIndex, Title:=titulo)

End Sub

La función MSGBOX

2008-07-13T07:56:00.000-07:00

La funcion MsgBox

Creo que ya empleamos en algunos ejemplos esta función ...pero es mejor que sobre conocimientos a que falte.

Esta funcion nos mostrara un cuadro de dialogo con el que el usuario podra interactuar.

La sintaxis consta de 5 argumentos

Ejemplo
-------

Msgbox (prompt [,buttons] [,title] [helpfile,context])

*los argumentos entre corchete son opcionales

-prompt :El mensaje desplegado instantaneamente en el cuadro.

-Buttons :Indicaremos que botones e iconos aparecen.

-Title :Por defecto aparecera Excel en el caso no indiquemos alguno.

-Helpfile:El nombre de la fila de ayuda asociado con el cuadro de dialogo

-Context :Representa un topico de ayuda

'--------------------------------

Sub ejemplo_msgboxvba()

MsgBox "!Accion no permitida!...", vbCritical, "Precaución"

res = MsgBox("¿Deseas Continuar?", _
vbYesNo + vbQuestion, "Lista de precios")

End Sub

*Si la respuesta es afirmativa el valor de la variable res sera 6
en el caso contrario sera 7

InputBox(cuadro de entrada)

2008-06-22T06:53:00.000-07:00

'Cuadro de dialogo de entrada

'
'Nos permitira ingresar un texto,numero o rango
'
'Sintaxis para funcion InputBox de VBA
'
'
'InputBox([prompt],[Title],[Default],{xpos],[ypos],[help file,context])
'
'Prompt : Es el texto mostrado en el cuadro de dialogo
'
'Title :(opcional)Texto de titulo para el cuadro de dialogo
'
'Default :Valor por defecto mostrado en el cuadro de dialogo
'
'Xpos,Ypos :La patalla se ubicar segun las cordenadas
'
'Helpfile ,context (opcional).el archivo de ayuda
'
'Type :Opcional.El tipo de dato devuelto como se ve en la siguiente tabla.
'
'codigo --> SIGNIFICADO
'------
'0 -----> Una fórmula
'1 -----> Un numero
'2 -----> Una cadena(texto)
'4 -----> Un valor logico(True o False)
'8 -----> Una celda de referencia ,como un objeto de rango
'16 -----> Un error de valor,como #N/A

Sub nombres()

Dim i As String
Dim a As Integer

Range("A1:A20").Select 'selecccionamos rango de trabajo

For a = 0 To Selection.Cells.Count 'relizar repeticiones para cada una de las celdas

i = (InputBox("Ingrese su nombre", "Nombre")) 'recuperamos ldsa cadena del input box

ActiveCell.Offset(a, 0).Value = i 'bajamos por las celdas de la seleccion de 1 en 1

Next a

End Sub

Sub beneficio()

Dim u As Long

Do

u = Val(InputBox("Ingrese beneficio", "Beneficio logrado"), "x") 'recuperar beneficio

Loop While u > 0 'CONTINUAR MIENTRAS > 0

End Sub

Arrays

2008-05-17T11:19:00.000-07:00

Arrays Dinámicos

Lo emplearemos Cuando el numero de elementos para una dimensión del array no sean las mismas.

Dim ArrayDinamic() 'dejamos vacios los parentesis

Sub recontar_items

ReDim Array(a) 'para asignar el espacio al array

Array(a) =34 *pero ojo que los valores no se mantendran

'si deseamos conservar los valores emplaremos

redim preserve nombrearray(numero)=valor

Redim preserve Array(a)=34 'conservamos los valores

End sub

La sentencia ReDim permite cambiar el número de elementos del array, no el número de dimensiones.

Por ejemplo, si declaramos el array_A a nivel de un módulo.

Private Array_A() as Integer

Para asignarle espacio al array utilizamos:

ReDim Array_A(5)

Cada vez que se ejecuta la sentencia ReDim, todos los valores almacenados en el array se pierden. Cuando le interese cambiar el tamaño del array conservando los valores del array,

use ReDim con la palabra clave Preserve.

Por ejemplo

ReDim Preserve Array_A(8)

Arrays

2008-05-17T09:50:00.000-07:00

Ejemplo Array multidimensional

2 dimensiones

ReDim Arrjugadores(0 to 1, 0 to 11) As String

'Mejores futobolistas Europa

Arrjugadores(0, 0) = "Zinedine Zidane "
Arrjugadores(0, 1) = "Henry"
Arrjugadores(0, 2) = "Owen"
Arrjugadores(0, 3) = "Raul"
Arrjugadores(0, 4) = "Ruud van Nistelrooy"
Arrjugadores(0, 5) = "Shevchenko"
Arrjugadores(0, 6) = "Lilian Thuram"
Arrjugadores(0, 7) = "Nesta"
Arrjugadores(0, 8) = "Davor Zucker"
Arrjugadores(0, 9) = "Bergkamp"
Arrjugadores(0, 10) = "Figo"
Arrjugadores(0, 11) = "Cristiano Ronaldo"

'Mejores futobolistas America

Arrjugadores(1, 0) = "Ronaldo"
Arrjugadores(1, 1) = "Batistuta"
Arrjugadores(1, 2) = "Enzo Franchescoli"
Arrjugadores(1, 3) = "Romario"
Arrjugadores(1, 4) = "Ortega"
Arrjugadores(1, 5) = "Ronaldinho"
Arrjugadores(1, 6) = "Roberto carlos"
Arrjugadores(1, 7) = "Emerson"
Arrjugadores(1, 8) = "KaKa"
Arrjugadores(1, 9) = "Rivaldo"
Arrjugadores(1, 10) = "Adriano"
Arrjugadores(1, 11) = "Gamarra"

*Para borrar los elementos del array

erase Arrjugadores

Arrays

2008-05-11T07:53:00.000-07:00

Arrays
Mediante un array podemos refererirnos a una "serie de elementos" por un "mismo nombre" y referenciara un elemento de la serie por un numero de indice.

ArraySuperClubes(1)="Real Madrid"
ArraySuperClubes(2)="Barcelona"
ArraySuperClubes(3)="Milan"
ArraySuperClubes(4)="Inter de Milan"
ArraySuperClubes(5)="Manchester United"

En este ejemplo lo comprobaremos con mayor claridad

1) Nos referimos a una serie de elementos por un mismo nombre en este caso sera ArraySuperClubes.

Por ejemplo bastaria algo como la sgte instruccion para cargar los elementos de nuestro array en un control listbox1

ArraySuperClubes representa a los 5 elementos de nuestro array

listbox1.list=ArraySuperClubes

2) Referenciamos a un elemento de la serie por un numero de indice.

Por ejemplo

Si quisieramos referenciar al elemento "3" de nuestro ArraySuperClubes()

Msgbox ArraySuperClubes(3)

nota:Al igual que con la declaración de variables debemos tener en cuenta

Arrays de variables (estático)
Significa que nuestro array tendra un numero fijo de elementos

Aqui es importante tener en cuenta el ambito de declaración del array tal y como
se hace con las variables de manera cotidiana.

-Es decir a nivel de procedimiento , modulo o pubico (disponible para todo el proyecto)

Ejemplos:

Dim Array_Spain(20) as string

'se declaro un array de 21 elementos que van desde el indice cero..

Array_Spain(0),
Array_Spain(1),
Array_Spain(21)

Dim ArrayBidimensionalXy(1 to 4,1 to 4)as integer

'se declaro array de 2 dimensiones

ArrayBidimensional, con 4*4 elementos ArrayBidimensional(1,1)...ArrayBidimensional(4,4)

Public New_X(1 To 20) As String *20

Public New_X(1)...Public New_X(20),
cada elemento permite almacenar una cadena de (20 caracteres).

For Each ..Next

2008-04-20T08:56:00.000-07:00

La instruccion For Each..Next repite instrucciones para cada uno de los objetos de una colección
determinada.

Modificaremos un poco un ejemplo visto anteriormente sobre los colores del libro para
obtener el mismo resultado.
Pero esta vez haremos referencia a colecciones de objetos.

Sub obtener_los_56_colores()

'aqui es conocido que El Excel maneja una paleta de 56 colores
'entonces sabemos tambien que es necesario repetir cierta seccion del codigo

Dim rango_a_pintar As Range
Dim celda As Range
Dim a As Byte

Set rango_a_pintar = Range("A1:A56") 'asignamos el rango que necesitamos

For Each celda In rango_a_pintar 'repetir en cada uno de los elementos de la coleccion

a = a + 1

celda.Interior.ColorIndex = a 'asignar colores del libro a respectiva celda

Next celda

End Sub

Estructuras de Repeticion (Bucles For ..Next )

2008-04-20T08:35:00.000-07:00

Las estructuras For...Next las emplearemos en los casos cuando s conocemos el numero de veces que es necesario repetir la ejecuion de determinadas instrucciones

Sub obtener_los_56_colores()

'aqui es conocido que Excel maneja una paleta de 56 colores
'entonces sabemos tambien que es necesario repetir cierta seccion del codigo

Dim a As Byte

Range("A1:A56").Select

For a = 1 To 56 'repetir 56 veces

Selection.Cells(a).Interior.color = ActiveWorkbook.Colors(a)

'asignar colores del libro a la respectiva celda

Next a

End Sub

Estructuras de Repetición

2008-04-20T08:02:00.000-07:00

Las estructuras de repeticion son usadas para ejecutar una o mas instrucciones repetidas veces

Do...Loop
---------
Nos permitira ejecutar un bloque de instrucciones durante un numero indefinido de veces
*Pero mientras una condición sea (TRUE)Verdadera o hasta que llegue hacer verdadera.

El sgte es un ejemplo de una macro que comprueba la condicion sea true al inicio para poder continuar con las repeticiones

'primero ingresa valores en una columna ...por ejemplo de A1 a A5
'ahora colocate sobre la celda A1

Sub EJEMPLO_DO_LOOP() 'verificar condicion al inicio

'esta macro suma el valor de la variable "I"
'al valor de cada celda
'la palabra clave While verifica la condicion sea verdadera'
y continua entonces la ejecucion del bucle

Dim I As Integer

Do While Not IsEmpty(Selection) 'las repeticiones continuran siempre y cuando la seleccion "no 'sea vacio

I = I + 100

If IsNumeric(Selection) Then Selection.Value = Selection.Value + I

Selection.Offset(1, 0).Select

Loop

End Sub

Sub EJEMPLO_DO_LOOP1() 'verificar al final

'esta macro suma el valor de la variable "I" al valor de cada celda
'la palabra clave While verifica la condicion sea verdadera pero al final es decir
'despues de haber ejecutado la menos una vez el bucle

Dim I As Integer

Do

I = I + 100

If IsNumeric(Selection) Then Selection.Value = Selection.Value + I

Selection.Offset(1, 0).Select

Loop While Not IsEmpty(Selection) 'las repeticiones continuran siempre y cuando la seleccion
'no sea vacio

End Sub

Select Case

2008-03-20T10:15:00.000-07:00

Tenemos la posibilidad de emplear alternativamente la instrucciones SELECT CASE por los bloques "IF...THEN..ENDIF" .

Sub cases()

Dim ventas As Integer
Dim totales As Integer

ventas = 50

Select Case ventas 'casos para ventas

Case Is = 30 'si es 30

totales = 30 * 12 'calcular

Case Is = 40 'si es 40

totales = 40 * 13 'calcular

Case Is = 50 'si es 50

totales = 50 * 14 'calcular

Case Else 'caso contrario

totales = 60 * 25 'calcular

End Select

MsgBox totales 'mostrar totales

End Sub

Estructuras de Control ( [ IF..End if] - [ Select case..End Select]

2008-03-20T09:16:00.000-07:00

Vba nos permite emplear varias estructuras de control y asi podemos escribir codigo que tome decisiones y repita algunas acciones

IF..Then:
La emplearemos para ejecutar instrucciones dependiendo del valor de una condición.

Sintaxis de una sola linea(ejecuta una instruccion si la condicion es true
---------------------------------------------------------------------------------
'si la celda activa es 500 ..entonces la celda activa sera ahora ..500+100

if activecell.value=500 then activecell.value=500+100

Sintaxis de varias lineas(ejecutara varias instrucciones si la condicion es
-----------------------------------------------------------------------------------
true)
------

Sub test()

If ActiveCell.Value = 600 Then

MsgBox "la celda tiene el valor de 600" 'instruccion1

ActiveCell.Interior.ColorIndex = 3 'instruccion 2

End If

End Sub

IF ..Then..Else
-----------------
Esta estructura Ejecutara determinadas instrucciones si la condicion es TRUE
y otras si la condicion es FALSE

*Ejemplo para 2 posibilidades

IF activecell.value=600 then 'si es 600 then

activecell.value=700 'cambiar por 700

Else 'caso contrario

activecell.value=0 'cambiar por cero

End if

*Ejemplo para varias posibilidades

Sub variosIF()

If ActiveCell.Value = 800 Then 'condicion1

MsgBox "la celda tiene 800 como valor"
ActiveCell.Interior.ColorIndex = 4

ElseIf ActiveCell.Value = 900 Then 'condicion2
MsgBox "la celda tiene 900 como valor"
ActiveCell.Interior.ColorIndex = 5

ElseIf ActiveCell.Value = 910 Then 'condicion3

MsgBox "la celda tiene 910 como valor"
ActiveCell.Interior.ColorIndex = 6

Else 'en el caso no cumpla con las codiciones anteriores

MsgBox "la celda es diferente de 800,900,910 o tal vez esta vacia"

End If

End Sub

Bug en Excel 2007

2008-03-03T20:13:00.000-08:00

En Excel 2007 algunas operaciones, en las que el resultado debería ser
normalmente 65535 se muestra con el número 100000 como resulatdo . Esto es un problema serio y podría afectar a todos los cálculos posteriores que se hagan con ese valor.

Excel 2007

Excel 2003

Pero ya tendria solucion
------------------------------
Solo visiten este enlace y decarguen el parche correspondiente:

http://blogs.msdn.com/excel/archive/2007/10/09/calculation-issue-update-fix-available.aspx

Funciones Definidas por el usuario

2008-02-24T07:15:00.000-08:00

Funciones definidas por el usuario
----------------------------------------
*una funcion acepta valores luego
realizara los calculos y nos devolvera
una respuesta.

1.creamos unha function con el nombre doble

Function doble(numero)'el argumento pasado se llama numero

doble= numero*numero 'la function nos devuelve numero*numero

end function

2.Ahora vamos al excel y en la formula para una celda
cualquiera escribimos
=Doble(3)

*listo la celda debe devolver como valor 9

Pasando datos a procedimientos

2008-02-16T05:25:00.000-08:00

En VBA Tenemos siempre la posibiliodad de llamar a otro procedimiento
para pasarle datos o variables.

Por ejemplo
-----------
En este sencilo ejemplo se ve claramente como pasar un dato a otro procediento

'solo debes pegar el codigo en modulo
'y correrlo

Sub pasando_un_dato()

Dim celda As Range

Set celda = Range("A1") 'asignamos la refrencia la celda A1

celda.Value = 399 * 2 'colocamos un valor a la celda

'invocamos al procedimiento:
'calculador_datos(y le pasamos
'el valor de la propiedad value de la celda)

calculador_datos (celda.Value )

End Sub

Sub calculador_datos(valor)

'el procedimiento recibe el valor de celda.value

Dim total As Integer

total = 12 * valor 'la variable total ahora sera igual a 12* valor(celda.value)

MsgBox "el total es..." & total 'mostramos el resultado

End Sub

Invocar a una macro (procedimiento)

2008-02-08T19:37:00.000-08:00

Esn este ejemplo el procedimiento "Sub Principal" llama al procedimdiento "Sub auxiliar"
para que nos muestre un msgbox (un mensaje)

'--------------------------------------------------------------------------------------------------
'declaramos la varible rango de tipo range
'la declaramos a nivel de modulo(disponible
'para los procedimientos de este modulo)

Dim rango As Range

Sub principal()

'ahora asiganmos el rango

'asignamos el rango "B10 a B20" a la variable de tipo rango

Set rango = Range("B10:B20")

'ahora hacemos referencia al objeto rango para pintar sus celdas

rango.Interior.ColorIndex = 3

auxiliar 'invocando a la macro auxiliar

End Sub

Sub auxiliar()

MsgBox "Las celdas del rango : " & rango.Address & " han sido pintadas"

End Sub

Uso de Variables VBA EXCEL - Macros VBA EXCEL

2008-02-01T18:58:00.000-08:00

Variables
----------
Se emplean para "GUARDAR" y "MANIPULAR VALORES ó DATOS "

Se pueden guardar varios tipos de datos
----------------------------------------

-numericos ---> Myvarnum=5000 'guardando el dato numerico "5000" en "Myvarnum"
-cadenas ---->Myvarcadena="Libro39" 'guardando la cadena "Libro39" en Myvarcadena
-objetos -----> set wbk=Activeworkbook ''asig¡nando el libro activo a la variable de tipo objeto "wbk"

-variantes ----->myvar=5000 , myvar="XXX" , set myvar=Activeworkbook
'y en las varables de tipo variant uno podra almacenar un dato de diferentes tipos.

Las varibles se declaran de la sgte manera
-------------------------------------------

Dim var_ejemplo as string

Dim : Indica la declaración d ela variable

var_ejemplo :nombre de la variable

As : cualificativo para separar el "nombre de la varible" del "tipo de dato"

String : El tipo de dato (puede ser string ,integer, object , variant ,etc,etc)

Dim Myvarnum as integer 'tipo..numerico

Dim Myvarcadena as string 'tipo...cadena

Dim wbk as object 'tipo...objeto

Dim myvar as variant 'tipo...variant

*Varibles de objeto
---------------------
empleadas par refrenciar un objeto

*ojo para asignar un objeto a una variable uno debe asignar
de la sgte forma..primero

colocar set..luego nombre de la variable e igualr al objeto.

Set variable=Objeto

Ejemplo
--------

Dim wbk as object

-asignamos el objeto ===> el libro activo(Activeworkbook) a la variable "wbk"

set wbk=Activeworkbook

-y luego podremos por ejemplo decir

Msgbox wbk.name 'y obtendremos el nombre del libro activo

Ambito de las variables
------------------------
Se refiere al área donde se puede acceder.

'-a nivel de procedimiento
'-------------------------

Sub procedim 'las varibles solo seran acesibles dentro del procedimiento

dim paraproc as string
dim paraprox as string

paraproc="Real Madrid"

paraprox="Barcelona"

End sub

'-a nivel de modulo
'----------------------

Dim superclub as string 'accesible a todos los procedimientos del modulo

sub prueba

superclub="Manchester United"

End sub

'-a nivel de proyecto
'---------------------

Option Explicit

'al declara la variable como publica ser accesible desde todo el proyecto

Public superclub As String

Sub prueba1()

superclub = "Inter de Milan"

End Sub

Ejemplos macros vba Excel

2008-01-26T10:00:00.000-08:00

Una pausa en el avance como
para reforzar un poquito lo avanzado.

Sub nombre_padre

'obtener el nombre del padre
'de activesheet

MsgBox ActiveSheet.Parent.FullName

End sub

'recordando el tema del modelo de objetos de Excel
'aqui un claro ejemplo de la jerarquia de objetos de
que les comente:

fijense primero nombramos al objeto "ActiveSheet" y colocamos el punto luego la palabra "Parent"(Padre)
(entiendase entonces que al decir "Activesheet.Parent"
estamos hablando del objeto inmediato superior a a la
hoja activa que seria logicamente"El libro"(ActiveWorkbook)
en este caso entonces veran que es lo mismo
colocar "ActiveSheet.Parent" o "ActiveWorkbook"
y de esa forma tambien podremos referenciar objetos haciendo referencia al objeto padre para el objeto correspondiente del modelo de objetos de Excel.

y finalmente colocamos la, propiedad "FullName"

esto nos daria exactamente el mismo resultado

sub nombre_libro

MsgBox ActiveWorkbook.FullName

end sub

-----------

obtener nombre del libro
************************

' ojo :...pero por ejemplo si el libro activo no se guardo
' ninguna vez todavia nos devolvera "Book1" o "Libro"'
dependiendo del idioma de tu Excel .

'y si tu libro ya lo habias guardado anteriormente
' devolvera ademas del nombre el "path" o ruta de
tu libro activo .

de esta manera : D:\Documents and Settings\Administrador\Escritorio\WorkPlan_jes1.xls
end sub

'Redondeando activecell
'---------------------------

Sub redondear_cells()

s = Round(ActiveCell, 2)

ActiveCell.Value = s

ActiveCell.NumberFormat = "#,##0.00"

End Sub

'Formateando(fuente)
'------------------------

Sub cambiar_formato()

Cells.Select 'seleccionamos todas las celdas
Selection.Font.Name = "Arial Black" 'asignamos la fuente
Selection.Font.Size = 13 'el tamaño de la fuente

'en el ejemplo seleccionamos todas las celdas
'pero puedes comentar la linea -->'Cells.Select'
y seleccionar cualquier rango de celdas'incluso
celdas discontinuas

End Sub

Cambiar entre estilos de referencia

de A1 a RC y viceversa

Application.ReferenceStyle = xlA1Application.ReferenceStyle = xlR1C1
Application.ReferenceStyle = xlA1

'Pegar los formatos
'--------------
'primero copia alguna celda que tenga el formato
'que deseas copiar'luego colocate sobre la celda o celdas
'ahora corre la macro

Sub Paste_formats()

Selection.PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False

End Sub

'Copiar y Pegar valores
'------------------------

Sub PegarValor()

'de igual manera colocate
'sobre una celda con formula

Selection.Copy

'ahora sobre el rango donde deseas
'pegar solo como valor

Selection.PasteSpecial Paste:=xlValues

Application.CutCopyMode = False

End Sub

Se me paso mencionar algunas de las combinaciones de teclas para el editor de codigo pero aqui hay unas cuantas que falto mencionar.

Combinaciones de teclas para manejar el editor
-------------------------------------------------------
de codigo para vba (por ahora las más necesarias)
----------------------------------------------------------

para Abrir el editor simplemente presiona ----> Alt + F11

Estando ya sobre ele entorno del editor vba

PRESIONA ---> F2 (Examinador de objetos )

ir a cuadro de dialogo buscar ---> F3

ir a ventana de propiedades ----> F4

Para Ejecutar una macro -------> F5

Correr el codigo linea por linea (las instrucciones)----> F8

Respuesta(Insertar en un datatable un rango de casillas del excel)

2008-01-25T15:48:00.000-08:00

Hoy he recibido un correo con la sgte consulta:

- Programa .net que lea un excel y actualice la BD
- ¿Como insertar en un datatable un rango de casillas de Excel?

*Doctores , no es la intención si es que este ejemplo sale un poco del orden del avance de temas del blog
Pero creo que es importante igualmente
compartir la mayor cantidad de conocimientos posibles.

No lo he hecho antes, pero creo que si procedes de esta forma, funcionará:

1.-Convierte tu rango de celdas a un archivo xml físico.
2.-Luego, el datatable acepta como origen de datos un archivo XML, entonces cargas el datatable con el xml que creaste...algo así:DataSet ds = new DataSet();ds.ReadXml("myXmlFile.xml");return ds.Tables(0);

Procedimientos y Funciones 0.1

2008-01-22T19:26:00.000-08:00

Ahora ya seguarmente con una mejor referencia
de como trabajar en Excel con el modelo de objetos.

Volviendo a la definicion inicial del Vba(Visual Basic para Aplicaciones)

"Es el lenguaje con el que podras manipular los objetos de Excel y crear tus propias aplicaciones(claro mas adelante) por ahora macros utiles."

*Por eso era muy importante primero verificar el modelo de objetos de Excel.

Los procedimientos
---------------------
Conjunto de instrucciones que realiza una accion.
*esta encerrado pot las palabras reservadas
Sub y End Sub

ejemplo
----------
Sub crear_libro

'instruccion1
'instruccion2
'instruccion3

End Sub

Las funciones
---------------
A diferencia de un procedimiento
una función devolvera valores
*esta encerrado po las palabras reservadas
"Function" "End Function"

ejemplo
--------

Function MostrarTriple(numero)

'devolvera el triple de un número

MostrarTriple=numero*3

Msgbox MostrarTriple

End Function

ejemplo
--------
'el primer pasos sera crear un procedimiento(mostrar_triple)
'que llame a la [funcion "convertirTriple"]
'luego le pasamos el numero que deseamos que convierta
'debes colocarte ahora sobre el procedimiento mostrar_triple'
y presionar f8 hasta que obtengas recuperar el valor de la funcion

'pega el procedimiento y la funcion en un modulo

Sub mostrar_triple()

'aqui le pasamso el numero 55 a la funcion
'y simplemente mostramos en un mensaje
' el valor que nos devuelve la funcion

MsgBox convertirTriple(55)

End Sub

Function convertirTriple(numero)

'devolvera el triple de un número
'en este caso el numero="55"'y
'luego lo multiplica por 3

convertirTriple = numero * 3

End Function

El Modelo de objetos de Excel

2008-01-20T19:12:00.000-08:00

Antes de continuar con los temas debemos tenera algunas consideraciones para continuar trabajando con objetos en el Excel (Excel vba)

Importante no olvidar lo sgte :

- Los objetos cuentan con "propiedades" y "métodos".

-Una propiedad es un atributo del objeto que define una característica del mismo

Un Ejemplo, la propiedad "Row" del objeto "ActiveCell" nos indica en qué fila de la hoja está la celda activa.

Macro sobre la propiedad Row de la celda

Sub celdax()

MsgBox ActiveCell.Row 'devuelve la fila de la celda activa
MsgBox ActiveCell.Column 'devuelve la columna de la celda activa

End Sub

Para poder acceder a una propiedad de un objeto se utiliza el nombre del objeto, seguido de un punto y el nombre de la propiedad.

Como se vio justamente en ejemplo de la propiedad Row para la celda

ActiveCell.Row

donde el objeto es la celda activa : ActiveCell

la propiedad es : Row

MsgBox ActiveCell.Row

Los "métodos" son las acciones que podemos llevar a cabo sobre el objeto.

Para llamar a un método se utiliza el nombre del objeto, un punto y el nombre del método

Ejemplo, el método "ActiveCell.Clear" borra el contenido de la celda activa

como te habras dado cuenta en la mayoria ejemplos hemos empleado instrucciones
muy similares a esta.

Hemos colocado Msgbox para mostrar una característica de un objeto

y de esa manera obtener el valor de una propiedad determinada.

MsgBox ActiveCell.Row

Va ser importante entonces notar la diferencia entre propiedades y metodos de l0s objetos en el Excel

Hasta aqui las propiedades nos permiten:(obtener características de los objetos )
y los metodos (llevar acciones sobre un objeto tal y como se vio en el ejemplo la accion ejecutada fue borrar el contenido de la celda "ActiveCell.Clear").

*La totalidad de acciones que puede realizar un usuario sobre un objeto(Metodos del objeto)
*Valores que se podran obtener o asignar(propiedades del objeto)

*Tampoco debes olvidar que para trabajar sobre un objeto en Excel no es necesario seleccionarlo

'En esta macro de ejmplo podras comprobarlo

Sub celda_conseleccion()

'seleccionamos el rango A1

Range("A1").Select

'asignamos a la seleccion el color'con el index=5

ActiveCell.Interior.ColorIndex = 5

'pero las lineas iniciales no seran necesarias
'bastara con trabajar directamente sobre el'rango "A1"

Range("A1").Interior.ColorIndex = 8

End Sub

Metodos del Objeto Range

2008-01-16T20:54:00.000-08:00

A) Activate:
--------
Activar el Rango seleccionado.

B)Clear
-----
Borrar los valores y formatos del Rango.

C)ClearContents
--------------
Solo borra los valores del rango manteniendo el formato intacto.

D)Delete
-------
Eliminar el Rango indicado.

E)Calculate
---------
Recalcular las formulas en un rango indicado.

'Ahora una macro de ejmplo de los metodos del objeto range

'Excel VBA Macro de ejemplo aplicacion de metodos del objeto range

Sub ejemplo_range_met()

Range("A1").Activate 'Activa el Rango
Range("A1").Delete 'eliminar el rango
Range("A1:A100").Calculate 'recalculo en el range
Range("A2").Clear 'borra contenido y formatos
Range("A2").ClearContents 'solo contenidos

End Sub

Objeto Range del Excel- Excel VBA MAcros Ejemplo propiedades Objeto Range

2008-01-16T20:24:00.000-08:00

Un concepto adeacuado y util del obejor range del Excel por ahora seria pensar en un objeto Range como una celda, una fila, una columna o una selección de celdas

*Un objeto range estara contenido dentro de un objeto woorsheet

Propiedades del Objeto Range
-----------------------------

a)Address
---------
Indica la dirección del rango seleccionado.

ejemplo
--------
MsgBox ActiveCell.Address 'devolvera la direccion dela celda activa

b)Count
------:
Cuenta el número de objetos de un conjunto.

ejemplo
--------

MsgBox Selection.Cells.Count 'devolvera la cantidad de celdas seleccionadas

c)Name
------:
Nos servira pra asignar o recuperar el nombre de un rango

Selection.Name = "prueba_vba"

d)Value
------
Devuelve el valor de un rango

MsgBox Range("A1").Value 'el valor del rango de la celda A1

e)formula
--------
MsgBox Range("A1").Formula

Objeto Worksheet de Excel

2008-01-12T14:05:00.000-08:00

El objeto Worksheets representa a las Hojas de un Libro de Excel

*La colección de WorkSheets es formada por las hojas de un libro.

* Cada miembro de la colección Sheets es un objeto Worksheet(hoja)

Metodos del objeto Worksheets
--------------------------------

Delete
-------
Permite Eliminar una Hoja

Por ejemplo Eliminar la hoja Abril

Sub delete_hoja()

Application.DisplayAlerts = False 'asignamos a falso para evitar
' las alertas de Excel al eliminar hojas

Sheets("Abril").Delete 'eliminando hoja="Abril"

Application.DisplayAlerts = True 'devolvemos el valor por defecto "verdadero"

End Sub

Add
------
Crear un nueva hoja

Sub new_sht()

Sheets.Add 'agregar una hoja

Sheets.Add after:=Sheets(2) 'agregar un hoja al libro y colocarla despues de la hoja2

End Sub

Move
------
Permite Mover una Hoja

Sub new_sht()

'movemos la hoja enero despues de report

Worksheets("enero").Move After:=Sheets("report")

End Sub

Select
------
Permite Seleccionar una Hoja

sub selex

Sheets(2).Select 'seleccionamos la hoja 2 del libro

end sub

Copy
------
Permite Copiar una Hoja

Sub new_sht_copy()

'creamos auna copia de la hoja enero
'y la colcamos despues de la segunda hoja del libro

Worksheets("enero").Copy After:=Sheets(2)

End Sub

'ahora un ejemplo de 2 propiedades del objeto worksheet

Sub ejemplo_worksheet_prop()

'macro de ejemplo 2 propiedades
'muy comunes del objeto worksheet
'te devuelve el nombre de la hoja
'por ahora innecesario aparentemente
'pera notaras la utilidad de esta
'propiedad a la hora de hacer compraciones
'o busquedas entre las hojas del libro

MsgBox ActiveSheet.Name

'esto te devolvera el indice de
'la hoja activa(Índice de la Hoja)
'es decir si es la hoja 1 o 2 o 3,etc del libro

MsgBox ActiveSheet.Index

End Sub

Métodos del objeto Workbook de Excel

2008-01-10T20:30:00.000-08:00

a) Activate : Activa un libro

b) Close :Cierra el libro con la posibilidad de indicar si deben guardarse los cambios.

c) Protect Unprotect :Permite proteger un libro, de forma que los usuarios no puedan agregar ni eliminar hojas de cálculo, y volverlo a desproteger.

d) Save :Guarda el libro. Si el libro no se ha guardado antes, Excel lo guarda en la carpeta actual

e) SaveAs :Permite guardar el libro especificado, indicando a título opcional un nombre, un formato de archivo, una contraseña

f) SaveCopyAs :Guarda una copia del libro en un archivo, pero no modifica el libro abierto en memoria. Este método es útil cuando se desea crear una copia de seguridad sin modificar la ubicación del libro.

Ejemplos de macros del Uso de Metodos del objeto Workbook del Excel

'el codigo vba excel en 2 ejemplos simples

Sub activate_wbk_excel() 'activar el libro

'con esta linea podras evitar el mensaje de error del excel
'en caso no exista ese libro de Excel

On Error Resume Next

Workbooks("Excel VBA Finance").Activate

End Sub

'nuevamente debes correr la macro linea
'por linea para que te fijes los cambios 'en el excel

'ahora necesitas crear 5 libros nuevos 'cada libro de Excel forma parte de la colección de libros 'entonces tamnbien cada libro cuenta con un index 'y tambien puedes referenciar un workbook con un número 'en este caso el 1 reprenta a el libro 1 de la coleccion de libros de excel 'en cualquier caso tambien puedes hacer referecia por el nombre del libro

Sub Close_wbk_excel()

Workbooks(1).Close True 'cerrar el libro guardando cambios

Workbooks("5").Close 'cerrar el libro sin guardar cambios

Workbooks(2).Save 'Guarda el libro

Workbooks(3).SaveAs "C:\Documents and Settings\JesusMartin\Escritorio\Excel ejemplo.xls"

'guarda una copia

Workbooks(4).SaveCopyAs "C:\Documents and Settings\JesusMartin\Escritorio\Copia de ejemplo Excel.xls"

End Sub

Propiedades del objeto Workbook de Excel

2008-01-09T20:44:00.000-08:00

Propiedades del objeto Workbook de Excel
-------------------------------------------
a)Name:
----
Devuelve el nombre del libro.

b) FullName:
--------
Devuelve la ruta de acceso completa, incluido el nombre del libro.

c) Path
----:
Devuelve la ruta de acceso.

d) Author
------:
Permite establecer el nombre del autor creador del libro.

Macro de ejemplo del uso de las propiedades del Objeto workbook
------------------------------------------------------------------

Sub Propiedades_libro()

'ejemplos del uso de las propiedades'del objeto workbook Excel(Codigo Vba Excel)
'ActiveWorkbook.Author = "Tula"

MsgBox ActiveWorkbook.Name

'si el libro no ha sido guardado todavia'al menos una vez entonces Path no devolvera nada
MsgBox ActiveWorkbook.Path

MsgBox ActiveWorkbook.Name

MsgBox ActiveWorkbook.FullName

End Sub

Objeto application en Excel -Excel macros

2008-01-09T04:31:00.000-08:00

'Objeto application Excel (Excel macros - vba) II
'Otras propiedades del objeto application Excel

Propiedades del Objeto Application de Excel
---------------------------------------------
'devuelve la ruta de instalacion de Microsoft excel

Msgbox application.path

'maximizar la ventana
application.Windowstate=xlmaximized

'Cambiar el titulo de la ventana principal del Excel

Application.caption="Cuentas de enero"

Metodos del objeto application
------------------------------
a)QUIT
------
'Este metodo es empleado para Salir del Excel'cuidado con perder algun trabajo'si hay libros abiertos Excel preguntara si desea guardar los cambios'pero cuidado si tienes displayalerts=false .Excel no te preguntara si deseas salir'y saldra de la application sin guardar los libros.

Application.Quit

b)RUN
------
Empleado para ejecutar una macro o una application Vba.
'aqui simplemente colocamos el nombre de la macro que buscamos'se ejecute en este caso "macro1"

Application.Run macro:="macro1"

Recuerda: El objeto Application esta en el nivel más alto de la jerarquia de los objetos del Excel y representa al mismo Microsoft Excel.

Macro :Ejemplo de propiedades del objeto Application Excel

2008-01-07T15:38:00.000-08:00

'Macro de ejemplo codigo vba Excel :'Objeto Application Excel

'para complementar las propiedades del objeto application de Excel
esta seria otro pequeño ejemplo del uso del objeto application En excel

Sub macro_excel_application()

'Nombre del usuario
MsgBox Application.UserName

'Nombre de la empresa
MsgBox Application.OrganizationName

'el Sistema operativo
MsgBox Application.OperatingSystem

'Carácter separador de miles
MsgBox Application.DecimalSeparator

'la Impresora por defecto
MsgBox Application.ActivePrinter

'la Ruta a carpeta Add-ins
MsgBox Application.UserLibraryPath

End Sub

Objeto application en Excel -Excel macros

2008-01-07T09:06:00.000-08:00

El objeto Application proporciona un gran conjunto de propiedades que controlan el estado general de Microsoft Excel.

Propiedades del objeto Application
-------------------------------------------
Aqui una pequeña lista de algunas de las propiedades del objeto application tal vez las más adecuadas de revisar por ahora teniendo en cuenta que la idea es ir familiarizandose de a pocos)

A) ScreenUpdating(Boolean) Si es True, Excel actualiza su pantalla después de cada llamada a un método. Puede desactivar la presentación mientras se ejecuta el código. Asegúrese de establecer de nuevo esta propiedad en True.

El objeto Application proporciona también un grupo de propiedades que controlan la presentación en Excel. Puede modificar cualquiera de estas propiedades para cambiar lo que el usuario ve en la pantalla.

A continuación se incluyen algunas de las opciones de presentación comunes:

B) DisplayAlerts(Boolean) Si es True (el valor predeterminado), Excel muestra mensajes de advertencia mientras se ejecuta el código, cuando sea necesario. Establezca esta propiedad en False para omitir las advertencias y seleccionar el valor predeterminado.

'Un ejemplo de las alertas que muestra el excel seria el mensaje de confirmación cuando se desea eliminar una hoja,.

C) DisplayFormulaBar(Boolean)Si es True (el valor predeterminado), Excel muestra la barra de fórmulas estándar para la modificación de celdas; establézcala en False para ocultar la barra.

D) DisplayFullScreen(Boolean) Si es True, Excel se ejecuta en el modo de pantalla completa (con un efecto diferente al que se obtiene maximizando la ventana de Excel); el valor predeterminado es False.

Al igual que ocurre con la propiedad ScreenUpdating, es importante restablecer la propiedad DisplayAlerts. Con DisplayAlerts como False, Excel no pregunta si se desea guardar los libros antes de cerrarlos, por lo que se pueden perder los datos.

Ahora una pequeña macro que muestra como funciona en el codigo Vba - Excel lo comentado.

macro( ejemplo de objeto application excel)

'Objeto application no te olvides de ejecutar linea por linea para que observes los cambios en Excel

Sub excel_macro_applicati() 'vba_application

Application.DisplayAlerts = False 'aqui Excel no pediria confiramción para eliminar una hoja

Application.DisplayAlerts = True ' Excel solicita confirmación de determinadas acciones)
'esta propiedad debe estar asignada como True por defecto

Application.DisplayFormulaBar = False 'Ocultar la barra de formulas de

Application.DisplayFormulaBar = True 'Mostrar barra de formulas de Excel

Application.DisplayFullScreen = True 'Excel se ejecuta en el modo de pantalla completa

Application.DisplayFullScreen = False 'Devuelve el valor x defecto

End Sub

Modelo de Objetos Excel (Macros - Excel Vba )

2008-01-05T11:43:00.000-08:00

Ejemplos de objetos seria un libro de trabajo, una hoja de cálculo,un rango de una hoja de cálculo. Encntramos más objetos a nuestra disposición y manipularan mediante el uso de código VBA.·Las clases de objetos están ordenados de manera jerárquica. Los objetos actuan como contenedores de otros objetos. Por ejemplo, Excel es un objeto llamado Applcation y contiene otros como WorkBook y CommandBar. El objeto WoorkBook puede contener otros objetos como WorkSheet y Chart. Un objetoWoorkSheet puede contener objetos como Range . Nos referimos al orden de estos objetos como modelo de objetos de Excel.

Por ejemplo, la colección de WorkSheets está compuesta por todas las hojas de cálculo de un libro . La colección CommandBars está compuesta por los objetos CommandBar. Las colecciones son objetos en símismas.Cuando nos referimos a un objeto contenido o miembro, estamosespecificando su posición en la jerarquía del objeto, usando unpunto como seprador entre el contenedor y el miembro.

Application.WorkBooks("Cuentas.xls")Esto se refiere al libro "Cuentas.xls" en la colección de WorkBooks.

2008-01-05T07:36:00.000-08:00

Modelo de Objetos del Excel

Una vez que el usuario aprende a leer e interpretar una libreria de objetos del Excel se puede apuntar a nuevas posibilidades y proyectarse de seguro hacia como ponerlas en practica .La mejor manera de aprender como se comunica vba con excel es grabar algunas macros sencilas.

Seria importante tambien hacer lo sgte :

Entendiendo que estas sobre un libro de Excel

1) Presiona "ALT" + "F11"

- ya estas sobre el entorno Vba del Excel

2) Presiona "F2"

Ahora puedes ver el examinador de objetos

-para el ejemplo de la imagen he colocado -->"application" en la cajita y como veras

nos muestra toda una jeraquia de objetos apartir del objeto "applicaction"

igualmente puedes colocar tambien "workbook" o cualquier elemento del

modelo de objetos y asi de esa manera podras tambine darte cuenta de la estrctura de objetos para el Excel.

Microsoft Excel Macros - Codigo Vba Excel

2008-01-04T14:22:00.000-08:00

Como ya hemos creado algunas macros para Excel muy simples y ahora pueden crear las macros basicas...creo que podemos seguir avanzando..

Creo que ahora podemos darle otra orientación al tema de pronto seria importante ... tratar el tema de una forma
tal vez más amplia es decir ..explicar muy a groso modo el modelo de objetos de Microsoft Excel .....

Modelo de objetos de Excel (los primeros objetos de Excel que necesitamos conocer)
------------------------------------------------------------------------------------------
Como los datos de un documento de Excel están muy estructurados, el modelo de objetos es jerárquico y sencillo. Excel proporciona cientos de objetos con los que quizá desee interactuar, pero puede empezar a trabajar con el modelo de objetos centrándose en un subconjunto muy pequeño de los objetos disponibles. Entre éstos se incluyen:

Esta seria una pequeña definición..muy practica

a) Application (representa la propia aplicación Excel)
b) Workbook (representa un libro en la aplicación Excel)
c) Worksheet (representa una hoja del libro )
d) Range ( representa una celda, una fila, una columna, una selección de celdas que contiene

uno o más bloques de celdas (que podrían ser contiguos o no), o incluso un grupo de celdas
de varias hojas. )
*será el objeto más utilizado en las aplicaciones de Excel

Modelo jerárquico
-------------------------------------------------------------------------
Application-->Workbooks-->Sheets --> Range
(Excel) --> (Libro) --> ( Hoja) --> (celda o celdas )

*Accediendo a la colección de libros accederemos
a un libro determninado.

-en este caso activamos "Libro1.xls"

- Workbooks("Libro1.xls").activate

-referenciar a el libro activo : ActiveWorkbook

*Igualmente de la colección de hojas indicamos una del conjunto
en este caso activamos la hoja "cuentas"

- Sheets("cuentas1").activate

-referenciar a la hoja activa : ActiveSheet

*Referenciando un rango:
* y activamos la celda A1

- Range("A1").activate

-la celda activa se referencia como : ActiveCell

ejemplos macros excel vba

2008-01-04T14:19:00.000-08:00

sub gridlines

'seria bueno que ejecutes el codigo linea por linea
'como te explique en algun post anterior
'debes dar click sobre la macro en la primera linea
'y luego de presionar f8 podras ejecutar tus macros de excel por pasos

ActiveWindow.DisplayGridlines = False ' quitar las lineas de la hoja

ActiveWindow.DisplayGridlines = True ' mostrar las lineas de la hoja

end sub

sub trabajndo_con_colores

'en el excel puedes modificar 56 colores
' en este ejemplo modificaremos el color 44 de la paleta de colores

ActiveWorkbook.Colors(44) = RGB(230, 230, 233)
'con esto cambias el color con el index 44 en todas las celdas del libro

'restablecer los colores por defecto
ActiveWorkbook.ResetColors

'copiar colores desde otro libro
ActiveWorkbook.Colors = Workbooks("coloradon.xls").Colors
'con esto copias los colores del libro "coloradon.xls" para tu libro activo.

'-------------------------
'y si solo quieres trabajar con una celda o selección
'como te dije puedes usar cualquiera delos 56 colore que la paleta de Excel

ActiveCell.Interior.ColorIndex = 16 'en este caso le asignamos color 16 a la celda

Selection.Interior.ColorIndex = 56 'ahora sobre la selección(una celda o varias)

end sub

nuevos ejemplos macros excel( codigo excel vba)

2008-01-04T11:12:00.000-08:00

*aqui unos pequeños mini-macros.. para que continues con tus primeros pasos
en el vba.

'ojo logicamente para este ejemplo estas sobre un 'libro de prueba para que no pierdas algun avance sin guardar

sub cerrar_book1 'prueba1

ActiveWorkbook.Close 'con esto cierras tu libro.. sin guardar cambios

end sub

sub cerrar_book2 'prueba2

ActiveWorkbook.Close(True) ' cerrar guardando los cambios realizados

end sub

sub opens_wbk

'Abrir un libro de Excel ..desde una ruta conocida

Workbooks.Open FileName:="F:\examples\antiguos_modelos.xls"

end sub

sub obtener_name 'obtener el nombre del libro activo

MsgBox ActiveWorkbook.FullName

end sub

sub agreagar ' con esta macro agregas una nueva hoja en el libro activo

ActiveWorkbook.Sheets.Add

end sub

sub eliminar 'aqui eliminaremos la hoja "calculos1"

sheets("calculos1").delete

end sub

Sub select_primera 'activamos la primera hoja

ActiveWindow.ScrollWorkbookTabs Position:=xlFirst

'tambien podrias activarlo asi:

activeworkbook.sheets(1).activate

end sub

sub select_last 'activar la ultima hoja

ActiveWindow.ScrollWorkbookTabs Position:=xlLast

end sub

sub new_sheet ' con este ejemplo podras Insertar una hoja nueva (en la posición que quieras)

ActiveWorkbook.Sheets.Add Before:=Worksheets("pagos_abril")

end sub

sub mover_sht 'ejemplo de como mover una hoja

Worksheets("hojaxxx").Move After:=Worksheets("hojayyy")

end sub

sub eliminar las_shts ' y si te molesta eliminar las hojas una por una

'puede seleccionar varias y eliminarlas con la sgte macro.

ActiveWindow.SelectedSheets.Delete

end sub

ejemplos de macros excel-vba

2007-07-13T10:18:00.000-07:00

Sub AbrirTuLibro() 'de pronto puede ser util una macro que abra un libro que usas seguido

Workbooks.Open ("C:\Mis documentos\consultas.xls")

End Sub ' un ejemplo ultra simple pero de hay las posibilidades de mejoralo dependen de ti
'derrepente usas un formulario que te precargue tus libros de tu directorio mas vistado etc.. favoritos..etc,etc

'si lo se..las macros son recontra y abusivamente basicas pero por ahora..pero como estas 'aprendiendo tienes que comenzar por algo

Sub TuNuevoLibro() 'agregar un nuevo libro

Workbooks.Add

End Sub

Sub ACtivartuLibro() ' activar un libro

dim tulibro as string

tulibro="consultas.xls"

Workbooks(tulibro)Activate

End Sub

Creando macros

2007-07-13T09:38:00.000-07:00

'estos seran los primeros pasos

Planifique las acciones que deseas ejecute tu macro

La macro se guardara en un nuevo módulo adjunto a un libro.

Para grabar una macro seleccione del menú Herramientas el comando Grabar macro y después del submenú Grabar nueva macro.

asignar un Nombre a la macro

la macro se puede guardar en :
En Este libro,
Nuevo libro o
en el Libro de macros personal.

Para terminar con su grabación seleccione del menú Herramientas el
comando Grabar macro y
en el submenú Finalizar grabación.

Se puede ejecutar una macro seleccionando de la lista en el cuadro de diálogo
Macro. Para que una macro se ejecute cada vez que haga clic en un botón
determinado o presione una combinación de teclas específica, asigne la macro a
un botón de la barra de herramientas

Otra forma de ejecutar una macro es utilizando del menú Herramientas el
comando Macro.

De las macros listadas, se selecciona la deseada y se presiona Ejecutar. También
se puede ejecutar Paso a paso para revisar los procedimientos que va realizando.

Para ejecutar paso por paso...
Presione alt+ f11
Entonces se abrio el entorno del editor vba para excel
Coloque el puntero del mouse sobre la macro que desea ejecutar linea por linea
(trate de compartir la visibilidad entre la ventana del editor vba y su libro de excel..asi podra seguir los cambios ejecutados por su macro en libro)

Ahora presione f8 ..(una vez por cada linea que quiera descender)

Manipulando Macros
Para visualizar el codigo de su macro presiona ALT+F11
Visual Basic permite modificar macros, copiarlas de un módulo a otro, copiarlas
entre diferentes libros, cambiar el nombre de los módulos que almacenan las
macros o cambiar el nombre de las macros.

Algunos ejemplos de lo que podemos hacer con las macros son:

Tareas que son repetitivas, que hay que realizar varias veces el mismo
procedimiento.

Un sistema de información.

Sistemas de administración

Cree sus primeras macros de empleo frecuente

En general el banico de posibilidades es ilimitado usted puede automatizar muchisimas tareas.

. Macro "seleccion_de_rango" seleccione las celdas D1:G10 de la primer hoja del
libro abierto
Macro "style_cursiva" que ponga letra tipo cursiva
. Macro "font_col" que ponga letra de color verde
5. Macro "titulos" que ponga letra de tamaño 18 en las celdas "A1:F1"

The first post

2007-06-01T09:22:00.000-07:00

Antes de todo

Agradecer al elenco mvp's de la empresa desarrolladora de soluciones empresariales ...por sus aportes en este santuario del vba code.

Mi nombre es JESUS Serrano Panduro, y en las proximas semanas encontaremos algunos trucos para excel , codigo vba para excel , macros excel , y algunos novedades sobre el excel 2007 .