Hoja de registro de artículos

Juanmasi · el 23 de enero

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

Antoni · el 23 de enero

Sube tu archivo y cuando pueda le echo un vistazo.

Juanmasi · el 23 de enero

Las Cumbres.xlsm

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

Muchisimas gracias por el interés. Un saludo

JSDJSD · el 1 de febrero

Hola Juanmasi, prueba el adjunto y comenta

Las Cumbres Prueba1.xlsm

Juanmasi · el 4 de febrero

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.

JSDJSD · el 4 de febrero

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 ?

Juanmasi · el 5 de febrero

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