Jump to content
JSDJSD

Modificar o añadir comentario de una celda desde formulario

Recommended Posts

En el formulario Cobros en el apartado Entregas a Cuenta  selecciono un cliente y se muestran en listbox la relación de facturas de este cliente, luego pongo la cantidad que entrega a cuenta luego paso a comentario y pongo un texto por ejemplo que la entrega a cuenta la efectuo el dia x y que de esa factura le queda XX, pulso botón guardar y la cantidad de entrega la coloca en la respectiva fila de la columna H e inmediatamente inserta el comentario en la respectiva fila de la columna B, hasta aquí perfecto.
Pero mi problema es que si este mismo cliente hace otra entrega sobre esta misma factura no se como hacer para que me cargue en el cuadro de texto el comentario que ya existe en esta celda para poder modificarlo desde el formulario.

Cobros.xlsm

Share this post


Link to post
Share on other sites

Hola @JSDJSD, modifica esta linea:

Private Sub CommandButton3_Click()
Dim Comentario As String

For X = 0 To ListBox2.ListCount - 1
   If ListBox2.Selected(X) Then
      Hoja2.Range("H" & ListBox2.List(X, 3)) = TextBox5.Value
   If TextBox4 <> "" Then
      Let Comentario = TextBox4.Value
 On Error Resume Next
   With Hoja2.Range("B" & ListBox2.List(X, 3))
     .AddComment
     .Comment.Visible = False
     .Comment.Text Text:=Comentario
   End With
   End If
   End If
Next

CargarFacturas

End Sub

Y agrega estas nuevas:

Private Sub ListBox2_Click()
Dim comt As Range

    With Me.ListBox2
    
        Set comt = Hoja2.Range("J:J").Find(.List(.ListIndex, 0), , , xlWhole)
        On Error Resume Next
        If Not comt Is Nothing Then Me.TextBox4 = Hoja2.Cells(comt.Row, "B").Comment.Text
    
    End With
End Sub

Comentas.

Saludos.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png