Jump to content
Sign in to follow this  
Juanmasi

Hoja de registro de artículos

Recommended Posts

Hola a todos, soy nuevo en el foto y en estos mundos de la programación vba.  Estoy realizando una hoja de registro de artículos pero  no consigo incluir la opción modificar un registro.

Este es el codigo que tengo para incluir artículos y creo que el mismo me podría servir para modificar. El problema es que con este código lo que hago es añadir un registro nuevo al final de la tabla en vez de modificar el que esta seleccionado en el combobox. (Espero explicarme para que me podáis entender ya que como os digo soy totalmente novato en este mundo)

Private Sub BtnGuardar_Click()
Dim Drep As Object, Registro As String
If Txt_Precio = "" Or Txt_Descripcion = "" Or Txt_Catalogo = "" Or txt_NombreI = "" Or Txt_RutaImagen = "" Then
MsgBox "Complete los Campos Vacios.", vbCritical, "MacroExcelVBA-Ag"
Exit Sub
End If
Registro = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1
Hoja2.Cells(Registro, 1) = Txt_Precio
Hoja2.Cells(Registro, 2) = Txt_Descripcion
Hoja2.Cells(Registro, 3) = Txt_Catalogo
Hoja2.Cells(Registro, 4) = txt_NombreI
Hoja2.Cells(Registro, 5) = Txt_RutaImagen
Txt_Precio = ""
Txt_Descripcion = ""
Txt_Catalogo = ""
txt_NombreI = ""
Txt_RutaImagen = ""
BorrarFoto
MsgBox "Datos Registrados con Exito", vbInformation, "MacroExcelVBA-Ag"
'Unload Me
End Sub
 

Posiblemente mi consulta sea de primero de primaria, pero por mas que busco no encuentro la solución. 

Entiendo que la clave está en la siguiente linea.

Registro = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1

Bueno, espero que me haya podido explicar y perdonar mi ignorancia en todo este tema. Muchas gracias 

Share this post


Link to post
Share on other sites

JSDJSD perdona mi torpeza,

 

lo he probado y al abrirlo ya me genera un error. Tampoco entiendo el cambio. Como comenté, lo que pretendo es incluir un botón que me permita realizar modificaciones sobre el registro activo y guardarlo, sustituyendo el antiguo. De todas formas muchisimas gracias por tu interés. 

Share this post


Link to post
Share on other sites
En 23/1/2020 at 10:38 , Juanmasi dijo:

Este es el archivo. La idea es en el formulario "mostrar" agregar un boton que me permita modificar el registro seleccionado

Hola  Juanmasi , mira el vídeo y dí que parte no se cumple.

https://drive.google.com/open?id=1QXbIPl5SmH46yxW_MKGbvVqi0XFoeyWo

 

Hace 10 horas, Juanmasi dijo:

lo he probado y al abrirlo ya me genera un error. Tampoco entiendo el cambio. Como comenté, lo que pretendo es incluir un botón que me permita realizar modificaciones sobre el registro activo y guardarlo, sustituyendo el antiguo. De todas formas muchisimas gracias por tu interés. 

Que error te da al abrirlo ?

Que no entiendes de que cambio ?

Share this post


Link to post
Share on other sites

 

Se ha producido error 91 en tiempo de ejecución.  Variable de objeto o bloque with no establecido.

Private Sub Workbook_Open()
'With Application
'.WindowState = xlMaximized
'End With
'Sheets("Inicio").Select
Application.DisplayFormulaBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False
End Sub

 

Cuando me voy a depurar, me aparece marcada la linea que  ves aqui en rojo. 

Perdon por mi ignorancia y muchas gracias

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png