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