Scribd
Cargar
7 vistas4 páginas

Qué es Option Explicit en VBA

El código es un script en VBA que permite agregar datos a una hoja de Excel, solicitando confirmación al usuario antes de proceder. Se asegura de que los datos se ingresen en la siguiente fila vacía y actualiza un ID automáticamente. También incluye un mensaje de éxito o cancelación al finalizar la operación.

Cargado por

Marie Dine
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
7 vistas4 páginas

Qué es Option Explicit en VBA

El código es un script en VBA que permite agregar datos a una hoja de Excel, solicitando confirmación al usuario antes de proceder. Se asegura de que los datos se ingresen en la siguiente fila vacía y actualiza un ID automáticamente. También incluye un mensaje de éxito o cancelación al finalizar la operación.

Cargado por

Marie Dine
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd

Option Explicit

Private Sub AGREGAR_()

Dim FILA, FINAL As Long

Dim MENSAJE As String

FILA = 2

Do While [Link](FILA, 1) <> Empty

FILA = FILA + 1

Loop

FINAL = FILA - 1

'SEGUNDA TAREA ES: ANTES DE INGRESAR LOS DATOS QUE APAREZCA UN MENSAJE DE
CONFIRMACION PARA PODER INGRESAR LOS DATOS MENSAJE - MsgBox("¿ESTAS SEGURO DE
INGRESAR LOS DATOS?", vbQuestion+ vbYesNo, "INGRESO DE DATOS")

If MENSAJE - vbYes Then

FILA = [Link]("A" & [Link]).End(xlUp).Row + 1

FINAL = FILA - 1

[Link](FILA, 1) = ID

[Link](FILA, 2) = CODIGO

[Link](FILA, 3) = PRODUCTO

[Link](FILA, 4) = FECHA

[Link](FILA, 5) = STOCK

[Link](FILA, 6) = ENTRADA

[Link](FILA, 7) = SALIDA
[Link](FILA, 8) = NETO

[Link](FILA, 9) = IVA

[Link](FILA, 10) = TOTAL

ID [Link](FILA, 1) + 1

CDG = Empty

PRODUCTO = ""

FECHA = Empty

STOCK = Empty

ENTRADA = Empty

SALIDA = Empty

NETO = Empty

IVA = Empty

TOTAL = Empty

If [Link](2, 1) = Empty Then

ID = 0 + 1

Else

ID = [Link](FINAL, 1) + 1

End If

FECHA = Format(Now(), "DD/MM/YYYY")

MsgBox 'DATOS INGRESADOS CON EXITO", vbInformation, "SEPAMOS EXCEL" Else


MagBox "OPERACION CANCELADA", vbCritical, "SEPAMOS EXCEL"

'End If

End Sub

Private Sub SALIR_Click()

Unload Me

End Sub

Private Sub UserForm_Initialize()

Dim FILA As Long, FINAL As Long

Dim ID As Long

Dim FECHA As String

FILA = [Link]("A" & [Link]).End(xlUp).Row + 1

FINAL = FILA - 1

If [Link](2, 1) = Empty Then

ID = 1

Else

ID = [Link](FINAL, 1) + 1

End If

FECHA = Format(Now(), "DD/MM/YYYY")


End Sub

También podría gustarte