Hola a todos;

-Me habían pasado una macro que adjunto en la que se puede editar desde el listbox.

Lo que no se modificar es lo siguiente:

Abro el formulario, selecciono desde el listbox el registro a seleccionar y este lo pasa a los textBox. Cuando presiono el botón editar se edita el registro pero me lo pone de primero en la hoja. Yo lo que quiero es que quede en la hoja en la misma fila y no me lo mueva de posición.

Adjunto un video explicando el tema:

Video:

EditarListBox

Un cordial saludo para todos.

EditarListBox.xlsm

Esto funciona, ¿A ver si eres capaz de encontrar la diferencia con el anterior?

Private Sub btn_Editar_Click()
'Agreamos/Modificamos los Items
  With ListBox1
   If .ListIndex = -1 Then
      Fila = Range("A" & Rows.Count).End(xlUp).Row + 1
   Else
      Fila = .ListIndex + 2
   End If
   Range("A" & Fila) = TextBox1
   Range("B" & Fila) = TextBox2
   .List = Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row).Value
    Borrar

  End With

End Sub

 

Hace 15 minutos , Antoni dijo:

Esto funciona, ¿A ver si eres capaz de encontrar la diferencia con el anterior?

Private Sub btn_Editar_Click()
'Agreamos/Modificamos los Items
  With ListBox1
   If .ListIndex = -1 Then
      Fila = Range("A" & Rows.Count).End(xlUp).Row + 1
   Else
      Fila = .ListIndex + 2
   End If
   Range("A" & Fila) = TextBox1
   Range("B" & Fila) = TextBox2
   .List = Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row).Value
    Borrar

  End With

End Sub

 

Hola Antoni, si lo he encontrado y punto.

Dichoso "." pero vale su peso en oro.

Una pregunta, ¿el código que he añadido para el botón "Agregar" está correcto así?.

Lo he probado y en principio funciona, ¿no se si es el código es muy ortodoxo o no?

Bo día e cuidado con Hortensia que volveu despois de 37 anos.  ?

 

Disculpa,  ya he pillado el segundo punto.

De ahí  a que el código ponga " Agregamos o modificamos items".

Vale tanto para un roto como un descosido ??‍♂️