Soru Userform1'deki değerin Userform2'ye formül ile aktarılması

[glstnbks]

Merhabalar, Üretim hesabı yapmak istiyorum. Fakat bir noktada tıkandım. Yardımlarınızı rica ediyorum. Şimdiden teşekkürlerimi sunarım.

Öncelikle Userform1'de TextBox1 oluşturdum. Buraya rakamsal bir değer giriyorum; örneğin '5'.
Daha sonra oluşturmuş olduğum 'Hesapla' diye isimlendirdiğim Commandbutona tıkladığımda UserForm1 kapanıyor ve Userform2 açılıyor.
Bu Userform2'de oluşturduğum Label1'e, 9000'i Userform1'de textbox1'e yazmış olduğum değere bölmesini ve bir sonuç elde etmesini istiyorum; yani 9000/5 yapıp sonucu label1'e yazmasını istiyorum. Bu gibi formül işlemlerini nasıl yazabilirim?
Örnek verebilirseniz çok memnun olurum.

 

[systran]

userformu HİDE/SHOW metodu ile gizliyorsanız işe yarar. UNLOAD metodu ile kapatıyorsanız bu kodlar işinizi görmez.
msgbox Val(UserForm2.TextBox1.Text) / Val(UserForm1.TextBox1.Text)

 

[Haluk]

UserForm1'deki CommandButton1'e tıklayınca çalışacak prosedür şöyle olabilir....

Private Sub CommandButton1_Click()
    UserForm2.Label2.Caption = 9000 / Val(TextBox1)
    Unload Me
    UserForm2.Show
End Sub

.

 

[glstnbks]

Systran, userformu Unload Me ile kapatıp diğer formu açıyorum. Teşekkür ederim ilginiz için.
Haluk Bey çok teşekkür ederim emeğinize sağlık

 

[glstnbks]

Ek olarak bir şey daha sormak istiyorum.

If ComboBox1.Text = "NM" Then
Label7.Caption = TextBox1.Value
Label8.Caption = 9000 / TextBox1.Value
Label9.Caption = 1000 / TextBox1.Value
Label10.Caption = 10000 / TextBox1.Value
Label15.Caption = 0.59 * TextBox1.Value

Burada sağ tarafta yaptığım işlemin sonucunu Label'lara yazdırıyorum fakat çıkan sonuç ondalıklı çıkarsa sadece virgülden sonra 2 basamağını görmek istiyorum. Bunun için nasıl bir kod yazabiliriz?

 

[Haluk]

Label8.Caption = Format(9000 / TextBox1.Value, "0.00")

.

 

[glstnbks]

Label8.Caption = Format(9000 / TextBox1.Value, "0.00")

.

Teşekkür ederim elinize sağlık

 

[glstnbks]

Merhabalar, şu kodda nasıl bir hata yapmış olabilirim? Hata veriyor. İlk yapmak istediğim şey;Eğer Userform1'de Combobox4'te İPLİK MAKİNESİ'ni seçersem, Excel'de ÜRETİM HESAPLAMALARI isimli sayfamın N.sütun 2.satırdaki değeri, Userform2'deki Label73e yazmasını istiyorum.
İkinci yapmak istediğim şey de aşağıdaki formülasyonların yazılması. Orada da hata veriyor. Sağ tarafta yazdığım Textbox4 ve TextBox3 Userform1 de yer alıyor. Diğer Labellar Userform2'de yer alıyor. Bazı hesapları o şekilde yapmak istiyorum. Kodları inceleyebilir misiniz?
Private Sub CommandButton2_Click()

If ComboBox4.Text = "İPLİK MAKİNESI" Then
Label73.Caption = Sheets("ÜRETİM HESAPLAMALARI").Range("N2")
ElseIf ComboBox4.Text = "BUHAR" Then
Label73.Caption = Sheets("ÜRETİM HESAPLAMALARI").Range("N3")

Exit Sub
End If

'''''Formülasyonlar

UserForm2.Label80.Caption = Me.TextBox5.Value
UserForm2.Label82.Caption = 9000 / TextBox4.Value
UserForm2.Label84.Caption = 1000 / TextBox4.Value
UserForm2.Label86.Caption = 10000 / TextBox4.Value
UserForm2.Label88.Caption = 0.59 * TextBox4.Value

UserForm2.Label38.Caption = 60 * TextBox3.Value
UserForm2.Label39.Caption = (UserForm2.Label38.Value * UserForm2.Label82.Value) / 9000
UserForm2.Label41.Caption = 22.5 * Label39.Value
UserForm2.Label40.Caption = Label41.Value / 1000
UserForm2.Label44.Caption = 0.8 * Label40.Value
UserForm2.Label43.Caption = 0.85 * Label40.Value
UserForm2.Label42.Caption = 0.9 * Label40.Value


Unload Me
UserForm2.Show

'UserForm2.Label1.Text = UserForm1.TextBox1.Text

Exit Sub

End Sub

 

[glstnbks]

Kodu inceleyebilir misiniz? Orada takılı kaldım ve ilerleyemiyorum