Scribd
Cargar
6 vistas2 páginas

Guardar Registros con VBA en Excel

Código de botones

Cargado por

Angel Gutierrez
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
6 vistas2 páginas

Guardar Registros con VBA en Excel

Código de botones

Cargado por

Angel Gutierrez
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

Botones visual basic

Private Sub cmdGuardar_Click()

Dim fila As Long

' Si no hay ID, añadimos un nuevo registro al final de la lista

If [Link] = "" Then

fila = [Link]([Link], 1).End(xlUp).Row + 1

Else

fila = [Link]

End If

' Guardar los datos en la hoja de Excel

[Link](fila, 1).Value = [Link]

[Link](fila, 2).Value = [Link]

[Link](fila, 3).Value = [Link]

[Link](fila, 5).Value = Now

' Crear hipervínculo para el documento

[Link] Anchor:=[Link](fila, 4), Address:=[Link],


TextToDisplay:=[Link]

' Crear hipervínculo para la miniatura

[Link] Anchor:=[Link](fila, 6), Address:=[Link],


TextToDisplay:=[Link]

' Limpiar los campos del formulario


[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

MsgBox "Registro guardado correctamente"

End Sub

También podría gustarte