Hard time finding a solution without unique values.

[Belleke]

Hello dear helpers
This is what should happen
1. Update Savings Projections (Value)
The Project # Field – As the user is typing in the project # that needs to be updated, the code should search column C on the PGS Savings Timeline (Projections) tab for the matching line. Once a match is found, the following fields should auto-fill:
Category – column D
Sub-Category – column E
Savings Action – column F
Benefit Driver – column G
Current Projected Benefit – column Q
The NEW-Projected Benefit field – the user will enter the new Projected Benefit value into the field. Once it is entered the user will click the “Submit” button which will replace the old Projected Benefit value with the new value on the PGS Savings Timeline (Projections) tab.
*NOTE – The workbook is full of formulas, and those must not change, otherwise the final reports will not be accurate.
I can't find a solution for the submit button code.
I guess I should work with cell adress or so because the project # are not unique.
See attached.(actual file has more sheets)
I hope someone can put me in the right direction.
Thanks.

 

[p45cal]

I can't find a solution for the submit button code.
I guess I should work with cell adress or so because the project # are not unique.
I hope someone can put me in the right direction.

Direction:

Private Sub Cb_01_Click()    'Submit
xx = LB_00.ListIndex
idx = 0
With Sheets("PGSSavingsTimeline(Projections)")
  For Each cll In .ListObjects("PGSSTP_tbl").DataBodyRange.Columns(1).SpecialCells(12).Cells
    If idx = xx Then
      'rw = cll.Row 'enable these commented out lines to help while developing
      'MsgBox rw 'development line
      'Application.Goto .Cells(rw, "Q")    'this just selects the target cell for visual confirmation while developing.
      .Cells(cll.Row, "Q").Value = Tbx_07.Value
      Exit For
    End If
    idx = idx + 1
  Next cll
End With
End Sub

BUT…
some cells in column Q have formulae!!

 

[Belleke]

Hi p45cal,
Thanks for helping, works fine.
Have a nice day.