Tengo el siguiente código que es un boton de modificar campos en el formulario, el detalle es que al modificar o cambiar información solo muestra la de la primera linea de cambio no entra en la segunda, que requiero para poder modificar en dos campos o mas la información:
Private Sub cmdModificar_Click()
Dim FILA As Object
Dim LINEA As Integer
Dim ValorBuscado As Integer
Dim I As Long
ValorBuscado = Me.txtNo
Set FILA = Sheets("AMPARO").Range("A:A").Find(ValorBuscado, Lookat:=xlWhole)
LINEA = FILA.Row
Hoja1.Range("J" & LINEA).Value = Me.txtEstatusP.Value "Hago una modificación y se muestra en el formulario" Hoja1.Range("K" & LINEA).Value = Me.txtObservaciones.Value "No entra en está Linea"
Tengo el siguiente código que es un boton de modificar campos en el formulario, el detalle es que al modificar o cambiar información solo muestra la de la primera linea de cambio no entra en la segunda, que requiero para poder modificar en dos campos o mas la información:
Private Sub cmdModificar_Click()
Dim FILA As Object
Dim LINEA As Integer
Dim ValorBuscado As Integer
Dim I As Long
ValorBuscado = Me.txtNo
Set FILA = Sheets("AMPARO").Range("A:A").Find(ValorBuscado, Lookat:=xlWhole)
LINEA = FILA.Row
Hoja1.Range("J" & LINEA).Value = Me.txtEstatusP.Value "Hago una modificación y se muestra en el formulario"
Hoja1.Range("K" & LINEA).Value = Me.txtObservaciones.Value "No entra en está Linea"
Me.ListBox1.RowSource = ""
txtNExpediente = Empty
Me.txtNo = Empty
Me.ComboBox1 = Empty
Me.ComboBox2 = Empty
Me.txtNomQA = Empty
Me.txtDemandado = Empty
Me.txtFInicio = Empty
Me.txtDescA = Empty
Me.txtEstatusP = Empty
Me.txtObservaciones = Empty
Me.txtBuscar = Empty
Label1.Caption = Format(Date, "dd/mm/yyyy")
Me.ListBox1.RowSource = "TAMP"
Me.ListBox1.ColumnCount = 11
Me.ListBox1.ColumnHeads = True
Me.cmdGuardar.Enabled = True
Me.cmdModificar.Enabled = False
txtNExpediente.Enabled = True
Me.txtNo.Enabled = False
Me.ComboBox1.Enabled = True
Me.ComboBox2.Enabled = True
Me.txtNExpediente.Enabled = True
Me.txtNomQA.Enabled = True
Me.txtDemandado.Enabled = True
Me.txtFInicio.Enabled = True
Me.txtDescA.Enabled = True
Me.txtEstatusP.Enabled = True
Me.txtObservaciones.Enabled = True
Label1.Caption = Format(Date, "dd/mm/yyyy")
Me.cmdLimpiar.Enabled = False
Me.txtNo = Sheets("AMPARO").Range("A4")
End Sub