Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
textbox not updating when controlsource cell changes
I have a userform with textboxes for the user to enter data then click a save
button. This moves the data to a worksheet (hidden) and also into a listbox on the same userform. (listbox tied to worksheet) Also on the same userform is a set of textboxes that reflect calcuation results from the worksheet. Each has a single cell set as the control source. All that works fine. I type into the textboxes, click the save button, the data moves into the listbox and the textboxes are updated with the calculation results. I wanted to add a way to edit the data already saved to the listbox. When the user double-clicks an item in the listbox, the data is loaded back into the textboxes it was orginally entered in. and is removed from the the listbox(worksheet) Here is the problem: Now when I click the save button, the data moves back into the listbox but the textboxes are not updated with the calculated results.? I ran this with the worksheet visible and can see the controlsource cells update but the textbox values will not chage. Any help would be greatly appreciated! Here is the code I added as a way to edit the data Private Sub lbCurrent_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'when an item is double clicked in the 'current transactions' listbox 'populate the enter a transaction area with the entries for editing Dim Rowcnt As Long Dim r As Long Rowcnt = 0 For r = 0 To lbCurrent.ListCount - 1 If lbCurrent.Selected(r) Then Rowcnt = r + 11 ufTrustEntry.tbDate.Value = Sheet4.Range("a" & Rowcnt).Value ufTrustEntry.cbTransaction.Value = Sheet4.Range("d" & Rowcnt).Value ufTrustEntry.cbAccount.Value = Sheet4.Range("c" & Rowcnt).Value ufTrustEntry.cbCustomer.Value = Sheet4.Range("b" & Rowcnt).Value ufTrustEntry.tbAmount.Value = Sheet4.Range("e" & Rowcnt).Value ufTrustEntry.tbAddInfo.Value = Sheet4.Range("g" & Rowcnt).Value 'Now remove the transaction from the pending list Dim rng As Range Set rng = Range(lbCurrent.RowSource) lbCurrent.RowSource = "" Sheet4.Range("a" & Rowcnt).EntireRow.Delete lbCurrent.RowSource = rng.Resize(rng.Rows.Count - 1).Address(external:=True) Sheet4.Range("n1", "v60").ClearContents SetupCurrentCalculate SetupCurrent3083 End If Next r Set rng = Nothing End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
textbox not updating when controlsource cell changes
I found the textboxes will update if I reload the userform after the save
button is clicked, but I don't like that flash and delay. The save button works just fine until I run the code below. The textboxs will update when I remove entried from the listbox by double clicking an item. As soon as I then use the save button to put data back into the listbox, the textboxs stop updating until I reload the userform. any ideas most welcome Christy "Christy" wrote: I have a userform with textboxes for the user to enter data then click a save button. This moves the data to a worksheet (hidden) and also into a listbox on the same userform. (listbox tied to worksheet) Also on the same userform is a set of textboxes that reflect calcuation results from the worksheet. Each has a single cell set as the control source. All that works fine. I type into the textboxes, click the save button, the data moves into the listbox and the textboxes are updated with the calculation results. I wanted to add a way to edit the data already saved to the listbox. When the user double-clicks an item in the listbox, the data is loaded back into the textboxes it was orginally entered in. and is removed from the the listbox(worksheet) Here is the problem: Now when I click the save button, the data moves back into the listbox but the textboxes are not updated with the calculated results.? I ran this with the worksheet visible and can see the controlsource cells update but the textbox values will not chage. Any help would be greatly appreciated! Here is the code I added as a way to edit the data Private Sub lbCurrent_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'when an item is double clicked in the 'current transactions' listbox 'populate the enter a transaction area with the entries for editing Dim Rowcnt As Long Dim r As Long Rowcnt = 0 For r = 0 To lbCurrent.ListCount - 1 If lbCurrent.Selected(r) Then Rowcnt = r + 11 ufTrustEntry.tbDate.Value = Sheet4.Range("a" & Rowcnt).Value ufTrustEntry.cbTransaction.Value = Sheet4.Range("d" & Rowcnt).Value ufTrustEntry.cbAccount.Value = Sheet4.Range("c" & Rowcnt).Value ufTrustEntry.cbCustomer.Value = Sheet4.Range("b" & Rowcnt).Value ufTrustEntry.tbAmount.Value = Sheet4.Range("e" & Rowcnt).Value ufTrustEntry.tbAddInfo.Value = Sheet4.Range("g" & Rowcnt).Value 'Now remove the transaction from the pending list Dim rng As Range Set rng = Range(lbCurrent.RowSource) lbCurrent.RowSource = "" Sheet4.Range("a" & Rowcnt).EntireRow.Delete lbCurrent.RowSource = rng.Resize(rng.Rows.Count - 1).Address(external:=True) Sheet4.Range("n1", "v60").ClearContents SetupCurrentCalculate SetupCurrent3083 End If Next r Set rng = Nothing End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Trendline Textbox Not Updating | Charts and Charting in Excel | |||
Textbox updating other Textboxes | Excel Programming | |||
Textbox ControlSource Property - Excel 97 | Excel Programming | |||
last piece of the puzzle...controlsource in textbox | Excel Programming | |||
Problem with TextBox & ControlSource - Please Help | Excel Programming |