Saltar al contenido

Recommended Posts

publicado

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

Conéctate para comentar

Podrás dejar un comentario después de conectarte



Conéctate ahora
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.