Combox seçilen değere göre

[storm06]

Merhaba arkadaşlar biraz yeniyim ve yapmak istediğim şu:

bir form oluşturdum ve üzerinde combobox,textbox ve command butonu var.
combobox içinde 3 ayrı eleman ismi var
comboxtan eleman ismi seçip textbox a benden aldığı avansı yazıp kaydet dediğimde

ilgili sayfa4 ün
a1 de ayşe
a2 de mehmet
a3 de ali var.

combobox ta da aynı isimler mevcut.Şimdi ben combox tan ayşe yi seçip
textbox a avansını yazdığımda kaydet dedikten sonra sayfa4 ün ayşenin karşısına (a2) ye aldığı avansları nasıl toplatabilirim.

aynı işlemi combobox ta mehmeti seçtiğimde de yapabilmeliyim tabi.

İlginiz için şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Örnek dosya ekleyiniz.

. . .

 

[storm06]

İlginize teşekkürler hocam dosya ekte

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
    MsgBox "Lütfen avansı giriniz!!", vbCritical, "U Y A R I"
    TextBox1.SetFocus
    Exit Sub
End If
If IsNumeric(TextBox1.Text) Then
    Sheets("Sayfa1").Cells(ComboBox1.ListIndex + 4, "B").Value = _
    Sheets("Sayfa1").Cells(ComboBox1.ListIndex + 4, "B").Value + CDbl(TextBox1.Text)
End If
End Sub

 

[Emir Hüseyin Çoban]

. . .

Örnek çalışmaya Sayfa4 ekledim.

Private Sub CommandButton1_Click()
son = Sayfa4.[a65536].End(3).Row

For i = 1 To son
If ComboBox1 = Sayfa4.Cells(i, "a") Then
Sayfa4.Cells(i, "b") = Sayfa4.Cells(i, "b") + TextBox1
Else
End If
Next i

End Sub

. . .

 

[storm06]

teşekkürler hocam ama asıl hazırlamaya çalıştığım dosyaya entegre edemedim
Yinede çok sağolun

 

[Orion1]

teşekkürler hocam ama asıl hazırlamaya çalıştığım dosyaya entegre edemedim
Yinede çok sağolun

ben userfomun initialize olayına combonun veri alma olayını değiştirdim.
rowsource ile aldım.,
o yüzden hata vermişse on sebettendir.
sizde initialize kodunuzu benimki ile değiştieriniz.