Solved: 1st Form option button to 2nd FORM

[whitewidow]

in my 1st form i have four option buttons and in the second form i have a textbox.

in the first form when a option button is selected then this should read from my worksheet and output the informtion to the second form.

so i have when option 1 is selected then that option should output the average price in the second form.

[lucas]

Thanks for posting your question instead of relying on pm's whitwidow. Could you possibly post a sanitized version of your workbook to make it a little easier for us. Otherwise we have to create the whole thing from scratch.

If not possible could you tell us where on the sheet the average price is located(column)

Also there has been much discussion lately about multiple forms....have you considered a multipage form?

[whitewidow]

Thanks for posting your question whitwidow. Could you possibly post a sanitized version of your workbook to make it a little easier for us. Otherwise we have to create the whole thing from scratch.

If not possible could you tell us where on the sheet the average price is located(column)

Also there has been much discussion lately about multiple forms....have you considered a multipage form?

ok in house form when user clicks option 1 then the average price should appear in the calcul form

[Charlize]

frmcal form by on exit on txthaver box. So when you fill in a value in grey box, on exit the value will be calculated.Private Sub txthaver_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.txthdiff.Value = (Val(Mid(Me.txtcurrent.Value, 3, Len(Me.txtcurrent.Value) - 3)) + Val(Me.txthaver.Value)) / 2
End Sub
Never mind.

[lucas]

Try this code for the initialize statement on the form frmcal

Private Sub UserForm_Initialize()
Worksheets("House").Select
Me.txtcurrent.Text = frmhouse.txthprice.Text
If frmhouse.ophtwo.Value = True Then
Me.Label7.Caption = Format(Range("B34").Value, "? #,###,##0")
ElseIf frmhouse.ophthree.Value = True Then
Me.Label7.Caption = Format(Range("B35").Value, "? #,###,##0")
ElseIf frmhouse.ophfour.Value = True Then
Me.Label7.Caption = Format(Range("B36").Value, "? #,###,##0")
ElseIf frmhouse.ophfive.Value = True Then
Me.Label7.Caption = Format(Range("B37").Value, "? #,###,##0")
End If
End Sub

[lucas]

whoops sorry. I changed your textbox on that form to a label...looks nicer you might try it.

everywhere I have me.label7.caption in the code above you will have to change it to me.txthaver.value or me.txthaver.text.

[lucas]

here's your file back

[whitewidow]

i have already changed it sorted the coding out.

thanks alot lucas

[lucas]

Your very welcome..sorry it took so long.

[whitewidow]

LUCAS, you was talking about multiform what was that about

[lucas]

Multi-page......see attached.

[whitewidow]

ok thanks alot lucas