sütuna göre kdv hesaplama

[Fuat Şirin]

arkadaşlar
yaptığım çalışmada bir yerde tıkandım
girişleri yapıyorum form üzerinden

B sütununda parti numarası var
F sütunundada tutarlar var

ben textbox a parti numarası girip
F sütunundaki toplamlarını
diğer textboxta görmek istiyorum
yardımcı olursanız çok teşekkür ederim

 

[DeliBalta58]

eki inceleyiniz.

Private Sub TextBox1_Change()
Dim Aranan As String
Dim Satir As Integer
Aranan = TextBox1.Value
If Aranan = "" Then Exit Sub
Satir = Worksheets("Sayfa1").Range("B:B").Cells.Find(Aranan, Worksheets("Sayfa1").Range("B65000"), xlFormulas, xlPart, xlByRows, xlNext, False, False).Row
TextBox2.Value = Worksheets("Sayfa1").Range("F" & Satir)

 

[Fuat Şirin]

hocam şöleki mesela
2 tane 3 tane aynı partiden olursa

111 500
111 400

gibi

bunu 111 900
olarak alabilirmiyiz

 

[DeliBalta58]

O zaman combobox kullanmalısınız.
Textbox1 yerine Combobox'dan seçim yaptırmalısınız

 

[DeliBalta58]

Dosyanız ekte

Private Sub ComboBox1_Change()
Dim Aranan As String
Dim Satir As Integer
Aranan = ComboBox1.Value
If Aranan = "" Then Exit Sub
Satir = Worksheets("Sayfa1").Range("B:B").Cells.Find(Aranan, Worksheets("Sayfa1").Range("B65000"), xlFormulas, xlPart, xlByRows, xlNext, False, False).Row
TextBox2.Value = Worksheets("Sayfa1").Range("F" & Satir)
End Sub

Private Sub UserForm_Activate()
say = WorksheetFunction.CountA(Range("B1:B65000"))
ComboBox1.RowSource = "Sayfa1!B2:B" & say + 1
End Sub

 

[Fuat Şirin]

herhalde yanlış anladınız

ben aynı parti olanların tutarlarını toplasın istiyorum

yani


111 200
111 150
111 300
112 450
112 200


ben hangi partiyi seçersem
örneğin
112 yi seçtim bana 650 yazması lazım
ben bunu istiyorum saygılar

 

[Fuat Şirin]

arkadaşlar yardım edecek yok mu?

 

[Fuat Şirin]

arkadaşlar lütfen yardım edersek
çok makbule geçer