End Sub

Private Sub TextBox5_Change()

Range("E9").Select
ActiveCell.FormulaR1C1 = TextBox5
End Sub
Cuando se introduzca el Bonos automáticamente se generara el Sueldo Neto.
Este ejemplo viene en el Archivo Macros de Sueldo Neto
USANDO 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:
Private Sub TextBox1_Change()
Range("a9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub

Private Sub CommandButton1_Click()

Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
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.

34
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"

35
 .Button = msoButtonSetYesNo

.Heading = "Advertencia"
t = .Show

End With

Ift = -3 Then
Assistant.Animation = msoAnimationEmptyTrash
Selection.EntireRow.Delete
End If

Si deseas que siga saliendo esta guía solo escríbeme pidiendo que sigan saliendo
ejemplos.

MACROS EN EXCEL Parte III

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

36
 1. Presione La Teclas Alt + F11, para entrar al editor de Visual Basic.
2. Activa las siguientes opciones:
o De clic en el Menú Ver y elija la opción Explorador de Proyectos
o De clic en el Menú ver y elija la opción Ventana Propiedades
2. 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.

Ahora crearas un formulario con el siguiente aspecto:

el formulario tendrá:

o Tres etiquetas
o Tres Textbox
o 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:

Programación de los Controles:

37
BOTON DE CONSULTA

Private Sub CommandButton1_Click()

Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
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.

ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell

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
Private Sub CommandButton2_Click()
Selection.EntireRow.Delete
Range("A9").Select
TextBox1 = Empty

38
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub

BOTON INSERTAR

Private Sub CommandButton3_Click()

Range("A9").Select
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub

CUADROS DE TEXTO

Private Sub TextBox1_Change()

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

End Sub

Private Sub TextBox2_Change()

Range("B9").FormulaR1C1 = TextBox2
End Sub

39
Private Sub TextBox3_Change()
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

BOTON DE CONSULTA

Private Sub CommandButton1_Click()

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.

Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell

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.

ActiveCell.Offset(0, 1).Select

40
Direccion = Activecell

ActiveCell.Offset(0, 1).Select
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
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

41
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

42
 • 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.

MACROS EN EXCEL Parte IV

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.

43
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.
Private Sub CommandButton1_Click()
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:

44
Private Sub CommandButton1_Click()

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”
Listbox1.AddItem “2”
Listbox1.AddItem “3”

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, solo cambia Listbox1 por Combobox1 y se acabo.

45
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é"

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.

46
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:

Private Sub CommandButton1_Click()

Range("a9").Select

Do While ActiveCell <> Empty

ActiveCell.Offset(1, 0).Select
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 es ActiveCell.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

47
renglones hacia abajo, pero si deseas moverte hacia la derecha por columnas solo
cambia la línea ActiveCell.Offset( 1, 0).SelectporActiveCell.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:

ActiveCell.Offset(10, 0).Select

Si quiero moverme 20 columnas a la derecha

ActiveCell.Offset(0, 20).Select

Así funciona esto.

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:

48
Programa esto en el botón1
Private Sub CommandButton1_Click()
Rem este código localiza el ultimo registro por medio del renglón
Range("a10").Select

Do While ActiveCell <> Empty

ActiveCell.Offset(1, 0).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

Do While ActiveCell <> Empty

ActiveCell.Offset(0, 1).Select

49
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, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

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 Sub CommandButton1_Click()
Range("a10").Select
Do While ActiveCell <> Empty
ActiveCell.FormulaR1C1 = LCase(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
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.

50
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:
Private Sub CommandButton1_Click()
Rem si no se escribe nada en los Textboxs a la hora de insertar escribe No Tiene

If TextBox1 = EmptyThenRange("A9").FormulaR1C1 = "No Tiene"

If TextBox2 = EmptyThenRange("B9").FormulaR1C1 = "No Tiene"
If TextBox3 = EmptyThenRange("C9").FormulaR1C1 = "No Tiene"
Range("A9").Select
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
On Error GoTo noencontro
Rem Código para buscar, ya lo conocemos
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

51
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
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
Private Sub CommandButton3_Click()
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
Private Sub TextBox1_Change()
Rem si nos damos cuenta la etiqueta 4 sirve para llevar el renglón donde
introducimos los datoso los modificamos, asi que cada textbox que programemos
debe llevar estas lineas.
Range("A" + Label4).FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("B" + Label4).FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
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.

52
Bienvenidos amigos a la quinta parte de Macros en Excel y Visual Basic, 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) yen la columna B los valores series (Y), estos
datos son necesario para efectuar una grafica que podría quedar así

53
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:

SubMacro1()
1. Range("A5:B10").Select
2. Charts.Add
3. ActiveChart.ChartType = xlColumnClustered
4. ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"),
PlotBy:= _xlColumns
5. ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"

End Sub

1. La primer línea indica el rango donde están los datos, valores ejes y valores
series,
2. La segunda línea indica que se agrega una grafica
3. La tercera línea indica el tipo de grafica que se desea
4. La cuarta línea indica como se acomodan los datos en la grafica
5. 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

A continuación se muestran algunos de los diferentes tipos de graficas Línea 3:

54
ActiveChart.ChartType = xlColumnClustered

ActiveChart.ChartType = xlBarClustered

ActiveChart.ChartType = xlLineMarkers

55
ActiveChart.ChartType = xlPie

ActiveChart.ChartType = xlXYScatter

ActiveChart.ChartType = xlAreaStacked

56
ActiveChart.ChartType = xlDoughnut

ActiveChart.ChartType = xlRadarMarkers

ActiveChart.ChartType = xlCylinderColClustered

57
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:

SubMacro1()
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"

ActiveChart.ChartType = xlPyramidColClustered.

End Sub

58
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

ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:= _

xlColumns
En esta línea se muestra la grafica por Columna

Esta es la forma en que se muestran los datos de lo que habla la línea 4.

59
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.

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"

ActiveChart.ChartType = xlPyramidColClustered
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:=
xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Grafico 1"

• Tipo de Grafico

60
 • Como se acomodan los datos
• 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:

Dibuja dos Listbox y un Botón y pega el código dentro del formulario.

Private Sub CommandButton1_Click()

Rem este código genera la Grafica en la hoja1

Range("A5:B10").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:= _

61
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"

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"
ListBox2.AddItem "Columna"

End Sub

Private Sub ListBox1_Click()

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

62
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

Private Sub ListBox2_Click()

If ListBox2 = "Renglon" Then

ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:= _
xlRows
End If

If ListBox2 = "Columna" Then

ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:= _

xlColumns
End If

End Sub

63
Antes de ejecutar esta Macro llenas los datos anteriores en la hoja1 de Excel
En este archivo indexo un ejemplo de un libro de cómo se puede generar una Macro
que realice 25 graficas, esto por medio un modulo, este ejemplo es apoyado por su
servidor hacia una persona que deseaba realizar este trabajo. Espero le sea de utilidad
el código.

MACROS EN EXCEL Parte VI

Bienvenidos amigos a la sexta parte de 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.

64
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.
Private Sub CommandButton1_Click()
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
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

65
Rem borra el dato de la celda
ActiveCell = Empty
Rem baja un renglón para el siguiente nombre
ActiveCell.Offset(1, 0).Select
Rem si la celda esta vacía que no regrese ya
If ActiveCell = Empty Then GoTo salte
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:
Ahora a programar el botón consulta
Private Sub CommandButton2_Click()
Rem se translada a la celda a8
Range("a8").Select
Rem abre un archivo en la unidad c con el nombre de datos.txt
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 baja un renglón para el siguiente nombre
ActiveCell.Offset(1, 0).Select
Rem activa el ciclo Do While-que regrese hasta

66