Macros excel ok

Macros de excel
Autor: Ramón Mendoza Ochoa
1
mailxmail - Cursos para compartir lo que sabes

Presentación del curso
Curso de Excel enfocado a la práctica. Aprende a manejar las Macros de Excel,
para aprovechar mejor las posibilidades de este software de informática (ofimática)
tan potente y de gran utilidad tanto a nivel doméstico, como a nivel profesional en
todo el mundo.
Un gran porcentaje de los usuarios de Excel, maneja las opciones básicas del
programa y tiene dificultades en dar un salto importante de nivel en el conocimiento
y manejo de las potencialidades del mismo. Resulta que Microsoft Excel, tiene
integrado, a modo de aplicación, el lenguaje de programación Visual Basic,
mediante el cual podemos generar y programar las Macros.
Con el aprendizaje sencillo de Visual Basic en Excel para la programación de las
Macros, podemos, sin duda, dar ese salto hacia un nivel mucho más alto en el
manejo de Excel y en los beneficios prácticos que de ello podemos extraer.
Con una guía adecuada del manejo de las Macros de Excel, no tendrás problemas
en aprender a manejar estas utilidades del programa. Ya verás cómo, siguiendo esta
guía, el aprendizaje de la aplicación de estas utilidades para fines prácticos, será
más fácil de aprender de lo que seguramente tienes en mente.
Adelante entonces con esta guía o manual de Excel enfocado a la programación de
Macros con Visual Basic. Recuerda que mientras más domines las funciones de
este programa, más fácil, más práctico y más productivo serás con las tareas o
proyectos en los que estés trabajando.
2

1. Qué es una Macro de Excel
Primeramente debemos de saber que es una Macro y a continuación se explica el
termino:
Una Macro son una serie de pasos que se almacenan y se pueden activar con alguna
tecla de control y una letra. Por ejemplo, todos los días empleo frecuentemente en
mis celdas los mismos pasos: Tamaño de Fuente(Tamaño de la letra), Negrita,
Fuente(Tipo de letra) y Color de Fuente(Color de Letra), para no estar repitiendo
estos pasos los puedo almacenar en una macro y cuando ejecute la macro los pasos
antes mencionados se ejecutaran las veces que yo lo desee. A continuación te
muestro como grabar una macro y ejecutarla:
Trasládate a la celda A1 y escribe tu Nombre. Por ejemplo, Ramón y presiona Enter
Regrésate a la celda A1, porque cuando diste Enter bajo de celda o cambio el rumbo.
Da clic en el Menú Ver, seguido por la Opción Barra de Herramientas y elija Visual
Basic. Se activara la barra de herramientas Visual Basic.
Da clic en el botón Guardar Macro, el que tiene la ruedita Azul. Windows activa el
cuadro de dialogo Grabar Macro, el cual permitirá darle el nombre a la macro y cual
será el método abreviado para ejecutarla. El método Abreviado se refiere con que
letra se va activar la macro, obviamente se activara con la tecla Control y la letra que
usted quiera, de preferencia en minúscula, porque si activa las mayúsculas la macro
se activara presionando la tecla Shift + Control + la letra que usted indico.
Donde dice Nombre de la macro ya aparece el nombre que llevara la macro en este
caso Macro1. si desea cambiar el nombre escriba uno nuevo, pero yo le recomiendo
que así lo deje. En la opción Método Abreviado aparece que se activara con la tecla
Control(CTRL) + la letra que usted indica, de clic en el cuadrito y ponga una letra,
por ejemplo ponga la letra a (en minúsculas). La macro se activara cuando este lista
con la tecla Control + a De clic en el Botón Aceptar. Windows empezara a grabar
todos los pasos en la Macro1.y el botón de la ruedita azul cambiara de forma ahora
será un cuadrito Azul, se llamara Detener grabación. Lo utilizaremos cuando
terminemos de indicarle los pasos para detener la grabación. Cambie el Tipo de
3

Letra en el Botón Fuente de la barra de herramientas Formato Cambie el tamaño de
la letra en el Botón Tamaño de Fuente de la barra de herramientas Formato
Presione el Botón Negrita de la barra de herramientas Formato Cambie el color de
la letra en el Botón Color de Fuente de la barra de herramientas Formato. Recuerde
que todos estos pasos están siendo almacenados en la macro que estamos
grabando y también recuerde que estos pasos se están efectuando en la celda A1.
Presione el Botón Detener Grabación de la barra de Herramientas de Visual Basic.
El que tiene el cuadrito azul presionado.
Listo Excel guardo los pasos en la Macro1 que se activara presionado la tecla Control + a
Control + a
Escribe otro nombre en la celda C1 y presiona Enter, después regresa a la celda C1.
Presiona la tecla Control + a. Windows efectuara todos los pasos grabados sobre la
celda C1, esto quiere decir que el nombre que esta en C1 tendrá las características
del que esta en A1. Tipo de letra, tamaño, negrita y el color que indicaste al grabar
la macro.
Nota . Cada vez que presiones Control + a Excel ejecutara la macro y efectuara los
pasos en la celda que te encuentres. Puedes grabar todas las macros que desees.
Ahora te recomiendo que domines estos pasos antes de pasar a la siguiente fase.
Trata de crear macros que almacenen pasos como estos, recuerda los pasos los vas
a indicar tu, que no se te olvide detener la grabación después de que indicaste los
pasos, repite este ejercicio las veces que sea necesario para aprendértelo bien.
Practica I
Genera las siguientes Macros:
Graba una Macro que se active con Control + b y que esta macro permita abrir un
archivo
Graba una Macro que se active con Control + c y que esta macro permita insertar
un WordArt
Muchos pensaran que esto no es nada pero ya veremos mas adelante cuando
mezclemos los códigos que genera Excel con los de Visual Basic. Esto será pura
Dinamita.
4

2. Observando los códigos de una macro de excel
Bien, ahora después de practicar la Fase 1 con diferentes ejemplos o Macros
pasaremos a la siguiente Fase que nos permitirá observar los códigos que hemos
generados con nuestra macros. Te recomiendo que salgas de Excel y vuelvas a
entrar, para que trabajes limpio sin ninguna macro y empezando de la macro1 de
nuevo.
OBSERVANDO LOS CODIGOS DE UNA MACRO DE EXCEL
Crearemos una macro y veremos sus códigos:
Para observar los códigos de una macro debemos de seguir los siguientes pasos:
Primeramente trasládese a la celda A5 antes de empezar la grabación de la Macro
Presione el Botón Grabar Macro de la barra de Herramientas Visual Basic. Excel
muestra el cuadro de Dialogo Grabar Macro en la opción Método Abreviado escriba
la letra r , por lo tanto la macro se llamara con Control + r Presione el botón
Aceptar. Excel inicia la grabación del la Macro1 Trasládese a la celda A1 y escriba
Ramón, después presione Enter para aceptar el valor en la celda Pare la grabación
de la macro presionando el botón Detener Grabación de la barra de herramientas
Visual Basic. Excel a grabado los pasos y a generado un código, Observémoslos:
Presione la tecla Alt + la tecla de función F11(Alt + F11). Excel nos traslada al Editor
de Visual Basic. Si este editor no se activa es que Excel no esta bien instalado o se a
borrado. También puede acceder desde el Menú Herramientas, Macro y Editor de
Visual Basic. Active los siguientes cuadros o ventanas:
De clic en el Menú Ver y elija la opción Explorador de Proyectos De clic en el Menú
ver y elija la opción Ventana Propiedades
Estas dos opciones deben de estar siempre activadas ya que de ahí depende todo lo
que vallamos a hacer.
Del cuadro Proyecto de doble clic en Módulos o simplemente presione el signo de +
+ que aparece en la opción Módulos. Se activara debajo de Módulos la Opción
Modulo1 De doble clic en Modulo1. Se mostrara en el Editor de Visual Basic el
código de la macro que grabamos de la siguiente forma:
Sub Macro1()
5

'
' Macro1 Macro
' Macro grabada el 08/04/2001 por RAMON MENDOZA OCHOA
'
' Acceso directo: CTRL+r
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "Ramón"
Range("A2").Select
End Sub
Que es lo que significa esto nos preguntaremos asombrados, a continuación se da
una explicación de lo que ha hecho Excel:
Sub y End Sub indican el inicio y el final del procedimiento de la Macro1 Todo lo
que aparece con un apostrofe ´ indica que no se tomara en cuenta que es solo texto
o comentarios y ese texto debe de aparecer en un color, ya sea el color verde. Range("A1").Sele
Range("A1").Select Indica que lo primero que hicimos al grabar la macro fue
trasladarnos a la celda A1. La orden Range nos permite trasladarnos a una celda
ActiveCell.FormulaR1C1 = "Ramón" Esto indica que se escribirá en la celda en que
se encuentra el valor de texto Ramón. Todo lo que aparece entre comillas siempre
será un valor de texto. La orden ActiveCell.FormulaR1C1 nos permite escribir un
valor en la celda activa. Range("A2").Select Otra vez indicamos que se traslade a la
celda A2. Esto se debe a que cuando escribimos el nombre de Ramón en A1
presionamos Enter y al dar Enter bajo a la celda A2.
Para comprender mejor alteraremos el código dentro del editor de Visual Basic.
Que crees que pasara aquí con nuestra Macro:
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 08/04/2001 por RAMON MENDOZA OCHOA
'
' Acceso directo: CTRL+r
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "Ramón"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Calle 21 de Marzo #280"
Range("C1").Select
ActiveCell.FormulaR1C1 = "31-2-47-13"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Nogales Sonora"
Range("E1").Select
ActiveCell.FormulaR1C1 = "CONALEP NOGALES"
End Sub
Así es acabo de alterar el código y cuando regrese a Excel y ejecute la macro con Control + r
Control + r hará lo siguiente:
En A1 escribirá Ramón
6

En B1 escribirá Calle 21 de Marzo #280
En C1 escribirá 31-2-47-13
En D1 escribirá Nogales Sonora
En E1 escribirá CONALEP NOGALES
Así que salgamos del editor dando clic en el Menú Archivo y eligiendo la opción
Cerrar y volver a Microsoft Excel. Si no desea salir por completo de clic en el
botón Microsoft Excel que se encuentra activado en la barra de tareas y cuando
deseé volver al editor de clic en el botón Microsoft Visual Basic que se encuentra
en la barra de Tareas.
Ahora ya que salimos de Visual Basic y estamos en Excel de Nuevo ejecutemos la
macro presionando Control + r y veamos los resultados de nuestra modificación.
Que te parece es sencillo o No?, Claro necesitamos practicar bastante para dominar
esto, así que repasa la Fase 2 cuantas veces sea necesario, otra cosa no trates de
generar códigos muy complejos en tus macros porque te vas a enredar, poco a poco
se va lejos.
Practica II
Genera una Macro que escriba un nombre en una celda y lo ponga negrita y observa
el Código.
Genera una Macro que escriba un nombre en una celda y lo Centre y observa el
Código.
Genera una Macro que escriba un nombre en una celda y cambie el tamaño de la
letra a 20 puntos y observa el Código.
7

3. Códigos más comunes
Trasladarse a una Celda
Range("A1").Select
Escribir en una Celda
Activecell.FormulaR1C1="Ramon"
Letra Negrita
Selection.Font.Bold = True
Letra Cursiva
Selection.Font.Italic = True
Letra Subrayada
Selection.Font.Underline = xlUnderlineStyleSingle
Centrar Texto
With Selection
.HorizontalAlignment = xlCenter
End With
Alinear a la izquierda
With Selection
.HorizontalAlignment = xlLeft
End With
Alinear a la Derecha
With Selection
.HorizontalAlignment = xlRight
End With
Tipo de Letra(Fuente)
With Selection.Font
.Name = "AGaramond"
End With
Tamaño de Letra(Tamaño de Fuente)
With Selection.Font
.Size = 15
8

End With
Copiar
Selection.Copy
Pegar
ActiveSheet.Paste
Cortar
Selection.Cut
Ordenar Ascendente
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending , Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Orden Descendente
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending , Header:=xlGuess, _
Buscar
Cells.Find(What:=" Ramon ", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Insertar Fila
Selection.EntireRow.Insert
Eliminar Fila
Selection.EntireRow.Delete
Insertar Columna
Selection.EntireColumn.Insert
Eliminar Columna
Selection.EntireColumn.Delete
Abrir un Libro
Workbooks.Open Filename:="C:Mis documentosvideo safe 3.xls"
Grabar un Libro
ActiveWorkbook.SaveAs Filename:="C:Mis documentospiscis.xls ", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
9

Estos serian algunos códigos muy comunes en Excel, pero si usted desea puede
generar mas códigos de otras opciones, es cuestión de que los ocupe.
Antes de pasar a la Fase 3 es necesario que domines generar Macros y Observar sus
códigos que se encuentran en la Fase 2. Recuerda esto es de mucha practica y para
eso es necesario aprender bien las fases Anteriores.
10

4. Creando formularios y programándolos I
Antes de Empezar esta nueva fase te recomiendo que salgas de Excel y vuelvas a
entrar, esto es por si estuviste practicando los códigos, para que no quede una
secuencia de Macros.
Ahora te enseñare a dominar lo máximo de Excel que es crear formularios y
programarlos, bueno un formulario es una ventana que se programa por medio de
controles y estos controles responden a sucesos que nosotros programamos. Todo
esto se encuentra dentro de Visual Basic.
A continuación Muestro como crear un formulario y como programarlo:
Presione La Teclas Alt + F11, para entrar al editor de Visual Basic. Activa las
siguientes opciones: De clic en el Menú Ver y elija la opción Explorador de
Proyectos De clic en el Menú ver y elija la opción Ventana Propiedades Del Menú
Insertar elija la Opción UserForm. Esto inserta el Formulario que programaremos
con controles. En el Explorador de Proyecto se observara que se inserto el
UserForm.
También cuando de clic en el Formulario USERFORM1 se debe de activar el Cuadro
de Herramientas, si no se activa de clic en el Menú Ver y elija la opción Cuadro de
Herramientas.
Elija del Cuadro de Herramientas el Control Etiqueta el que tiene la A y Arrastre
dibujando en el Formulario USERFORM1 la etiqueta. Quedara el nombre Label1,
después de un clic en la etiqueta dibujada y podrá modificar el nombre de adentro y
pondremos ahí Nombre. Si por error da doble clic en la etiqueta y lo manda a la
pantalla de programación de la etiqueta, solo de doble clic en UserForm1 que se
encuentra en el Explorador de Proyecto. Elija del Cuadro de Herramientas el
control Cuadro de Texto el que tiene ab y arrastre dibujando en el formulario
USERFORM1 el cuadro de texto a un lado de la etiqueta que dice Nombre. El cuadro
de texto debe de estar vacío y su nombre será Textbox1, el nombre solo aparecerá
en el control. Haga los dos pasos anteriores igualmente poniendo Dirección en la
Label2 y Teléfono en la Label3 y también dibújeles su Textbox. Esto quedara así
después de haberlo hecho
11

Si tiene algún problema al dibujar las etiquetas o los cuadros de texto, solo
cámbiele el nombre a la etiqueta o el cuadro de texto en la Ventana Propiedades la
opción se llama (Name). El Error que marque puede ser Nombre Ambiguo, pero si
le cambias el Nombre al control se quitara el error. Puedes ponerle cualquier
nombre en lugar de Label1.
Solo altera esto si te marca error, si NO déjalo así.
Los controles como las Etiquetas y Cuadros de Textos pueden modificárseles
algunas opciones en la Ventana Propiedades Para hacer esto es necesario tener
conocimiento sobre las propiedades de los controles. No altere las propiedades si
no las conoce.
12

5. Creando formularios y programándolos II
7. Elija del Cuadro de Herramientas el control Botón de Comando y Arrastre
dibujando en el Formulario USERFORM1 el Botón, después de un clic en el nombre
del Botón dibujado y podrá modificar el nombre y pondremos ahí Insertar. Si por
error da doble clic en la Botón y lo manda a la pantalla de programación de la
etiqueta, solo de doble clic en UserForm1 que se encuentra en el Explorador de
Proyecto.
Así quedara el Formulario formado por los controles:
8. Ahora de doble clic sobre el control Textbox1 para programarlo y después
inserte el siguiente código:
Private Sub TextBox1_Change()
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Esto indica que se valla a A9 y escriba lo que hay en el Textbox1
Nota .-Lo que esta en azul lo genera Excel automáticamente, usted solo escribirá lo
que esta en Negrita.
Para volver al Formulario y programar el siguiente Textbox de doble clic en
UserForm1 que se encuentra en el Explorador de Proyecto, o simplemente de clic
en Ver Objeto en el mismo Explorador de Proyecto.
13

Range("B9").Select
End Sub
Esto indica que se valla a B9 y escriba lo que hay en el Textbox2
Para volver al Formulario y programar el siguiente Textbox de doble clic en
UserForm1 que se encuentra en el Explorador de Proyecto, o simplemente de clic
en Ver Objeto en el mismo Explorador de Proyecto.
Range("C9").Select
End Sub
Esto indica que se valla a C9 y escriba lo que hay en el Textbox3
Para volver al Formulario y programar el Botón de Comando Insertar de doble clic
en UserForm1 que se encuentra en el Explorador de Proyecto, o simplemente de
clic en Ver Objeto en el mismo Explorador de Proyecto.
11. Ahora de doble clic sobre el control Botón de Comando para programarlo y
después inserte el siguiente código:
Private Sub CommandButton1_Click()
Rem inserta un renglón
Rem Empty Limpia Los Textbox
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
Rem Textbox1.SetFocus Envía el cursor al Textbox1 para volver a capturar los
datos
TextBox1.SetFocus
End Sub
Nota.- El comando Rem es empleado para poner comentarios dentro de la
programación, el comando Empty es empleado para vaciar los Textbox.
12. Ahora presione el botón Ejecutar User/Form que se encuentra en la barra de
14

herramientas o simplemente la tecla de función F5
Se activara el Userform1 y todo lo que escriba en los Textbox se escribirá en Excel
y cuando presione el botón Insertar, se insertara un renglón y se vaciaran los
Textbox y después se mostrara el cursor en elTextbox1.
En este archivo que usted bajo se encuentra una hoja de Excel Libre de Virus o sea
que esta limpio, ábralo sin ningún problema, ya que ahí viene un ejemplo de la
Macro ya realizada y solo la ejecutara y vera como trabajan las Macros. Espero y
estés pendiente porque vienen mas partes sobre este interesante curso de Macros.
15

6. Trabajando con fórmulas
Es de suma importancia saber aplicar Formulas en Macros de Excel, ya que la
mayoría de las hojas de cálculos las involucran, por ejemplo los Inventarios, las
Nominas o cualquier otro tipo de hoja las llevan, es por eso que en la siguiente Fase
se muestra como manejar Formulas en Macros de Excel.
Fase I
UserForm.
Ahora crearas un formulario con el siguiente aspecto:
el formulario tendrá:
- Tres etiquetas
- Tres Textbox
- Un Botón de Comando
Los datos que se preguntaran serán Nombre y Edad, los Días Vividos se generaran
automáticamente cuando insertes la edad. A continuación se muestra como se
deben de programar estos Controles:
Programación de los Controles:
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Range("A9").Select
16

End Sub
Range("B9").Select
Rem aquí se crea la Formula
TextBox3 = Val(TextBox2) * 365
Rem El Textbox3 guardara el total de la multiplicación del Textbox2 por 365
Rem El Comando Val permite convertir un valor de Texto a un Valor Numérico
Rem Esto se debe a que los Textbox no son Numéricos y debemos de Convertirlos
End Sub
Range("C9").Select
End Sub
Esto va permitir que cuando se ejecute el formulario y se de la edad el resultado de
los días vividos aparecerá en el Textbox3 y se escribirá también en Excel. El
comando Val es un comando de Visual Basic que te permite convertir un valor de
texto a un valor numérico. Recuerden el Comando Rem se utiliza para poner
Comentarios únicamente y no afecta a la programación.
Este Archivo de esta Macro se llama Macros de Edad y viene incluido aquí.
Generaremos otro ejemplo, Crea el Siguiente Formulario con los siguientes datos:
- 5 Etiquetas
- 5 Textbox
- 1 Botón de Comando
Los datos que se preguntaran serán Nombre, Días Trabajados, Pago por Día, Bonos
y Sueldo Neto.
17

18

7. Genera el siguiente código
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Range("A9").Select
End Sub
Range("B9").Select
End Sub
Range("C9").Select
End Sub
Range("D9").Select
Rem aquí se crea la formula
TextBox5 = Val(TextBox2) * Val(TextBox3) + Val(TextBox4)
Rem El TextBox5 guardara el total
End Sub
Range("E9").Select
19

End Sub
Cuando se introduzca el Bonos automáticamente se generara el Sueldo Neto.
Este ejemplo viene en el Archivo Macros de Sueldo Neto
BUSANDO INFORMACIÓN CON UN TEXTBOX
Se puede buscar información con un Textbox programándolo de la siguiente forma:
Dibuje una Etiqueta, un Textbox y un Botón de Comando y agregue el siguiente
Código:
Range("a9").Select
End Sub
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
False).Activate
End Sub
Si te fijas incluí en la programación del Botón Buscar Ahora que buscara lo que en
el Textbox1 a la hora de Presionarse.
Este proceso viene en el Archivo Completo Macro2
20

8. Trabajando con el asistente
El asistente es el personaje de Office que se activa para ayudarnos y una de las
ventajas es que podemos Manipularlo, por ejemplo se le puede dar animación,
Moverse, Hacer Preguntas, Etc.
A continuación se muestran algunos códigos del Asistente:
Este código permite hacer visible el ayudante o sea mostrarlo. Si deseas ocultarlo
solo cambia la opción True por False.
Assistant.Visible = True
Este código permite Mover el Asistente a un nuevo lugar, solo cambia los valores
numéricos y cambiara de posición.
Assistant.Move 430, 230
Este código permite activar un efecto de animación, cuando escribas el signo Igual
después de Assistant.Animation = aparecerá un menú con diferentes efectos de
animación
Assistant.Animation = msoAnimationListensToComputer
Este ejemplo permite crear un Nuevo Asistente para poderlo manipular con una
pregunta y que tu contestes. La variable t guardara el valor de la respuesta, si el
valor es -3 significa que es Si y por lo tanto borrara el renglón.
With Assistant.NewBalloon
.Text = "Deseas Borrar este Registro"
.Button = msoButtonSetYesNo
.Heading = "Advertencia"
t = .Show
End With
If t = -3 Then
Assistant.Animation = msoAnimationEmptyTrash
21

End If
Este ejemplo viene en el archivo Macro2
Si deseas que siga saliendo esta guía solo escríbeme pidiendo que sigan saliendo
ejemplos.
22

9. Elaborando una consulta
Todo Registro de información debe de tener su propia Consulta, Baja y
Modificación, es por eso que en este nuevo capitulo nos concentramos en ello,
primeramente en poder consultar la información que ya se escribió en la Hoja de
Excel, obviamente desde una Macro combinada con Visual Basic, observemos el
siguiente ejemplo:
Fase I
UserForm.
Ahora crearas un formulario con el siguiente aspecto:
el formulario tendrá:
- Tres etiquetas
- Tres Textbox
- Tres Botones de Comando
Los datos que se preguntaran serán Nombre, Dirección y Teléfono. Los tres
botones nos servirán para lo siguiente: Consultar consultara la información que
hayamos insertado desde el botón insertar. Baja podrá eliminar algún dato que se
consulto y no lo queremos. Insertar tendrá la función de insertar los registros que
vayamos dando de alta, es como los ejercicios anteriores. A continuación se muestra
como se deben de programar estos Controles:
23

10. Programación de los Controles I
BOTON DE CONSULTA
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
Rem la línea que contiene el ActiveCell.Offset(0, 1).Select permite moverse una
columna a la derecha, por lo tanto después de la búsqueda de las primeras líneas
con Cell.Find si encuentra el Nombre de la persona se mueve a la siguiente columna
y la línea TextBox2 = ActiveCell Permite capturar el valor de la celda al Textbox2 y
así mostrar el dato de la celda en el TextBox2.
Rem Cada vez que se escriba la línea ActiveCell.Offset(0, 1).Select significa que se
tiene que moverse una columna a la derecha.
Rem Si el nombre que tratas de consultar no se encuentra podría generar un error
porque fallaría el Cell.Find esto puede ocurrir en el Word 97, yo trabajo con el Word
2000 o XP y no tengo ese problema. Pero esto se solucionaría con una trampa de
error.
End Sub
BOTON BAJA
Range("A9").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
BOTON INSERTAR
24

Range("A9").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
CUADROS DE TEXTO
Range("A9").FormulaR1C1 = TextBox1
Rem esta primer línea reemplaza a estas dos...... que te parece todavía mas corta
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1[Leon1]
End Sub
Range("B9").FormulaR1C1 = TextBox2
End Sub
Range("C9").FormulaR1C1 = TextBox3
End Sub
Si con el Botón Consulta tienes un error cuando no encuentra a la persona,
entonces tendrás que agregar esto a tu código del Botón Consultar
[Leon1]Range("A9").FormulaR1C1=TextBox1 Reemplaza estas dos lineas
25

11. Programación de los Controles II
BOTON DE CONSULTA
On Error Goto noencontro
Rem esta línea genera una trampa de error si Excel encuentra un error se le dice que
se vaya a la etiqueta noencontro que esta definida mas adelante en el código. No
use la trampa de error si no tiene problemas a la hora de que no encuentra a la
persona. Recuerde si usted comete cualquier error Excel se dirigirá a la etiqueta
noencontro.y esquivara cualquier error, hasta uno que usted cometa en la
programación.
False).Activate
Rem También se puede utilizar este código para leer la información de las celdas lo
que esta en azul. La diferencia es que se asignan los valores a variables y después se
descargan a los TextBoxs.
Direccion = Activecell
Telefono = Activecell
TextBox2 = Direccion
TextBox3 = Telefono
noencontro:
Rem Aquí se esquiva el error
End Sub
Que te parece es increíble como una Macro combinada con Visual Basic puede hacer
hasta lo imposible
Bueno ya tenemos elaborado un ejercicio de consultas de datos, ahora accesaremos
al formulario desde Excel sin necesidad de entrar al Editor de Visual Basic.
Para realizar este ejercicio debemos permanecer dentro del Editor de Visual Basic
26

para poder introducir el código en un Modulo, por lo tanto deberás seguir los
siguientes pasos:
- De clic en el Menú Insertar y elija la opción Modulo
- Escriba dentro del Modulo el nombre del modulo en este caso Sub Entrada
Cuando usted escriba Sub Entrada aparecerá de la siguiente manera:
Sub Entrada()
Load UserForm1
UserForm1.Show
End Sub
Usted deberá escribir las dos líneas que están en medio que son:
Load UserForm1
UserForm1.Show
La primer línea significa que cargue a la memoria el formulario que se llama
UserForm1, la segunda línea significa que lo muestre, esto quiere decir que en el
modulo estamos escribiendo el código de una macro que permitirá cargar el
formulario desde Excel sin necesidad de entrar al Editor de Visual Basic.
Si te fija en el explorador de proyecto aparece el Modulo que creamos.
si queremos volver al formulario solo da doble clic en UserForm1
Bueno ya esta listo ahora salgamos del Editor de Visual Basic y volvamos a Excel.
- De clic en el Menú Archivo del Editor de Visual Basic
- Elija la opción Cerrar y volver a Microsoft Excel
Ya que estamos en Excel, podemos insertar una imagen o un botón o cualquier
grafico, por ejemplo:
- De clic en el Menú Insertar
27

- Elija la opción Imagen, seguido por Imagen Prediseñada
- inserte cualquier imagen y dele el tamaño que usted desea.
- De clic derecho sobre la Imagen
- Elija la opción Asignar Macro
- De clic en la Macro que se llama Entrada, es obvio la única que hicimos
- De Clic en Aceptar
- De clic fuera de la imagen en cualquier celda y listo si presionas la imagen
cargara el formulario.
28

12. Trabajar con Listbox y Combobox
Bueno empezaremos con como agregar información a un Combobox y un Listbox,
primeramente deberás crear el siguiente formulario dentro de Visual Basic,
recuerda desde Excel se utiliza la tecla ALT + F11 para entrar a Visual Basic,
seguido del Menú Insertar y después Userform, bueno creo que ya lo sabes.
Inserta Un Combobox y un Listbox y un Botón.
Ahora que ya creaste la Interfaz vamos a programar el botón, veremos como se le
puede agregar información por medio de código a estos dos controles.
Da doble clic en el Botón y escribe las siguientes líneas dentro del procedimiento.
ComboBox1.AddItem "Juan Jose"
ComboBox1.AddItem "Pedro de la Fuente"
ComboBox1.AddItem "Salvador de la Luz"
ListBox1.AddItem "Juan José"
ListBox1.AddItem "Pedro de la Fuente"
ListBox1.AddItem "Salvador de la Luz"
End Sub
Bueno vamos a analizar el significado de estas líneas:
ComboBox1.AddItem "Juan José "
La opción AddItem significa que vas a agregar un dato de texto, por lo tanto se
entiende como vas a agregar a Juan José al Combobox1, por lo tanto yo puedo
agregar los datos que quiera a un Combobox o un Listbox con la opción AddItem,
entonces al presionar el botón aparecerán los datos que se encuentra escritos y
podrás seleccionar cualquiera de ellos, recuerda que la información la vas a agregar
según tus necesidades.
Ahora si deseas agregar números a un Combobox o ListBox escribe el siguiente
código en un botón:
29

For X=1 to 50
Listbox1.AddItem str(x)
Next
End Sub
La Instrucción For-Next es un ciclo contador que te permite contar desde un
numero hasta otro. Por ejemplo le digo que cuente desde el 1 hasta el 50 y lo que se
encuentre dentro del ciclo For-Next se ejecutara el número de veces, la X es una
variable numérica que guarda el valor, cada vez que el ciclo da una vuelta aumenta
un numero, por lo tanto X va a valer desde 1 hasta 50, y la instrucción Str es para
convertir el valor numérico de la X en valor de Texto, ya que la opción AddItem
guarda solo texto, claro esta que también puede funcionar sin esta instrucción en
algunos casos.
Por lo tanto el Listbox1 va a guardar los número del 1 al 50, sin necesidad de irlos
poniendo de uno por uno, imagínatelo.
Listbox1.AddItem "1"
Ya te quiero ver en el código para que llegues al 50, jejejejejejeje.
Bueno esto es para introducirle datos a un Listbox y Combobox, pero como puedo
usar estos datos para enviarlos para una celda, en el siguiente ejemplo te lo explico:
Da doble clic en el Listbox y escribe el siguiente código:
Private Sub ListBox1_Click()
Range("a9").Select
ActiveCell.FormulaR1C1 = ListBox1
End Sub
Así de de fácil cada vez que escojas un dato que se encuentre en un Listbox1 lo
enviara a la celda a9, escribiéndolo ahí. Si lo deseas hacer lo puedes hacer en un Combobox
Combobox, solo cambia Listbox1 por Combobox1 y se acabo.
Ahora si deseas agregar los datos al Listbox o Combobox sin ningún botón que
presionar escribe el siguiente código:
Private Sub UserForm_Activate()
ComboBox1.AddItem "Juan Jose"
ComboBox1.AddItem "Pedro de la Fuente"
ComboBox1.AddItem "Salvador de la Luz"
ListBox1.AddItem "Juan José"
30

ListBox1.AddItem "Pedro de la Fuente"
ListBox1.AddItem "Salvador de la Luz
End Sub
La Clave esta en el procedimiento UserForm_Activate() esto quiere decir que
cuando se active el formulario cargara lo que tu le indiques, en este caso va a
introducir los datos al Listbox1 y Combobox1 automáticamente, que te parece.
Ahora si deseas tomar información de una celda y enviarla a un Combobox o
Listbox escribe el siguiente código en un Botón:
Range("a9").Select
Do While ActiveCell <> Empty
ListBox1.AddItem ActiveCell
Loop
End Sub
Fíjate bien, primeramente muevo el rango a la celda a9 porque ahí esta el inicio de
mi información, después la línea Do While Activecell<> Empty significa Hazlo
mientras la celda no se encuentre vacía, la siguiente línea que esActiveCell.Offset(1,
0).Select, significa Baja un Renglón, la siguiente línea ListBox1.AddItem ActiveCell,
agrega la información de la celda al Listbox1 y la línea Loop es parte del ciclo Do
While, siempre cierra el ciclo, como el For-Next. Por lo tanto todos los nombres que
estén delante de a9 serán enviados al Listbox1 y cuando tope con la celda a15 que
se encuentra vacía la condición del Do While parara la ejecución de su código. Esto
funciona caminando renglones hacia abajo, pero si deseas moverte hacia la derecha
por columnas solo cambia la línea ActiveCell.Offset( 1, 0).Select por
31

ActiveCell.Offset(0, 1).Select, quiere decir que se mueva por columna, no por
renglón. ActiveCell.Offset(Renglón, Columna).Select
Si cambias el 1 por otro numero se moverá el numero de veces que tu le indiques,
por ejemplo si quiero bajar 10 renglones de un golpe:
Si quiero moverme 20 columnas a la derecha
32

13. Así funciona
Ahora veremos como se ejecuta una macro a la hora de abrir un libro
Primeramente inserta un Modulo del Menú Insertar dentro de Visual Basic y
escribe el siguiente código:
Sub Auto_open()
Load UserForm1
UserForm1.Show
End Sub
La magia esta en el procedimiento Auto_open() que permite ejecutar
automáticamente lo que se encuentre dentro de el cuando abras un libro que
contenga este código, en este ejemplo cuando se abre el libro se activa el formulario
1 que programe.
Así que todo lo que agregues dentro de este procedimiento se ejecutara
automáticamente cuando abras un libro, que te parece.
A continuación veremos como ordenar una información por orden alfabética
ascendente, es un código muy completo y bueno que te permite localizar los datos y
ordenarlos, sin pasarse un renglón en blanco.
Observemos el siguiente ejemplo y aprendamos de el:
Si se fijan en la siguiente pantalla tengo datos en una hoja que empinan en el
renglón A10 y terminan en C16, el siguiente código detectara donde debe detenerse
para poder ordenar los datos. Es necesario crear el código para ordenar datos, pero
aquí yo te lo muestro:
Programa esto en el botón1
Private SubCommandButton1_Click()
Rem este código localiza el ultimo registro por medio del renglón
33

Range("a10").Select
Loop
Rem llega hasta el a17 donde no hay información y se regresa un renglón para
ser exacto con la siguiente línea.
ActiveCell.Offset(-1, 0).Select
Rem este código localiza la última columna del último dato
Loop
ActiveCell.Offset(0, -1).Select
Rem esta línea guarda en la variable celdaactiva la celda exacta donde esta el
ultimo dato de la ultima columna de información, en este caso C16.
celdaactiva = ActiveCell.Address
Rem este código toma el rango desde A10 donde empieza la información, hasta
donde encontró el ultimo dato C16, que lo guarda la variable celdaactiva.
Selecciona de A10 hasta C16.
Range("A10:" + celdaactiva).Select
Rem este código ordena los datos en orden ascendente, el código fue generado
en Excel, así que si no sabes generarlo solo copialo de aquí.
Selection.Sort Key1:=Range("A10"), Order1:=xlAscending, Header:=xlGuess, _
End Sub
Así es como funciona este código de Macros de Excel ordenando exactamente desde
A10 hasta donde están los datos finales.
Bueno ahora para convertir la información a Minúscula o Mayúscula es muy parecido
el código, solo obsérvalo:
Private SubCommandButton1_Click()
Range("a10").Select
ActiveCell.FormulaR1C1 = LCase(ActiveCell)
Loop
34

End Sub
Así es la magia esta en Lcase que convierte a Minúsculas y Ucase a Mayúsculas,
empieza en A10 y hasta que no encuentra datos deja de convertir a Minúsculas.
El siguiente Formulario y código muestra la fuerza de cómo se puede consultar y
modificar el dato que se encontró.
Etiqueta 4, escríbele el numero 9 dentro.
Crea la siguiente Interfaz, 4 Etiquetas, 3 Textbox y 3 Botones
Copia el siguiente código:
Rem si no se escribe nada en los Textboxs a la hora de insertar escribe No
Tiene
If TextBox1 = Empty Then Range("A9").FormulaR1C1 = "No Tiene"
If TextBox2 = Empty Then Range("B9").FormulaR1C1 = "No Tiene"
If TextBox3 = Empty Then Range("C9").FormulaR1C1 = "No Tiene"
Range("A9").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
On Error GoTo noencontro
35

14. Rem Código
Rem Código para buscar, ya lo conocemos
False).Activate
Rem la etiqueta 4 toma el valor del renglón activo y permite modificar la
información que encontró, ya que modifiques la información presionas el botón
actualizar.
Label4 = ActiveCell.Row
noencontro:
End Sub
Rem Vuelve a indicar el renglón 9 para escribir en los Textboxs
Label4 = "9"
Range("a9").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Rem si nos damos cuenta la etiqueta 4 sirve para llevar el renglón donde
introducimos los datos o los modificamos, asi que cada textbox que
programemos debe llevar estas lineas.
Range("A" + Label4).FormulaR1C1 = TextBox1
End Sub
Range("B" + Label4).FormulaR1C1 = TextBox2
36

End Sub
Range("C" + Label4).FormulaR1C1 = TextBox3
End Sub
Bueno amigos, espero les sea de provecho los ejemplos mostrados, por lo tanto nos
vemos en la próxima edición, con mas de Macros en Excel.
37

15. Gráficos en Excel
Hoy nos toca aprender mas sobre este interesante curso de Macros, en el cual
trabajaremos con gráficos en Excel, veremos como se puede generar una grafica
desde un código generado y alterado por nosotros mismos.
Si observamos los datos que vamos a graficar nos damos cuenta que en la columna
A se encuentran los valores ejes (X) y en la columna B los valores series (Y),
estos datos son necesario para efectuar una grafica que podría quedar así
Esta grafica muestra las edades de 5 personas, los nombres son los valores ejes y
la edad los valores series, ahora veremos como se puede detectar estos datos por
medio de una Macro
Al graficar estos datos se genero el siguiente código:
Sub Macro1()
Range("A5:B10").Select Charts.Add ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:=
_xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
End Sub
La primer línea indica el rango donde están los datos, valores ejes y valores
series, La segunda línea indica que se agrega una grafica La tercera línea indica el
38

tipo de grafica que se desea La cuarta línea indica como se acomodan los datos en
la grafica La quinta línea indica donde se muestra la grafica, si en la misma hoja o en
una sola hoja.
Nota. Los números de 1 al 5 no van en el código, solo los puse para poder explicar
las líneas
39

16. Diferentes tipos de gráficas
A continuación se muestran algunos de los diferentes tipos de graficas Línea 3:
ActiveChart.ChartType = xlColumnClustered
ActiveChart.ChartType = xlBarClustered
ActiveChart.ChartType = xlLineMarkers
ActiveChart.ChartType = xlPie
40

ActiveChart.ChartType = xlXYScatter
ActiveChart.ChartType = xlAreaStacked
ActiveChart.ChartType = xlDoughnut
ActiveChart.ChartType = xlRadarMarkers
41

ActiveChart.ChartType = xlCylinderColClustered
ActiveChart.ChartType = xlConeColClustered
ActiveChart.ChartType = xlPyramidColClustered
Si tu agregas al final del código principal alguna línea del tipo de grafico que te
gusto, ese se activara, por ejemplo:
Sub Macro1()
Range("A5:B10").Select
Charts.Add
_xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
ActiveChart.ChartType = xlPyramidColClustered.
End Sub
42

Este código se puede programar en un botón o cualquier otro control de Visual
Basic.
A continuación se muestra como se acomodan los datos Línea 4:
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:= _
xlRows
En esta línea se muestra la grafica por Renglón
xlColumns
En esta línea se muestra la grafica por Columna
43

17. Gráfica por columna
Esta es la forma en que se muestran los datos de lo que habla la línea 4.
La línea 5 habla de que si la grafica queda en la misma hoja o simplemente toma
una hoja para ella, por ejemplo:
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Grafico 1"
Esta línea indica que la grafica tenga su propia hoja y que su nombre sea Grafico 1.
En este ejemplo ejecuto un código con cada una de las características explicadas en
las 5 líneas.
Charts.Add
_xlColumns
ActiveChart.ChartType = xlPyramidColClustered
xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Grafico 1"
3. Tipo de Grafico
4. Comose acomodan los datos
5. Como se muestra la grafica, en este caso en una sola hoja
Elabora el siguiente formulario con el siguiente código, para observar los diferentes
tipos de gráficos y la forma en que se acomodan los datos:
44

Dibuja dos Listbox y un Botón y pega el código dentro del formulario.
Rem este código genera la Grafica en la hoja1
Charts.Add
xlColumns
Rem agrega los diferentes tipos de grafica al Listbox1
ListBox1.AddItem "xlColumnClustered"
ListBox1.AddItem "xlBarClustered"
ListBox1.AddItem "xlLineMarkers"
ListBox1.AddItem "xlPie"
ListBox1.AddItem "xlXYScatter"
ListBox1.AddItem "xlAreaStacked"
ListBox1.AddItem "xlDoughnut"
ListBox1.AddItem "xlRadarMarkers"
ListBox1.AddItem "xlCylinderColClustered"
ListBox1.AddItem "xlConeColClustered"
ListBox1.AddItem "xlPyramidColClustered"
Rem agrega las diferentes formas de acomodar los datos al Listbox2
ListBox2.AddItem "Renglon"
45

ListBox2.AddItem "Columna"
End Sub
Rem este código da el tipo de grafica al dar clic en el Listbox1
If ListBox1 = "xlColumnClustered" Then ActiveChart.ChartType = xlColumnClustered
If ListBox1 = "xlBarClustered" Then ActiveChart.ChartType = xlBarClustered
If ListBox1 = "xlLineMarkers" Then ActiveChart.ChartType = xlLineMarkers
If ListBox1 = "xlPie" Then ActiveChart.ChartType = xlPie
If ListBox1 = "xlXYScatter" Then ActiveChart.ChartType = xlXYScatter
If ListBox1 = "xlAreaStacked" Then ActiveChart.ChartType = xlAreaStacked
If ListBox1 = "xlDoughnut" Then ActiveChart.ChartType = xlDoughnut
If ListBox1 = "xlRadarMarkers" Then ActiveChart.ChartType = xlRadarMarkers
If ListBox1 = "xlCylinderColClustered" Then ActiveChart.ChartType =
xlCylinderColClustered
If ListBox1 = "xlConeColClustered" Then ActiveChart.ChartType =
xlConeColClustered
If ListBox1 = "xlPyramidColClustered" Then ActiveChart.ChartType =
xlPyramidColClustered
End Sub
If ListBox2 = "Renglon" Then
xlRows
End If
If ListBox2 = "Columna" Then
xlColumns
End If
End Sub
46

Antes de ejecutar esta Macro llenas los datos anteriores en la hoja1 de Excel
47

18. Macros en Excel y Visual Basic
Estamos listos para ver mas sobre este interesante curso, en este caso veremos
como se pueden archivar los datos de una hoja en un archivo aparte. Aprenderemos
a trabajar con archivos secuénciales en Visual Basic. Los archivos secuénciales
son aquellos que al registrar sus datos llevan una secuencia, por ejemplo si registro
5 nombres llevaran un orden del 1 al 5, en cambio existen también los archivos
aleatorios, pero ellos no respetan la secuencia, por ejemplo los 5 nombres podrían
quedar en cualquier posición del 100 en adelante, del 300 en adelante, del 10 en
adelante, de donde quieras ponerlos, tu indicas en donde quieres que queden los 5
nombres, pueden quedar hasta separados y no respetar una secuencia.
El problema de los archivos secuénciales, es que si introduces algunos símbolos en
la captura pueden alterar el archivo y no funcionar correctamente, por eso se
recomienda filtrar los datos con algún código o simplemente no capturar símbolos.
En esta hoja podemos observar 5 nombres, la intención será archivarlos aparte y
hacerlos desparecer de la hoja, para después volverlos aparecer en la hoja. A esto
se le llamara Registro de datos y Consulta de datos.
Iremos a Visual Basic con Alt+F11 y Insertaremos un UserForm, en el cual
dibujaremos dos botones, uno con el nombre de Registro y Otro con el Nombre de
Consulta.
Ahora a programar el botón Registro, para poder archivar los nombres.
Rem se translada a la celda a8
Range("a8").Select
Rem si no hay ningún dato en a8 que no archive de nuevo
If ActiveCell = Empty Then GoTo salte
48

Rem abre un archivo en la unidad c con el nombre de datos.txt
Rem en forma de añadir Temporal (Output) en el área de almacenamiento #1
Open "c:datos.txt" For Output As 1
Rem activa una etiqueta para poder regresar
regresa:
Rem escribe el dato de la celda activa en el archivo
Write #1, ActiveCell
Rem borra el dato de la celda
ActiveCell = Empty
Rem baja un renglón para el siguiente nombre
Rem si la celda esta vacía que no regrese ya
Rem regresa a escribir el siguiente nombre en el archivo
GoTo regresa:
salte:
Rem se acabo
Rem cierra el archivo
Close #1
End Sub
Los datos quedaran archivados en la unidad y serán devueltos cuando presiones el
botón consulta. Que a continuación se muestra:
49

19. Programar el botón consulta
Ahora a programar el botón consulta
Range("a8").Select
Rem en forma de Leer (input) en el área de almacenamiento #1
Open "c:datos.txt" For Input As 1
Rem esto significa hazlo mientras no sea fin del archivo
Rem esto quiere decir que no deje de leer los datos
Rem hasta que no se llegue al ultimo de ellos
Do While Not EOF(1)
Rem lee un dato
Input #1, nombre
Rem lo escribe en la celda
ActiveCell.FormulaR1C1 = nombre
Rem activa el ciclo Do While-que regrese hasta
Rem que se cumpla la condición
Loop
Close #1
End Sub
Que te parece archivar los datos aparte sin que nadie pueda observarlos, esta es la
magia de los archivos secuénciales. Este ejemplo viene indexado en un archivo con
el nombre de Macros VI.
El siguiente código archiva el nombre, la dirección y el teléfono en el archivo, crea
un formulario igual con dos botones.
Rem se traslada a la celda a8
50

Range("a8").Select
Rem si no hay ningún dato en a8 que no archive de nuevo
Rem en forma de añadir Temporal(output) en el área de almacenamiento #1
Open "c:datos.txt" For Output As 1
Rem activa una etiqueta para poder regresar
regresa:
Rem captura el nombre en una variable
nombre = ActiveCell
ActiveCell = Empty
Rem se mueve una columna a la derecha
Rem captura la direccion en una variable
direccion = ActiveCell
ActiveCell = Empty
Rem captura el telefono en una variable
telefono = ActiveCell
ActiveCell = Empty
Rem escribe los datos nombre, direccion y telefono en el archivo
Write #1, nombre, direccion, telefono
Rem retrocede dos columnas
Rem si la celda esta vacía que no regrese ya
51

Rem regresa a escribir el siguiente nombre en el archivo
GoTo regresa:
salte:
Rem se acabo
Close #1
End Sub
Range("a8").Select
Rem en forma de Leer (input) en el área de almacenamiento #1
Rem esto significa hazlo mientras no sea fin del archivo
Rem esto quiere decir que no deje de leer los datos
Rem hasta que no se llegue al ultimo de ellos
Do While Not EOF(1)
Rem lee los datos
Input #1, nombre, direccion, telefono
Rem escribe en la celda el nombre
ActiveCell.FormulaR1C1 = nombre
Rem escribe en la celda la direccion
ActiveCell.FormulaR1C1 = direccion
Rem escribe en la celda el telefono
ActiveCell.FormulaR1C1 = telefono
52

Rem retrocede dos columnas
Rem activa el ciclo Do While-que regrese hasta
Rem que se cumpla la condición
Loop
Close #1
End Sub
53

20. Ejemplo
También se puede consultar sin necesidad de leer los datos en la hoja, esto quiere
decir leyendo directo del archivo y trayendo los datos al formulario, en el siguiente
ejemplo, se programa el botón consulta en formulario.
Dibuja el siguiente formulario, los dos primeros botones es el mismo código
anterior, pero el tercer botón incluye el siguiente código:
Do While Not EOF(1)
Input #1, nombre, direccion, telefono
If nombre = TextBox1 Then
TextBox2 = direccion
TextBox3 = telefono
End If
Loop
Close #1
End Sub
Solo corra el formulario y escriba el nombre que desea consultar y presione el tercer
botón.
Usted podrá consultar cualquiera de los nombres que se encuentren dentro del
archivo, sin necesidad de que existan en la hoja, claro esta que primero es necesario
presionar el botón registro para archivarlos, pero después se pueden manipular.
Bueno espero que sea de su agrado esta parte y que practiquen mucho los archivos
secuenciales.
54

Macros excel ok

Más contenido relacionado

La actualidad más candente (17)

Similar a Macros excel ok (20)

Macros excel ok