Userformdaki sonuçları başka yere aktarma

[Açılın ben mühendisim]

Kolay gelsin arkadaşlar,
Userform üzerinden kişiye özel prim oranı hesapladım.
Bu değerleri günlük olarak aylık tabloma geçirmek istiyorum.
yatay tablomda iki şart sağlanmalı. Kişi adı dikeyde seçilecek ve yatay kısımdan da tarih aynı olduğu vakit userformdaki prim oranı iki başlığın kesiştiği yere yazılacak. Yazdırma işlemini nasıl yaparım?

userformda kullandığım formuller bunlar;
Private Sub CommandButton1_Click()
If TextBox1.Value < TextBox4.Value And TextBox1.Value < 100 Then
TextBox2.Value = "%0"
ElseIf TextBox1.Value > TextBox4.Value And TextBox1.Value < 100 Then
TextBox2.Value = "%1"
ElseIf TextBox1.Value < TextBox4.Value And TextBox1.Value > 100 Then
TextBox2.Value = "%1,3"
ElseIf TextBox1.Value > TextBox4.Value And TextBox1.Value > 100 Then
TextBox2.Value = "%1,5"
End If
end sub



Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim

 

[muygun]

Merhaba;
Bu soruyu anlamak ve çözmek için userform oluşturduğunuz dosyanızı görmek gerekiyor.

 

[Açılın ben mühendisim]

Merhaba;
Bu soruyu anlamak ve çözmek için userform oluşturduğunuz dosyanızı görmek gerekiyor.

mail adresinizi verirseniz dosyayı gönderebilirim.
teşekkürler

 

[muygun]

Merhaba;
Dosyanızda varsa "özel bilgileri silerek yada değiştirerek" ;
http://s3.dosya.tc/
adresine yükler ve linkini burada paylaşırsanız birden fazla cevap ve çözüm bulma şansınız olur.
İyi çalışmalar.

 

[Açılın ben mühendisim]

Merhaba;
Dosyanızda varsa "özel bilgileri silerek yada değiştirerek" ;
http://s3.dosya.tc/
adresine yükler ve linkini burada paylaşırsanız birden fazla cevap ve çözüm bulma şansınız olur.
İyi çalışmalar.

http://s3.dosya.tc/server7/2hqyaj/MANUEL_KONFEKSIYON_PRIM_SISTEMI.rar.html
dosyamı uygun bir şekilde yükledim yardımcı olabilirseniz çok sevinirim.
İyi çalışmalar

 

[PLİNT]

Merhaba
Aşağıdaki gibi denermisiniz?

 If CDbl(TextBox1) <= 100 Then
If CDbl(TextBox4) >= CDbl(TextBox1) Then TextBox2 = "%0"
If CDbl(TextBox4) < CDbl(TextBox1) Then TextBox2 = "%1,3"
Else
If CDbl(TextBox1) <= CDbl(TextBox4) Then TextBox2 = "%1"
If CDbl(TextBox1) > CDbl(TextBox4) Then TextBox2 = "%1,5"
End If

 

[Açılın ben mühendisim]

Merhaba
Aşağıdaki gibi denermisiniz?

 If CDbl(TextBox1) <= 100 Then
If CDbl(TextBox4) >= CDbl(TextBox1) Then TextBox2 = "%0"
If CDbl(TextBox4) < CDbl(TextBox1) Then TextBox2 = "%1,3"
Else
If CDbl(TextBox1) <= CDbl(TextBox4) Then TextBox2 = "%1"
If CDbl(TextBox1) > CDbl(TextBox4) Then TextBox2 = "%1,5"
End If

Prim hesabını alıyorum ama aylık tabloma yazdıramıyorum. Zaten kendi yazdığım kodlarda da sorun sayfa2ye userformdaki prim oranını yazdırmak

 

[PLİNT]

Prim hesabını alıyorum

Asıl kodlarınız değişik değilse:
Örnek dosyanızdaki kodlara göre örneğin "celil yılmaz" seçili iken kotası 80
"Sardığı körük sayısı" 100 olduğunda tepki vermiyor,
101 olduğunda prim 1,5 olması gerekirken 1,3 çıkıyor
Yanılıyormuyum?

Zaten kendi yazdığım kodlarda da sorun sayfa2ye userformdaki prim oranını yazdırmak

Sayfa2 ye aktaran bölümde şöyle olabilir.

Dim a As Integer
a = CDate(TextBox3.Value) - Sayfa2.Range("B1") + 2
Sayfa2.Cells(Application.WorksheetFunction.Match(ComboBox1.Value, Sayfa2.Range("a1:a12"), 0), a) = TextBox2.Value

 

[vardar07]

Dosyanızı inceler misiniz.

 

[muygun]

Merhaba;
Alternatif olsun.
İnceleyin.
İyi çalışmalar.

Link:
http://s3.dosya.tc/server7/auxjod/en_muhendisim-userform_ile_prim_hesaplama.zip.html

 

[Açılın ben mühendisim]

Private Sub CommandButton1_Click()
If TextBox1.Value > 100 And TextBox1.Value > TextBox4.Value Then
TextBox2.Value = "%1.5"
ElseIf TextBox1.Value > 100 And TextBox1.Value <= TextBox4.Value Then
TextBox2.Value = "%1.3"
ElseIf TextBox1.Value <= 100 And TextBox1.Value >= TextBox4.Value Then
TextBox2.Value = "%1"
ElseIf TextBox1.Value <= 100 And TextBox1.Value < TextBox4.Value Then
TextBox2.Value = "%0"
End If

Dim a As Integer
a = CDate(TextBox3.Value) - Sayfa2.Range("B1") + 2
Sayfa2.Cells(Application.WorksheetFunction.Match(ComboBox1.Value, Sayfa2.Range("a1:a12"), 0), a) = TextBox2.Value




arkadaşlar iyi akşamlar,
prim sistemim için kullandığım son kodlar aşağıdadır.
Yardımlarınız için çok teşekkür ederim.
Kolay gelsin.
Private Sub CommandButton1_Click()
If TextBox1.Value > 100 And TextBox1.Value > TextBox4.Value Then
TextBox2.Value = "%1.5"
ElseIf TextBox1.Value > 100 And TextBox1.Value <= TextBox4.Value Then
TextBox2.Value = "%1.3"
ElseIf TextBox1.Value <= 100 And TextBox1.Value >= TextBox4.Value Then
TextBox2.Value = "%1"
ElseIf TextBox1.Value <= 100 And TextBox1.Value < TextBox4.Value Then
TextBox2.Value = "%0"
End If

Dim a As Integer
a = CDate(TextBox3.Value) - Sayfa2.Range("B1") + 2
Sayfa2.Cells(Application.WorksheetFunction.Match(ComboBox1.Value, Sayfa2.Range("a1:a12"), 0), a) = TextBox2.Value

 

[PLİNT]

Merhaba
"TextBox1.Value > TextBox4.Value " şekli ile çıkan sonuç için:
Ek dosyayı incelermisiniz?
http://s3.dosya.tc/server7/imrmit/textboxvalue.zip.html