textboxta hesaplama

[Rıdvan01]

Selam arkadaşlar

iki sorunum var
1. userform1 combobox3 (sayfa1!a2:a hücresi) verilerini gösteriyor buradan isim seçtiğimde
hemen yanındaki
textbox6 (sayfa1!b2:b hücresi)
textbox5 (sayfa1!c2:c hücresi) ismin yanındaki verilerin gelmesi gerek
2. bu veriler geldiğinde diğer box lar veri girilerek sonuç textbox8 de gösterilecek
hesaplama şu şekilde olmalı

textbok5 değerini ----/30 ve/7,5 saatlik kazanç bulunacak bu sonuç
combobox4 eğer=50% *1,5;eğer=100% *2 çarpılarak 1saatlik mesai hesaplanmış olacak bu sonuç
textbox3 ile çarpılarak toplam kazancı bulunacak bu sonuç
textbox8 de gösterilecek
yardımlarınızı bekliyorum

dosyayı ekledim

 

[Rıdvan01]

arkadaşlar ben yeni başladım bu kodları yazmam mümkün değil
yardımlarınızı bekliyorum ilğilenen arkadaşlara teşekkür ederim.

 

[isfa5878]

Merhaba...

sorunuzun birinci kısmı

Private Sub ComboBox3_Click()
Set RID = [A:A].Find(ComboBox1, LookAt:=xlWhole)
If Not RID Is Nothing Then
TextBox6.Value = Cells(RID.Row, 2)
TextBox5.Value = Cells(RID.Row, 3)
End If
Set RID = Nothing
End Sub

 

[Rıdvan01]

Merhaba...

sorunuzun birinci kısmı

Private Sub ComboBox3_Click()
Set RID = [A:A].Find(ComboBox1, LookAt:=xlWhole)
If Not RID Is Nothing Then
TextBox6.Value = Cells(RID.Row, 2)
TextBox5.Value = Cells(RID.Row, 3)
End If
Set RID = Nothing
End Sub

sn ifsa5878
combobox ta seçtiğim verilerin devamı textbox lara gelmedi
sebebi bu olabilirmi. userforum1 açılınca sayfa2 aktif oluyor
veriler aktif sayfadan değil sayfa1 den gelecek

 

[isfa5878]

olabilir bir kontrol edeyim

 

[isfa5878]

Private Sub ComboBox3_Click()
Set RID = Sheets("Sayfa1").[A:A].Find(ComboBox1, LookAt:=xlWhole)
If Not RID Is Nothing Then
TextBox6.Value = Sheets("Sayfa1").Cells(RID.Row, 2)
TextBox5.Value = Sheets("Sayfa1").Cells(RID.Row, 3)
End If
Set RID = Nothing

End Sub

şeklinde değiştirelim...

combbobox3 te sayfa1 a:a görünmüyorsa yine hata verir.bildirin.

 

[isfa5878]

sayfa1 a:a görünsün kod u yoksa...

Combobox3 ün PROPERTİES ini açın
“ListFillRange” sekmesinin sağ tarafına “ Sayfa1!A:A “ yazın…

 

[Rıdvan01]

sayfa1 a:a görünsün kod u yoksa...

Combobox3 ün PROPERTİES ini açın
“ListFillRange” sekmesinin sağ tarafına “ Sayfa1!A:A “ yazın…

sn ifsa5878
yine olmadı. olmazza tarif ettiginiz şekli uygulayamadım sebebi

Combobox3 ün PROPERTİES ini açın
“ListFillRange” sekmesinin sağ tarafına “ Sayfa1!A:A “
PROPERTİES te bu sekmeyi bulamadım nasıl yapmam gerekir
bu sekmeyi nasıl bulabilirim?
ve daha hesaplamalar var

 

[kpolat]

Yanlışım varsa cehaletimi mazur görün;
"ListFillRange" sayfada açılan karma kutuda var, galiba combo nesnesi için "RowSource" kullanılıyor.

 

[isfa5878]

Combobox3 ün PROPERTİES ini açın
“ListFillRange” sekmesinin sağ tarafına “ Sayfa1!A:A “ yazın…

VBA da combobox3 ü sağ tıklayıp PROPERTİES sekmesinde çıkan listeden
"RowSource" i seçin "Sayfa1!A2:A5000" yazın
sizin gönderdiğiniz dosyada düzgün çalışmıyor kodlarınızı düzenlemeniz gerek
ekteki dosyadaki şekilde olması gerek.

 

[Rıdvan01]

sn ifsa5878
çok teşekkür ederim
ben daha çok yeniyim kodların anlamlarını bilmiyorum
bu çalışmayı excel formu takip ederek hazırladım ileride daha iyileri olacak
ilgin için tekrar teşekkür ederim