sumif toplamada textboxtaki değişkeni atama?

[pitsss]

arkadaşlar.
makro ile sum if kullanmak istiyorum ancak başarılı olamıyorum.
istediğim olay şu:

Set kom = Sheets("kayıtçıkış")

adı= ALAN02.Value

TextBox1 = WorksheetFunction.SumIf(kom.Range("e2:e14"), adı, kom.[g2:g14])

yukarıdaki kod da sistem e2 :e14 aralığına bakacak. eğer adı şeklindeki değişkene uygun fdeğer bulursa g2 g14 aralığındaki uygun değerleri toplayacak.

ancak ben buradaki adı yazan yere değişken atamak istiyorum. ve bu değişken textboxun içindeki değer olack bunu nasıl yapabilirim?

 

[kulomer46]

ben aşağıdaki şekilde yaptım çalıştı, birde siz deneyin..

TextBox2 = WorksheetFunction.SumIf(Sayfa1.Range("b2:b13"), TextBox1.Value, Sayfa1.[c2:c13])

 

[emrexcel123]

etopla

arkadaşım bir de şu şekilde dener misin bir sorun veriyor mu ?
..........................
adı = ALAN02.Value
TextBox1 = WorksheetFunction.SumIf(Sheets("kayıtçıkış").Range("e2:e14"), adı, Sheets("kayıtçıkış").Range("g2:g14"))
..........................
son.....................

 

[pitsss]

ben aşağıdaki şekilde yaptım çalıştı, birde siz deneyin..

TextBox2 = WorksheetFunction.SumIf(Sayfa1.Range("b2:b13"), TextBox1.Value, Sayfa1.[c2:c13])

öncelikle cevabınız için teşekkür ederim.ama malesef ben kodu gerekli yere koymama rağmen çalıştıramadım.
o yüzden dosya ekliyorum. belki daha iyi olur.
benim istediğim. müşteriler butonuna tıklayınca. en son müşteri geliyor.
mesela ben ik kayıt butonuna tıklayınca huso simli kişinin bilgileri geliyor diyelim. bu bilgiler gelir gelmez. textbox1 e de toplam gelebilir mi acaba?

 

[pitsss]

arkadaşım bir de şu şekilde dener misin bir sorun veriyor mu ?
..........................
adı = ALAN02.Value
TextBox1 = WorksheetFunction.SumIf(Sheets("kayıtçıkış").Range("e2:e14"), adı, Sheets("kayıtçıkış").Range("g2:g14"))
..........................
son.....................

malesef bunu da denedim. ancak . sonuç alamadım.

değişken yerine ( yani adı değişkeni yerine ) şöyle yazsam oluyor. "=huso" ancak bu seferde . sadece bir kayıt için olmuş oluyor :S

 

[pitsss]

arkadaşlar sorunumu hallettim.
şöyleki.
ekli dosyadaki makro kısmındaki
Private Sub UserForm_Initialize()
bunun altına yazıyordum kodu.
onun yerine.
Sub VeriAl()
ın altına
şu şekilde kaydettim oldu.

adı = ALAN02.Value
TextBox1 = WorksheetFunction.SumIf(Sheets("kayıtçıkış").Range("e2:e14"), adı, Sheets("kayıtçıkış").Range("g2:g14"))

ilgilenen herkese teşekkürler..