Userforms Values to Workbook Cells

[Guest]

How do I do this?

Ive tried this code in the worksheet and the userform bu is doesn't work

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheet("DDE Sheet").Range("I2").Value = frmOptions.TextBox1.Value
Worksheet("DDE Sheet").Range("K2").Value = frmOptions.TextBox2.Value

End Sub

Am I just being thick!

 

[N10]

HI MArk

Im uncetain about your choice of event, might the sub descriptor would
refer to the test box such as a texbox change event ?

Anyways Ithink incontect you have missed a "s" off of worksheets inyour
code

ie not

worksheet("DDE Sheet").Range("I2").Value = frmOptions.TextBox1.Value

but

worksheets("DDE Sheet").Range("I2").Value = frmOptions.TextBox1.Value

 

[Doug Glancy]

Mark,

What is it you want to happen, and when?

Doug

 

[Bob Phillips]

Mark,

Why would you want to load two worksheet cells from a userform EVERY time
that you select a cell? And are you sure the form is still in memory at that
point?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Guest]

Doug, (Bob)

Sorry for the lack of info in the original post, it was late and I was
trying to keep it short and sweet !

Anyway what I'm trying to do is use the values in 2 text boxes on the
userform as part of 2 time variants in some code which auto saves a copy of a
workbook at an interval specified by the user and then stops after a peroid
aslo spaecified by the user. Currently these values are enter in 2 cells on
the worksheet.

The working code is :-

Public RunWhen As Double
Public RunFor As Double
Public cSavePeriodMins As Double
Public cRunIntervalSeconds As Double
Public Const cRunWhat = "The_SubSave"
Public Const cHowLong = "The_SubPeriod"

Sub StartTimer()
cRunIntervalSeconds = UserForms("DDE Sheet").Range("I2").Value
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, _
procedure:=cRunWhat, schedule:=True

End Sub

Sub StartPeriod()
cSavePeriodMins = Worksheets("DDE Sheet").Range("K2").Value
RunFor = Now + TimeSerial(0, cSavePeriodMins, 0)
Application.OnTime earliesttime:=RunFor, _
procedure:=cHowLong, schedule:=True
End Sub

I've tried :-

cRunIntervalSeconds = UserForms("frnOptions").Range("TextBox1").Value

cSavePeriodMins = UserForms("frnOptions").Range("TextBox2").Value

But this returns a type mismatch

Now I've looked at this again and at a reasonable hour I think this may be
due to the format of the text box needing to be a number and is by default
formated as text but at present I don't know how to change this.

Mark

 

[Doug Glancy]

Mark,

I admit I'm still confused about what you are doing. But, assuming the name
of your form is "frnOptions" (with an "n"?) try:

cRunIntervalSeconds = frnOptions.TextBox1.Value

In your statement below:

cRunIntervalSeconds = UserForms("DDE Sheet").Range("I2").Value

I assume you really meant "Worksheets" - not "UserForms"?

hth,

Doug

 

[Guest]

Thanks Doug you solution work perfectly.

Appologies again for the confusion, your assumptions were correct, the now
obvious continuity errors in the code I posted was as a result of me trying
different things as I was posting my response and not resetting the code
properly before I cut and pasted it into the posting.

Mark

 

[Doug Glancy]

Mark,

I know how that goes! Glad I could help.

Doug