ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Here is an interesting question (https://www.excelbanter.com/excel-programming/294933-here-interesting-question.html)

bruce forster

Here is an interesting question
 
I have created an spreadsheet embedded in a Userform which Get(s)Data from the related workbook. I also have a user form for inputs which change numbers on the workbook. What I am trying to do is have the userform embedded spreadsheet numbers automatically change when a user changes inputs on the other userform which "drives" the workbook

Hopefully this makes sense and I will send a sample of my code later today

Thanks to everyone who responses.

Chris

Here is an interesting question
 
CORRECTION:
frmEmbed.unloa
frmEmbed.sho
must immediately follow whatever code(s) makes the changes to the worksheet. Putting in a change event won't cause an update to your worksheet because cahnge event will occur prior to updates.
----- chris wrote: ----

try something like this

In Input form
sub txtbx1_change(
frmEmbed.unloa
frmEmbed.sho
end su

This will force the form to update with new worksheet data, and it should be pretty seamless to the end user
Do this for all textbox/comboboxes that cause data to change in your worksheet O
ONLY in your command button if change only takes effect after all data is inputted and a button is pressed.

bforst[_2_]

Here is an interesting question
 
I am a newbie and don't know where to put the code you provided.

I put it in the Sub CommandButton3_Click() code but it said I needed a
object.

The CommandButton3_Click() is the code for changing the worksheet t
the new input which was done in TextBox1.

Any additional assistance is appreciated

--
Message posted from http://www.ExcelForum.com


bforst

Here is an interesting question
 
Any suggestions??

Private Sub CommandButton3_Click()

Dim r As Long
PutData

If IsNumeric(RowNumber.Text) Then
r = CLng(RowNumber.Text)

r = r + 1

If r 1 And r <= LastRow Then
RowNumber.Text = FormatNumber(r, 0)

End If

End If

End Su

--
Message posted from http://www.ExcelForum.com



All times are GMT +1. The time now is 10:41 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com