Textbox'lar ile Topla.Çarpım ve Sonuç gösterilmesi

[yselimyilmaz]

Selam arkadaşlar;

Excel çalışma sayfamda şu formülü kullanıyorum;
TOPLA.ÇARPIM((Sayfa1!$A$2:$A$2557=Data1!A2)*(Sayfa1!$E$2:$E$2557))

Yukarıdaki formülü makro ile Userform'da kullanmak istiyorum.

Sayfa1!$A$2:$A$2557 = Verilerin olduğu sütun (aranan değerin bulunacağı aralık)
Data1! = Userform'umda TexBox34 ( araması yapılacak değer)
Sayfa1!$E$2:$E$2557 = Aranan değer bulununca işlem yapılacak aralık

aranacak değer sadece rakamlardan, sadece harflerden veya rakam ve harf karışık olabilir.

Formül işlemi sonucunu Userform'da TextBox33 e yazacak


İnşallah anlatabildim, şimdiden teşekkürler,

 

[muygun]

Merhaba;
Userformun kod kısmına;

Private Sub CommandButton1_Click()
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
TextBox33 = WorksheetFunction.SumIf(s1.Range("a2:a2557"), TextBox34.Value, s1.Range("e2:e2557"))
End Sub

Kodlarını yerleştirerek deneyin.
İyi çalışmalar.

 

[yselimyilmaz]

muygun, yardımınız için teşekkür ederim. Kod sorunsuz çalıştı.

Aynı formülü yada makroyu listbox1 in içinde arama yaptırarakta texbox35 yazdırabilirmiyiz.

Aranacak değer; Texbox34
Aranacak yer; Listbox1 Birinci kolonun tümü
Hesaplanacak yer; Listbox1 Beşinci kolonda
Sonucun gösterileceği yer; TextBox35

 

[muygun]

Merhaba;

Private Sub CommandButton2_Click()
On Error Resume Next
TextBox35 = ""
For i = 0 To ListBox1.ListCount
If ListBox1.List(i, 0) = Controls("TextBox34") Then
TextBox35 = ListBox1.List(i, 4)
End If
Next i
End Sub

Şeklinde deneyin.

İyi çalışmalar.

 

[yselimyilmaz]

Sanırım benim anlatım eksikliğim oldu. Vermiş olduğunuz kodu denedim ama TOPLA.ÇARPIM işlemi yapmıyor.

İlginize Teşekkürler

 

[muygun]

Merhaba;
Küçük bir rütuşla isteğiniz tamamlanır.

Private Sub CommandButton2_Click()
On Error Resume Next
TextBox35 = "": topp = 0
For i = 0 To ListBox1.ListCount
If ListBox1.List(i, 0) = Controls("TextBox34") Then
topp = topp + ListBox1.List(i, 4)
End If
Next i
TextBox35 = topp
End Sub

Deneyin.
İyi çalışmalar.

 

[yselimyilmaz]

Sayın muygun,

Çok çok teşekkür ederim.

O küçük rütuşunuz iki gündür yapmak istediğim ve formlarda araştırdığım bir sorunu anında çözdü.


Yeni sorularda görüşmek üzere..