bademployee
Board Regular
- Joined
- Aug 19, 2010
- Messages
- 184
Have spent considerable time trying to fix below. Need some help when the event is run, all text boxes are updated on the form.
Product1, Product2 etc all update correctly, so does kg1 - the rest (kg2, kg3 etc) won't update at all.
Thanks for any help in advance.
Mark
Product1, Product2 etc all update correctly, so does kg1 - the rest (kg2, kg3 etc) won't update at all.
Code:
Private Sub CommandButton42_Click()
Dim ws As Worksheet
Set ws = Worksheets("Blends")
Load Disc
Disc.product1.Text = ws.Range("c9")
Disc.product2.Text = ws.Range("c10")
Disc.product3.Text = ws.Range("c11")
Disc.product4.Text = ws.Range("c12")
Disc.product5.Text = ws.Range("c13")
Disc.product6.Text = ws.Range("c14")
Disc.product7.Text = ws.Range("c15")
Disc.fert_rate.Text = ws.Range("h22")
Disc.kg1.Text = Format(Range("r9").Value, "0.00")
Disc.kg2.Text = Format(Range("r10").Value, "0.00")
Disc.kg3.Text = Format(Range("r11").Value, "0.00")
Disc.kg4.Text = Format(Range("r12").Value, "0.00")
Disc.kg5.Text = Format(Range("r13").Value, "0.00")
Disc.kg6.Text = Format(Range("r14").Value, "0.00")
Disc.kg7.Text = Format(Range("r15").Value, "0.00")
Disc.Show
End Sub
Thanks for any help in advance.
Mark