Userform boxlarda hesaplama

Katılım
3 Kasım 2007
Mesajlar
84
Excel Vers. ve Dili
xp türkçe
selam arkadaşlar bir hesaplama işlemi için yardıma ihtiyacım var

maaşı textbox4 = 500 ytl

textbox4 / 30 / 7,5 = 2,22
varsayalım (combobox7 = "7,5")
2,22 * combobox7= 16,66
16,66 combobox4 eğer=100 * 2 = 33,33
16,66 combobox4 eğer=50 * 1,5 = 24,99

sonuc textbox6 ya yazacak


Not:
ekteki dosyayı formda örnek dosyalardan kendime uyarladım
emeği geçen tüm arkadaşlara teşekkür ediyorum
 
Son düzenleme:

1Al2Ver

Altın Üye
Katılım
5 Kasım 2007
Mesajlar
4,716
Excel Vers. ve Dili
64 Bit TR - Microsoft Office 365 - Win11 Home
Altın Üyelik Bitiş Tarihi
04-01-2026
Ben de forum'da "Textbox Boş İse" ismli başlıkla yazdığım mesajda sizinkine eş bir yardım talep etmiştim, ancak henüz cevap alamadım, bir çözüm bulunsanız paylaşırmısınız, teşekkür ederim.
 
Katılım
3 Kasım 2007
Mesajlar
84
Excel Vers. ve Dili
xp türkçe
arkadaşlar
bu hesaplamayı yapabilecek ustalar
yardım lütfen.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Ekli dosyayı inceleyiniz.:cool:
Kod:
Private Sub CommandButton7_Click()
Dim maas As Double, birim As Double, deg As Double, sonuc As Double
maas = CDbl(TextBox4.Value)
birim = maas / 30 / 7.5
deg = birim * CDbl(ComboBox7.Value)
If CDbl(ComboBox4.Value) = 100 Then
    TextBox6.Value = Format(deg * 2, "#,##0.00")
    ElseIf CDbl(ComboBox4.Value) = 50 Then
    TextBox6.Value = Format(deg * 1.5, "#,##0.00")
End If
End Sub
 

1Al2Ver

Altın Üye
Katılım
5 Kasım 2007
Mesajlar
4,716
Excel Vers. ve Dili
64 Bit TR - Microsoft Office 365 - Win11 Home
Altın Üyelik Bitiş Tarihi
04-01-2026
sayın Orion2 ve sayın Rıdvan01, yardımlarınız ve paylaşımınız için teşekkürler, saygılar
 
Katılım
3 Kasım 2007
Mesajlar
84
Excel Vers. ve Dili
xp türkçe
sn orion2

Kod:
Private Sub ComboBox7_AfterUpdate()
If IsNumeric(ComboBox7.Value) Then
    ComboBox7.Value = Format(ComboBox7.Value [COLOR="Red"]/ 10[/COLOR], "#,##0.00")
End If
End Sub
bu şekilde boxsa rakam girdiğimde /10
sonuç doğru olmuyor bunun sebebi ne?
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Combobox değilde textbox üzerinden mesai saatini giriniz.:cool:
Ekli dosyayı inceleyiniz.:cool:
 
Katılım
3 Kasım 2007
Mesajlar
84
Excel Vers. ve Dili
xp türkçe
sn orion2
teşekkür ederim

bu dosya ile ilgili bir sounla daha karşılaştım
aynı isimle birden fazla kayıt yaptıgımda listboxta seçtiğmde aynı kişinin bilgileri
textboxlara gelmiyor nedeni ne olabilir.


1. mesajdaki dosyayı güncelledim userform2 listbox u kontrol edebilirsiniz
 
Son düzenleme:

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Hekezin sicil numaraları farklı olmalı.
Dosyayı o şekilde güncelledim.
Ekli dosyayı inceleyiniz.:cool:
 
Katılım
3 Kasım 2007
Mesajlar
84
Excel Vers. ve Dili
xp türkçe
Hekezin sicil numaraları farklı olmalı.
Dosyayı o şekilde güncelledim.
Ekli dosyayı inceleyiniz.:cool:
sn orion2 ilgin için teşekkür ederim
oldukça fazla zamanını aldım fakat son eklemiş olduğunuz dosyada sorunun çözümüyle ilgili birşey farketmemiş
ilk mesajdaki dosyaya bakarsanız
userform2 listbox1 aynı isimde birden fazla kayıt yapılması gerek zaten burada sorun yok.
aynı isimde kayıt yaptığımda listboxtan seçim yaparak ilgili verileri textboxlara alırken aynı isimde olanların ilk sıradaki textboxlara geliyor aynı isimde olanların diğerleri textboxlara gelmiyor.

not. aynı isimde olanların sicil no ları aynı olmak zorunda
yanlışlık olmaması için manuel giriş izni vermedim

ben eksik ifade ediyo olabilirim
1. mesajımdaki dosya bakarsanız daha iyi anlaşılacaktır
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Sıra numarası verilmeli ve mutlaka sıra numaraları birbirinden farklı olmalı.:cool:
Ekli dosyayı inceleyiniz.:cool:
 
Katılım
3 Kasım 2007
Mesajlar
84
Excel Vers. ve Dili
xp türkçe
çok teşekkür ederim sn orion2
sanırım bir sorunum kalmadı

aynı isimde olanların toplam kazançları
süz ve yazdır deneyecegim benim için zor örneklere bi bakayım
tekrar teşekkürler yardımların için
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
çok teşekkür ederim sn orion2
sanırım bir sorunum kalmadı

aynı isimde olanların toplam kazançları
süz ve yazdır deneyecegim benim için zor örneklere bi bakayım
tekrar teşekkürler yardımların için
Rica ederim.
İyi çalışmalar.
Not : Size bir fikir vermesi açısından.
Ayni isimden toplam kazançlarını hesaplamak için ETOPLA (SUMIF)formülünü kullanabilirsiniz.:cool:
 
Üst