Scribd
Cargar
17 vistas1 página

Uso de Dim As String en VBA

El documento declara variables para almacenar información de una factura como el código, nombre, fecha de vencimiento y precio unitario. Luego asigna valores a estas variables desde cuadros de texto. Finalmente, usa estas variables para rellenar filas en una hoja llamada "venta", comenzando en la última fila usada, de modo que se agreguen nuevos registros sin sobrescribir los existentes.

Cargado por

aaron
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
17 vistas1 página

Uso de Dim As String en VBA

El documento declara variables para almacenar información de una factura como el código, nombre, fecha de vencimiento y precio unitario. Luego asigna valores a estas variables desde cuadros de texto. Finalmente, usa estas variables para rellenar filas en una hoja llamada "venta", comenzando en la última fila usada, de modo que se agreguen nuevos registros sin sobrescribir los existentes.

Cargado por

aaron
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

Dim codigo As String 'se declara la variable

Dim nombre As String

Dim ultimafila As Double

Dim vence As String

Dim pu As String

codigo = [Link] 'se coloco el contenido en los texbox que seria el valor de la variable

nombre = [Link]

vence = [Link]

pu = [Link]

'activeworkbook se usa para colocoar el valor de las variables en otra hoja en este caso venta

[Link] [Link]("venta").Cells(1, 1)

'esta variable coloca el valor en la ultims fila y sigue rellenando las fila

ultimafila = [Link] - 1 + [Link]

'un metodo de rellenar celdas y seguir usando la siguiente fila si sobreescribir

Cells(ultimafila + 1, 1) = codigo

Cells(ultimafila + 1, 2) = nombre

Cells(ultimafila + 1, 3) = vence

Cells(ultimafila + 1, 4) = pu

También podría gustarte