Descargar como pdf o txt
Descargar como pdf o txt
Está en la página 1de 43

lOMoARcPSD|33446078

Ejercicio con Macros Grabadas- Facturacion

Sistemas computacionales (Instituto Universitario del Centro de México)

Studocu no está patrocinado ni avalado por ningún colegio o universidad.


Descargado por Ivon Sandoval Garcia ([email protected])
lOMoARcPSD|33446078

Ejercicio con Macros Grabadas

En este ejercicio se realizara la programación de una Factura para una empresa, la idea es
hacer una facturación muy simple, pero de forma que el usuario pueda fácilmente adaptarla y
completarla a una empresa real.

1. Abrir un Archivo que por lo menos cuente con cinco hojas de calculo

a. La primera hoja se llamara Facturación (Hoja Principal)

b. La segunda hoja se llamara Clientes (Tendrá la Base de Datos de los Clientes)


c. La tercera hoja se llamara Artículos (Tendrá la Base de Datos de los Artículos)
d. La cuarta hoja se llamara Factura (Tendrá el Impreso de Factura)

e. La quinta hoja se llamara Histórico (Tendrá todas las Facturas)

2. Regresar a la hoja Facturación y escribe lo siguiente en las celdas:

3. Cambiar a la hoja de Clientes y escribir lo siguiente:

4. Cambiar a la hoja Artículos y escribir lo siguiente:

3-1

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

5. Cambiar a la hoja Factura y realizar lo siguiente:

6. Y grabar el Archivo como Ejercicio-Facturacion

7. Cambiar a la hoja Histórico y realiza lo siguiente:

8. Regresa a la hoja Facturación y ahí:

Vamos a hacer, en primer lugar, el modulo de Clientes de “nuestro programa”, la idea es


crear un “Cuadro Combinado”, que se colocara en el rango de celdas “E6:G6” de la hoja
Facturación que nos permita “escoger” el cliente de la base de datos que hay en la hoja
Clientes.

Nota: Necesitamos los “Controles de Formularios” que se encuentran en la pestaña


Programador, opción Insertar.

3-2

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

Ya que la barra esta activa buscar el icono Cuadro Combinado de la misma Barra.

Como se Muestra:

Cuadro Combinado

Marca un recuadro que abarque el rango de celdas E6:G6 de la Hoja Facturación

Con el Cuadro Combinado que se acaba de marcar Seleccionado haz clic en el icono
propiedades

3-3

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

Con la pestaña Control activada de la nueva del cuadro de dialogo, escribir o traer el rango
de entrada de datos que corresponde a la hoja de Clientes.Ya estando en esa hoja
seleccionar la columna A Completa, y posteriormente en el otro segmento Vincular
seleccionar la celda D1 de la misma hoja de Clientes.

Después de Aceptar los Rangos situarse en cualquier celda para desmarcar el objeto,
posteriormente probar el icono Combinado desplegando y activando cualquier elemento que
se encuentre en la lista.

3-4

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

Guarde el archivo

Macros

Bien supongamos que al hacer una Factura no aparece el cliente a Facturar.

Dar de alta a un Cliente

 Situarse en la hoja Clientes


 Pulsar CTRL. INICIO para situarse en A1
 Pulsa CTRL. Flecha hacia Abajo para situarse en el Ultimo Cliente
 Pulsa. Flecha hacia Abajo para situarse en la celda a Rellenar
 Y escribe los datos del siguiente Cliente:

Eusebio Sánchez Pérez


Avda., Parlamento 15-17,2° ,5
76521- Albacete

 por último regresa a la hoja Facturación.

Todo esto sería muy repetitivo si nuestro trabajo seria capturar más de 300 clientes cada día.
Excel dispone de una herramienta que nos permita fácilmente automatizar las tareas
Repetitivas, Esta Herramienta se llama MACRO

Vamos a realizar una Macro para Automatizar “Las Altas de Clientes”:

Con la Hoja de Facturación Activa, Haz lo Siguiente:

1. En la pestaña programador, Da click al botón Grabar Macro, nombra a la macro


como de “ALTACLI” y dar clic en Aceptar

3-5

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

2. Observa el icono de “Detener Grabación” que acaba de aparecer (en la barra inferior
de la ventana de Excel)

Todo lo que hagamos ahora en el Excel se grabara en la Macro Hasta que haga
Clic en el icono Detener Grabación

3. Graba los pasos.......

 Situarse en la hoja Clientes


 Pulsar CTRL. INICIO para situarse en A1
 Clic en el Icono “Usar Referencias Relativas” de la Barra Grabar Macro

3-6

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 Pulsa CTRL. Flecha hacia Abajo para situarse en el Ultimo Cliente


 Pulsa. Flecha hacia Abajo para situarse en la celda a Rellenar
 Clic otra vez en el Icono “Usar Referencias Relativas”
 Y Clic en el Icono “Detener Grabación”
 Por último regresa a la hoja Facturación.

4. Vamos a crear un Botón que asociaremos a la Macro “ALTACLI”

 Utilizando los controles de formulario dibuja un control botón en el rango de G8:H9

 Después de la ventana que aparece (Asignar Macro) activar ALTACLI y presionar


Aceptar.

3-7

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 Cambia el nombre al Botón por “Alta de Cliente” (dando Doble Clic sobre el
mismo)

5. Prueba el botón:

 Sitúate en la hoja Facturación


 Clic en Botón Alta de Cliente Que se acaba de Crear

 Escribe los siguientes datos:

3-8

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

Solano S.A.
Calle: la Olla 52, 1°
15111- Tijuana

Esta muy bien lo que se acaba de hacer, pero hay dos problemas:

1. Cuando acabamos de introducir un nuevo Cliente convendría Ordenar la Base de


Datos según el campo Nombre, ya que si tenemos 10000 Clientes desordenados,
en el cuadro combinado de la hoja Facturación nos podemos volver locos para
localizar un cliente determinado.
2. Cuando acabamos de introducir un nuevo Cliente, quedamos situados en la hoja
Clientes, convendría volver a la hoja Facturación

Vamos a realizar una nueva Macro que contenga los dos problemas anteriores.

Con la hoja Clientes activada has lo siguiente:

1. En la pestaña programador, Da click al botón Grabar Macro, nombra a la macro como


de “VOLVER” y dar clic en Aceptar

2. Dar un clic en cualquier celda (B3)


3. Selecciona los encabezados de las columna A,B, y C; como se muestra:

3-9

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

4. Activa la pestaña Datos, y da clic al botón Ordenar, configura para ordenar por el campo
nombre en orden ascendente, como se muestra:

5. Después da clic en la hoja Facturación y ubicarse en la celda G1

6. Y Clic en el Icono “Detener Grabación”

NOTA: si al probar la macro te das cuenta que no ordena, Posiblemente hay que cambiar
el código de la misma ya que lo mas probable sea que al grabar la macro se queden fijos
los rangos, para esto:

 Entra al Editor De Visual Basic, dando clic al botón Visual Basic, de la pestaña
Programador

3 - 10

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 Localiza el procedimiento VOLVER que se encuentra en alguno de los módulos


y cambia el código de la instrucción SetRange a:
setRange Range(“A:C”)

 Guarda y cierra el editor de Visual Basic.

7. Crea un Botón y asócialo a la Macro “VOLVER”

 Sitúate Clientes
 Utilizando los controles de formulario dibuja un control botón en el rango de E3:F4

3 - 11

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 Asigna al botón, la macro volver y da clic en Aceptar:

 Cambia el nombre al Botón por “VOLVER” (Dando Doble Clic sobre el mismo)

 Sitúate en la hoja Facturación.

8. Guarda el archivo.

9. Prueba, estando en la hoja Facturación has una Factura al Sr. Bacas González. El
proceso a seguir es el siguiente:

 Clic en la flecha de selección del Cuadro Combinado


 Buscamos al Sr. Bacas y observamos que no esta dado de Alta

3 - 12

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 Clic en cualquier cliente para cerrar el Cuadro Combinado


 Clic en el Botón Alta de Cliente que se creo con Anterioridad
 Escribe los datos del Sr. Bacas en la hoja de Clientes que se abrió

o Bacas González
o Calle la Constitución 15-17
o 01527- Arenas del Mar

 Dar clic en el Botón que se acaba de crear VOLVER


 Clic en la flecha de selección del Cuadro Combinado
 Clic en Bacas González (Observa que el Listado de Clientes Aparece en Orden
Alfabético A-Z)

Ya que hemos seleccionado al Sr. Bacas para hacerle la Factura, continuemos


“Rellenándola”

Con la hoja Facturación a la vista

 Escribe:
o en la celda F3: 527
o en la celda F4: 17/12/11

 sitúate en la hoja Factura para una serie de Formulas.

 Sitúate en la celda D2 (de la Hoja: Factura), vamos a introducir la formula


correspondiente.

o Escribe: =
o Clic en la hoja Facturación

o Clic en la celda F3
o Pulsa “Enter”

 Sitúate en la celda D3 (de la Hoja: Factura) y escribe:

=FACTURACION!F4

 Cambia el Formato de la fecha de la Celda D3 a fecha corta


 Introducir el resto de las formulas. Escribe:

3 - 13

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

o En la Celda C5: =INDICE(CLIENTES!A:A,CLIENTES!D1)

o En la Celda C6: =INDICE(CLIENTES!B:B,CLIENTES!D1)

o En la Celda C7: =INDICE(CLIENTES!C:C,CLIENTES!D1)

Antes de continuar el programa veamos si funciona lo que hemos hecho hasta ahora:

 Selecciona un Cliente en el cuadro combinado de la hoja facturación, y verifica que


sus datos se muestren en la hoja factura:

Crear el modulo Artículos

3 - 14

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

1. Sitúate en la hoja: Facturación.


2. Dibuja un cuadro combinado C9:E:9 de la Hoja Facturación y configura las
propiedades rango de entrada a Articulos!$A:$A y Vincular con la Celda a Articulos!
$C1$1 como se muestra:

3. Clic en Aceptar
4. Da clic en cualquier celda para desmarcar el objeto, posteriormente probar el cuadro
Combinado desplegando y activando cualquier elemento que se encuentre en la lista.

5. Crea otros dos cuadros Combinados.

 Dibuja otro cuadro combinado en el rango de Celdas C10:E10 y configura las


propiedades Rango de Entrada: Articulos!$A:$A y Rango de Entrada: Articulos!
$D:$1 como se muestra:

3 - 15

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

o Dibuja otro cuadro combinado en el rango de Celdas C11:E11 y configura las


propiedades Rango de Entrada: Articulos!$A:$A y Rango de Entrada:
Articulos!$E$1, como se muestra:

 Verifica si los cuadros Combinados Funcionan.

3 - 16

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

Crear una Macro que sirva ahora para dar de “Alta un Articulo”.

1. Sitúate en la hoja Facturación:


2. En la pestaña programador, Da clic al botón Grabar Macro, nombra a la macro como
de “ALTAPRO” y dar clic en Aceptar

6. Graba los pasos.......

 Situarse en la hoja Artículos


 Pulsar CTRL. INICIO para situarse en A1
 Clic en el Icono “Usar Referencias Relativas” de la Barra Grabar Macro

3 - 17

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 Pulsa CTRL. Flecha hacia Abajo para situarse en el Ultimo producto


 Pulsa. Flecha hacia Abajo para situarse en la celda a Rellenar
 Clic otra vez en el Icono “Usar Referencias Relativas”
 Y Clic en el Icono “Detener Grabación”
 Por último regresa a la hoja Facturación.
7. crea un Botón para asociarlo a la Macro “ALTAPRO”
 Dibuja un nuevo botón debajo del de Alta clientes y asígnale la macro
ALTAPRO, como se muestra:

 Cambia el nombre al Botón por “Alta Productos” (Dando Doble Clic sobre
el mismo).

8. Crea una macro para ordenar Artículos y regresar a la hoja Facturación.

3 - 18

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 Clic en el botón Alta Productos


 Agrega un nuevo articulo
o Computador P-11 1500
o 8,700

 Con la hoja Artículos activada haz lo siguiente:


 En la pestaña programador, Da clic al botón Grabar Macro, nombra a la
macro como de “VOLVER2” y dar clic en Aceptar

 Selecciona los encabezados de las columna A,B, como se muestra:

 Activa la pestaña Datos, y da clic al botón Ordenar, configura para ordenar por el campo
ARTICULO en orden ascendente, como se muestra:

3 - 19

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

10. Da clic en cualquier celda para quitar la seleccion


11. Después da clic en la hoja Facturación y ubicarse en la celda G1

12. Y Clic en el Icono “Detener Grabación”

NOTA: si al probar la macro te das cuenta que no ordena, Posiblemente hay que cambiar
el código de la misma ya que lo mas probable sea que al grabar la macro se queden fijos
los rangos, para esto:

 Entra al Editor De Visual Basic, dando clic al botón Visual Basic, de la pestaña
Programador

3 - 20

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 Localiza el procedimiento VOLVER que se encuatra en alguno de los módulos y


cambia el código de la instrucción SetRange a:
setRange Range(“A:B”)

 Guarda y cierra el editor de Visual Basic.

13. Crea un Botón y asócialo a la Macro “VOLVER”

 Sitúate articulos
 Utilizando los controles de formulario dibuja un control botón en el rango de D3:E4

3 - 21

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 Asigna al botón, la macro volver y da clic en Aceptar:

 Cambia el nombre al Botón por “VOLVER” (Dando Doble Clic sobre el mismo)

 Sitúate en la hoja Facturación.


14. Para finalizar el Modulo de Artículos:

 Con la hoja de Facturación a la vista, y escribe:


 En la Celda B9: escribe 2
 En la Celda B10: escribe 1
 En la Celda B11: escribe 3

3 - 22

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 Selecciona el Rango B9:B11 y clic en el icono Centrar

 Situarse en la hoja Factura e introduce las siguientes Formulas:

Celda A10: =FACTURACION!B9


Celda A11: =FACTURACION!B10
Celda A12: =FACTURACION!B11
Celda B10: =INDICE(ARTICULOS!A:A,ARTICULOS!C1)
Celda B11: =INDICE(ARTICULOS!A:A,ARTICULOS!D1)
Celda B12: =INDICE(ARTICULOS!A:A,ARTICULOS!E1)
Celda C10: =INDICE(ARTICULOS!B:B,ARTICULOS!C1)
Celda C11: =INDICE(ARTICULOS!B:B,ARTICULOS!D1)
Celda C12: =INDICE(ARTICULOS!B:B,ARTICULOS!E1)
Celda D10: =A10*C10
Celda D11: =A11*C11
Celda D12: =A12*C12
Celda D13: =SUMA(D10:D12)
Celda D14: =0.15*D13
Celda D15: =D13+D14

15. Tu factura debe verse así

16. Regresa a la hoja Facturación


Crear la macro para Borrar los datos de la factura

Al momento de querer hacer otra Factura lo laborioso y tedioso es Borrar los datos que se
tenían escritos ya en los campos de la Factura.

Vamos a crear una macro Nueva, que no sirva para borrar los datos de la factura:

1) Ubícate en la hoja Facturación.


2) Dentro de la pestaña Programador, en la sección Código, haz clic en la opción
Grabar macro.

3 - 23

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

3) Se abrirá la ventana Grabar macro, define el nombre de la macro como “Nueva” y


para comenzar la grabación haz clic en Aceptar.

4) Graba los siguientes pasos:

a) Clic en la hoja Clientes


b) Clic en la Celda D1
c) Presionar la Tecla Suprimir
d) Clic en la hoja Artículos
e) Seleccionar el rango de Celdas C1:E1
f) Presionar la Tecla Suprimir
g) Clic en la Celda D7
h) Clic en la hoja Facturación
i) Seleccionar el rango de Celdas F3:F4
j) Presionar la Tecla Suprimir
k) Seleccionar el rango de Celdas B9:B11
l) Presionar la Tecla Suprimir
m) Clic en la Celda F3

5) Una vez completados los pasos termina la grabación de la macro, haz clic en el botón
“Detener Grabación” ubicado en la barra de estado.

3 - 24

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

6) Ahora vamos a crear un botón que asociaremos a la macro “Nueva”, ubícate en la


hoja Facturacion, dentro de la pestaña Programador, haz clic en la opción Insertar,
ubicada en la sección Controles y selecciona el control Botón.

7) Con la herramienta activa para dibujar un recuadro (botón) debajo del botón “Alta
Productos”.

8) Una vez creado el botón se abrirá la ventana Asignar Macro, selecciona de la lista
Nueva y haz clic en Aceptar.

3 - 25

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

9) Cambia el texto del Botón por “Nueva Factura”

Ahora vamos a realizar la prueba de todo lo realizado, para esto vamos a ingresar los
siguientes datos:

Núm. de Factura: 731


Fecha: actual
Cliente: Industrias Unidas S. A.

Unidades Artículo
2 Computador
3 Ratón

3 - 26

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

1. Una vez ingresados los datos de la Factura, ir a la hoja Factura y visualizar los datos
que recién ingresamos.

3 - 27

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

Ahora ya tenemos la Factura lista hay que imprimirla, esto se realizara de una mejor manera
con una Macro

Vamos a crear una macro Nueva, que no sirva para borrar los datos de la factura:

1) Ubícate en la hoja Facturación.


2) Dentro de la pestaña Programador, en la sección Código, haz clic en la opción
Grabar macro.

3) Se abrirá la ventana Grabar macro, define el nombre de la macro como “Imprimir” y


para comenzar la grabación haz clic en Aceptar.

3 - 28

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

4) Graba los siguientes pasos:

a) Ubícate en la hoja Factura.

b) Haz clic en el Botón de Office , selecciona la opción Imprimir.


c) Ubícate en la celda G1 de la hoja Facturación.

3 - 29

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

d) Detén la grabación haciendo clic en el botón “Detener Grabación” ubicado en


la barra de estado.

3 - 30

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

5) Ahora vamos a crear un botón donde asociaremos a la macro “Imprimir”, ubícate en


la hoja Facturacion, dentro de la pestaña Programador, haz clic en la opción Insertar,
ubicada en la sección Controles y selecciona el control Botón.

6) Con la herramienta activa para dibujar un recuadro (botón) debajo del botón “Nueva
Factura”.

7) Una vez creado el botón se abrirá la ventana Asignar Macro, selecciona de la lista
Imprimir y haz clic en Aceptar.

3 - 31

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

8) Cambia el texto del Botón por “Imprimir Factura”

Por ultimo faltaría realizar un módulo que nos permita guarda los datos de las facturas
ingresadas por lo que los datos de estas se tendrían que almacenar en algún lado.

Ahora para preparar nuestra hoja para grabar la macro debemos primero debemos corregir la
forma en la que navegamos por los registros dentro de la hoja Historico, sigue los siguientes
pasos:

 Ubícate en la hoja Histórico


 Pulsar la tecla CTRL + INICIO, para situarnos en la celda A1

3 - 32

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 Ahora pulsa la tecla CTRL + Flecha hacia Abajo para situarse la ultima celda de la
hoja, verás que nos envía hasta el renglón 1,048,575

Este detalle nos representa un problema para grabar la macro, para corregirlo debemos:

 Presionar nuevamente la tecla CTRL + INICIO, para ubicarnos en la celda A1


 Insertar un renglón nuevo y agregar el siguiente titulo: “BASE DE DATOS DE
FACTURAS EMITIDAS”

Ahora esto pasos veremos que el problema se ha solucionado, realiza la misma prueba:

 Pulsar la tecla CTRL + INICIO, para situarnos en la celda A1


 Ahora pulsa la tecla CTRL + Flecha hacia Abajo, verás que el ultimo registro es la
celda A2.

Listo con esto ya no habrá problemas al realizar la Macro.

IMPORTANTE: Va a ser una macro bastante larga, te recomiendo seguir las instrucciones
con calma y mucha cautela.

1) Ubícate en la hoja Historico


2) Dentro de la pestaña Programador, en la sección Código, haz clic en la opción
Grabar macro.

3) Se abrirá la ventana Grabar macro, define el nombre de la macro como “AHISTORI” y


para comenzar la grabación haz clic en Aceptar.

3 - 33

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

4) Graba los siguientes pasos:

 Situarse en la hoja Factura


 Clic en la Celda D2
 Clic en el botón Copiar

 Ubícate en la hoja Histórico


 Pulsa la tecla CTRL + INICIO para ubicarte en la celda A1
 Pulsa la techa CTRL + Flecha hacia Abajo para ubicarte en el último registro.
 Clic en el botón “Referencia Relativa” ubicado dentro de la pestaña
Programador, en la sección Código.

3 - 34

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 Pulsa al tecla Flecha hacia Abajo para ubicarte en la celda a rellenar.


 En la pestaña Inicio, abre el submenú del botón Pegar y selecciona Pegado
Especial.

 Se abrirá la ventana Pegado especial, selecciona la opción Valores y haz clic


en Aceptar.

3 - 35

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 Regresa a la pestaña de Programador y haz clic otra vez en el botón


“Referencia Relativa”

 Ubícate en la hoja Factura


 Clic en la celda D3
 Clic en el icono Copiar
 Ubícate en la hoja Histórico
 En la pestaña programador activa el botón “Referencia Relativa”
 Pulsa la tecla Flecha Hacia la Derecha
 En la pestaña Inicio, abre el submenú del botón Pegar y selecciona Pegado
Especial y selecciona la opción Valores.
 Regresa a la pestaña programador y desactiva el botón “Referencia Relativa”

 Ubícate en la hoja Factura


 Clic en la celda C5
 Clic en el icono Copiar
 Ubícate en la hoja Histórico
 En la pestaña programador activa el botón “Referencia Relativa”
 Pulsa la tecla Flecha Hacia la Derecha
 En la pestaña Inicio, abre el submenú del botón Pegar y selecciona Pegado
Especial y selecciona la opción Valores.
 Regresa a la pestaña programador y desactiva el botón “Referencia Relativa”

 Ubícate en la hoja Factura


 Clic en la celda A10
 Clic en el botón Copiar
 Ubícate en la hoja Histórico
 En la pestaña programador activa el botón “Referencia Relativa”
 Pulsa la tecla Flecha Hacia la Derecha
 En la pestaña Inicio, abre el submenú del botón Pegar y selecciona Pegado
Especial y selecciona la opción Valores.
 Regresa a la pestaña programador y desactiva el botón “Referencia Relativa”

 Ubícate en la hoja Factura


 Clic en la celda B10
 Clic en el botón Copiar
 Ubícate en la hoja Histórico
 En la pestaña programador activa el botón “Referencia Relativa”
 Pulsa la tecla Flecha Hacia la Derecha
 En la pestaña Inicio, abre el submenú del botón Pegar y selecciona Pegado
Especial y selecciona la opción Valores.

3 - 36

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 Regresa a la pestaña programador y desactiva el botón “Referencia Relativa”

 Ubícate en la hoja Factura


 Clic en la celda A11
 Clic en el botón Copiar
 Ubícate en la hoja Histórico
 En la pestaña programador activa el botón “Referencia Relativa”
 Pulsa la tecla Flecha Hacia la Derecha
 En la pestaña Inicio, abre el submenú del botón Pegar y selecciona Pegado
Especial y selecciona la opción Valores.
 Regresa a la pestaña programador y desactiva el botón “Referencia Relativa”

 Ubícate en la hoja Factura


 Clic en la celda B11
 Clic en el botón Copiar
 Ubícate en la hoja Histórico
 En la pestaña programador activa el botón “Referencia Relativa”
 Pulsa la tecla Flecha Hacia la Derecha
 En la pestaña Inicio, abre el submenú del botón Pegar y selecciona Pegado
Especial y selecciona la opción Valores.
 Regresa a la pestaña programador y desactiva el botón “Referencia Relativa”

 Ubícate en la hoja Factura


 Clic en la celda A12
 Clic en el botón Copiar
 Ubícate en la hoja Histórico
 En la pestaña programador activa el botón “Referencia Relativa”
 Pulsa la tecla Flecha Hacia la Derecha
 En la pestaña Inicio, abre el submenú del botón Pegar y selecciona Pegado
Especial y selecciona la opción Valores.
 Regresa a la pestaña programador y desactiva el botón “Referencia Relativa”

 Ubícate en la hoja Factura


 Clic en la celda B12
 Clic en el botón Copiar
 Ubícate en la hoja Histórico
 En la pestaña programador activa el botón “Referencia Relativa”
 Pulsa la tecla Flecha Hacia la Derecha
 En la pestaña Inicio, abre el submenú del botón Pegar y selecciona Pegado
Especial y selecciona la opción Valores.
 Regresa a la pestaña programador y desactiva el botón “Referencia Relativa”

 Ubícate en la hoja Factura


 Clic en la celda D15
 Clic en el botón Copiar
 Ubícate en la hoja Histórico

3 - 37

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 En la pestaña programador activa el botón “Referencia Relativa”


 Pulsa la tecla Flecha Hacia la Derecha
 En la pestaña Inicio, abre el submenú del botón Pegar y selecciona Pegado
Especial y selecciona la opción Valores.
 Regresa a la pestaña programador y desactiva el botón “Referencia Relativa”

 Ubícate en la hoja Factura


 Pulsa Tecla Esc
 Ubícate en la hoja Facturación
 Haz clic en el botón “Detener Grabación” ubicado en la parte inferior izquierda
de la barra de estado.

 Ingresa a la pestaña Programación y haz clic en el botón Macros.

 De la ventana Macro selecciona AHISTORI y haz clic en el botón Modificar.

3 - 38

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

 Se abrirá el editor de código VBA, verás la secuencia de cada paso grabado


en la macro, se debe modificar la línea de código que indica la celda de la
hoja Historico, donde se ingresa el valor, este código viene indicado de la
siguiente forma:

 Elimina esa línea para cada celda de la hoja Historico y sustitúyela por la
siguiente línea de código :

 Realiza este cambio por cada celda de la hoja Historico


Línea original Nuevo código
Range("B3").Select Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 0).Range("B1").Select
Range("C3").Select Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 0).Range("C1").Select
Range("D3").Select Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 0).Range("D1").Select
Range("E3").Select Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 0).Range("E1").Select
Range("F3").Select Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 0).Range("F1").Select
Range("G3").Select Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 0).Range("G1").Select
Range("H3").Select Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 0).Range("H1").Select
Range("I3").Select Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 0).Range("I1").Select

3 - 39

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

IMPORTANTE: Nota que para la celda “A1” la instrucción Active.Offset, tiene una coordenada
de 1,0
 Regresa a la hoja Historico y formatea la fecha de la columna B al tipo (dd-
mm-aa, por ejemplo: 14-mar-98)
6) Ahora vamos a crear un botón que asociaremos a la Macro “AHISTORI”, ubícate en la
hoja Facturacion, dentro de la pestaña Programador, haz clic en la opción Insertar,
ubicada en la sección Controles y selecciona el control Botón.

9) Con la herramienta activa para dibujar un recuadro (botón) debajo del botón “Imprimir
Factura”.

10)Una vez creado el botón se abrirá la ventana Asignar Macro, selecciona de la lista
AHISTORI y haz clic en Aceptar.

3 - 40

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

11) Cambia el texto del Botón por “Grabar”

Por Ultimo realiza una prueba general dando de alta Clientes, Artículos, y Facturas nuevas
tratando de ocupar todos tus elementos. ¡ SUERTE !

3 - 41

Descargado por Ivon Sandoval Garcia ([email protected])


lOMoARcPSD|33446078

3 - 42

Descargado por Ivon Sandoval Garcia ([email protected])

También podría gustarte