Jump to content

Ayuda con un botón modificar desde un formulario


Recommended Posts

Expertos buenos días, tengo un código que debe modificar desde la columna C por la columna A y B es otro tabla, pero todas las veces que lo modifica lo pone en el encabezado, per que siempre he usado ese código en cualquier formulario y normal me funcionaba pero aquí en este archivo no me funciona, los voy mostrar el código por que no puedo subir el archivo

Private Sub Btn_Modificar_Click()

If TextBox1.Value = -1 Then
   MsgBox "Falta ingresar la posición del deportista.", vbInformation, "Sistema de Monitoreo"
   Exit Sub
End If


With Hoja2
   If Btn_Modificar.Visible = True Then
      Fila = ListBox1.ListIndex + 2
   Else
      Fila = .Range("C" & Rows.Count).End(xlUp).Row + 2
   End If
   If Not MsgBox("¿Está seguro de registrar/modificar grupos?", vbQuestion + vbOKCancel) = vbOK Then Exit Sub
   ListBox1.RowSource = ""
      .Cells(Fila, 3) = TextBox1
      .Cells(Fila, 4) = TextBox2
      .Cells(Fila, 5) = TextBox3
      .Cells(Fila, 6) = TextBox4
      .Cells(Fila, 7) = TextBox5
      .Cells(Fila, 😎 = TextBox6
      .Cells(Fila, 9) = TextBox7
      .Cells(Fila, 10) = TextBox11
      .Cells(Fila, 11) = TextBox12
      .Cells(Fila, 12) = TextBox13
      .Cells(Fila, 13) = TextBox14
      .Cells(Fila, 14) = TextBox15
      .Cells(Fila, 15) = TextBox16
      .Cells(Fila, 16) = TextBox17
      .Cells(Fila, 17) = TextBox18
      .Cells(Fila, 18) = TextBox19
      .Cells(Fila, 19) = TextBox20
      .Cells(Fila, 20) = TextBox21
      .Cells(Fila, 21) = TextBox22
      .Cells(Fila, 22) = TextBox23
      .Cells(Fila, 23) = TextBox24
      .Cells(Fila, 24) = TextBox25
      .Cells(Fila, 25) = TextBox26
      .Cells(Fila, 26) = TextBox27
End With
ListBox1.RowSource = "Empleado"

MsgBox "Datos modificados con éxito", vbInformation, "Sistema de Monitoreo"

End Sub

Espero me puedan orientar desde ya muchas gracias

Link to comment
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
×
×
  • Create New...

Important Information

Privacy Policy