CÓDIGOS VBA

QUE ES LA PROGRAMACIÓN CON VISUAL BASIC PARA APLICACIONES (VBA)

VBA son las siglas de Visual Basic for Applications. VBA no debe confundirse con VB, que es el estándar para Visual Basic. Visual Basic for Applications es un elemento de programación diseñado por Microsoft para utilizarse con su paquete de software de Microsoft Office. Específicamente, fue diseñado para usarse principalmente con Excel. VBA es una herramienta que puede usarse para crear programas para ejecutarlos en Excel.

INGRESO AL EDITOR DE VISUAL BASIC

hay muchas formas de ingresar al editor de visual basic  una opción es por medio de la ficha programador de tu barra de menú y la forma mas rápida para el acceso e ingreso es la siguiente

vamos a pulsar la combinación de teclas ALT/F11 utilizando ambas teclas ingresaremos a nuestro editor y listo para empezar a programar

PANTALLA DEL EDITOR DE VISUAL

CÓDIGO PARA ENVIAR INFORMACIÓN DESDE UN FORMULARIO A LA HOJA DE EXCEL

dos click en el botón que va a enviar la iinformación a la hoja 
de excel


Worksheets("nombre de la hoja").Activate
    Range("la celda donde inicia mi base de datos").Select
   
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(1, 0).Activate
    Loop

    ActiveCell.Offset(0, 0) = nombre del cuadro de texto.Text
    ActiveCell.Offset(0, 1) = nombre del cuadro de texto.Text
    ActiveCell.Offset(0, 2) = nombre del cuadro de texto.Text
    ActiveCell.Offset(0, 3) = nombre del cuadro de texto.Text

se debe seguir  el consecutivo


CÓDIGO PARA BUSCAR INFORMACIÓN DESDE UN FORMULARIO

DOS CLICK EN EL BOTÓN BUSCAR

Dim contador As Integer
Worksheets("nombre de la hoja donde se va a buscar").Activate
Range("Inicio de base de datos").Select
contador = 0
While contador = 0
If producto.text = Selection.Value Then
ActiveCell.Offset(0, 1).Select
nombre del cuadro de texto = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
nombre del cuadro de texto = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
nombre del cuadro de texto = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
nombre del cuadro de texto = ActiveCell.Value
On Error GoTo Alarma
Alarma:
If Err.Number = 53 Then 
MsgBox "el numero no existe"
End If
contador = 1
ActiveCell.Offset(0, -4).Select
Else
ActiveCell.Offset(1, 0).Select

If IsEmpty(Selection) = True Then
nombre.Text = ""
MsgBox ("el numero no existe")
contador = 1
Else
End If
End If
Wend

CODIGO PARA ACTUALIZAR INFORMACION

DOS CLICK EN EL BOTÓN ACTUALIZAR

ActiveCell.Offset(0, 0).Select
ActiveCell =cuadro de texto.Text
ActiveCell.Offset(0, 1).Select
activecell = cuadro de texto.text
ActiveCell.Offset(0, 1).Select
ActiveCell = cuadro de texto.text
ActiveCell.Offset(0, 1).Select 

y asi sucesivamente con todos los cuadros de texto