Hücredeki değeri de dikkate alarak toplama

[ocamsul]

Arkadaşlar hepinizi iyi günler, iyi akşamlar, benim sorum; Formda TextBox a girdiğimiz değer ComboBox ile seçilen birime göre Sayfa1 deki ilgili tutarın üzerine toplayarak ekleme işlemi yapmak istiyorum yani TextBox + F sütunundaki ilgili birime denk gelen hücre)

 

[Levent Menteşoğlu]

Kaydet butonuna aşağıdaki kodu kopyalayın.

Private Sub CommandButton1_Click()
sat = [d1:d65536].Find(ComboBox1).Row
Cells(sat, "f") = Cells(sat, "f") + CDbl(TextBox1)
End Sub

 

[ileriexcel]

Private Sub ComboBox1_Change()
Cells(ComboBox1.ListIndex + 1, 4).Select
End Sub

Private Sub CommandButton1_Click()
ActiveCell.Offset(0, 2) = TextBox1.Value + ActiveCell.Offset(0, 2).Value
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "d1:d" & WorksheetFunction.CountA([d1:d65000])
End Sub

 

[Kemal Demir]

iyi akşamlar ocamsul,

Ek'teki Örneği inceleyiniz.

Gördüm ki, 6 - 7 gunde körelmişim valla.

 

[ocamsul]

SN: leventm, Rakkas ve ileriexcel verdiğiniz bilgiler için ve ilginize çok teşekkür ederim. her cevap da işimi gördü.