Ad Toplamını TEXTBOX ta gösterme

[Yesilyurtlu]

B2:B500 arasında ki B sütununda yer alan "aslı" yazanların toplamını textboxta aldırmak istiyorum.
BU konuda yardımcı olabilir misiniz?

 

[İhsan Tank]

B2:B500 arasında ki B sütununda yer alan "aslı" yazanların toplamını textboxta aldırmak istiyorum.
BU konuda yardımcı olabilir misiniz?

textbox'unuz sayfada ise

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:B500")) Is Nothing Then Exit Sub
TextBox1 = WorksheetFunction.CountIf(Range("B2:B500"), "aslı")
End Sub

bunu
userform'da ise

Private Sub UserForm_Initialize()
TextBox1 = WorksheetFunction.CountIf(Range("B2:B500"), "aslı")
End Sub

bu kodu kullanabilirsiniz

 

[Yesilyurtlu]

üSTADIM Bir değişiklik olmadı
Textbox sayfada olacak şekilde ama işlem tamamlanmadı

 

[İhsan Tank]

üSTADIM Bir değişiklik olmadı
Textbox sayfada olacak şekilde ama işlem tamamlanmadı

nasıl olur ben denedim bende rakamı çıkarttı.
dosyayı ekleyin bakalım

 

[Yesilyurtlu]

İhsan Abi hakkını helal et
İşlem Tamam
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:B500")) Is Nothing Then Exit Sub
TextBox1 = WorksheetFunction.CountIf(Range("B2:B500"), "aslı")
TextBox1 = WorksheetFunction.CountIf(Range("B2:B500"), "Koç")
End Sub

ekleyebilir miyiz?

 

[İhsan Tank]

bunu neye göre ekleyeceksiniz ama sorun orda

 

[Yesilyurtlu]

İhsan Abi
Yapmak istediğim şu
B2:B500 sütununda "Aslı" ile "koç" toplamı ayrı ayrı textboxlara aldırmak
aynı anda da C2:C500 aralığında ki mükerrer isimlerin kontrolunu yapmak
İlk olumsuz cevabımda Private Sub Worksheet_Change(ByVal Target As Range) çift olduğu için olmadı
Mükerrer kontrolu silip sizin vermiş olduğunuz makroyu yazdım oldu.

Allah rızası için Yukarıda belirttiğim işlemi birleştirebilir misiniz? Zahmetimi mazur görün nolur

 

[İhsan Tank]

dosyanızı eklermisiniz böyle anlamıyorum ne yapacağımı_?
mükerrer kontrolu mü yapacağım saydırmama mı yapacağım
her ikisinide yapacaksam neye göre yapacağım hele bir görem hakkım değil mi_?

 

[Yesilyurtlu]

İhsan Abi
B sütununu Aslı ve Koç olarak toplamlarını aldırıp
C sütununa göre mükerrer kontrolu yapmak istiyorum. Yani anlatmak istediğim buydu ama beceremedim.

 

[İhsan Tank]

c sütununda veri yok nasıl olacak
diğer sorunuz için

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:B500")) Is Nothing Then Exit Sub
TextBox1 = WorksheetFunction.CountIf(Range("B2:B500"), "aslı")
TextBox2 = WorksheetFunction.CountIf(Range("B2:B500"), "Koç")
End Sub

bu işinizi görür

 

[Yesilyurtlu]

ihsan abi veri dediğinde ne var ki ben size silinmiş halini gönderdim.
Esas dosya da C sütununda ad ve soyad yazılı bir sürü veri var
Yeterki c sütununa aynı adı bir daha yazmayayım

 

[İhsan Tank]

ne demek istediğini inan anlamıyorum.
ya sen anlatamıyorsun yada ben anlamıyorum
bundan sonra başkası ilgilensin siz kendi bildiğinizi okuyorsunuz ondan sonra yardım istiyorsun.

 

[Yesilyurtlu]

İhsan abi
Sadece C sütununda ad ve soyad yazılı olacak ve c sütununda yazılan ad ve soyad yeter ki mükerrer yazılmasın.
Ama yinede yardımlarınız için teşekkür ederim.
Allah razı olsun

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz. C sütununa isim yazdığınızda mükerrerse uyarı verecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C2:C65536")) Is Nothing Then Exit Sub
    If WorksheetFunction.CountIf(Range("C:C"), Target) > 1 Then
        MsgBox "Mükerrer kayıt !" & Chr(10) & "Lütfen kontrol ediniz !", vbCritical
        Target.ClearContents
        Target.Select
        Exit Sub
    End If
End Sub

 

[Orion1]

textboxlar için b sütunu toplama çalışma sayfasına change olayına,
C sütunu mükerrer kayıt engelllemek için veri doğrulama.
Dosyanız ektedir.
veri doğrulama formül:
C2 hücresine aşağıdaki formülü veri doğrulama özel kısmına yazıp aşağı doğru kopyalayınız.
=EĞERSAY($C$2:$C2;$C2)<2

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:B65536")) Is Nothing Then Exit Sub
On Error Resume Next
sat = Cells(65536, "B").End(xlUp).Row + 1
TextBox1.Text = 0
TextBox2.Text = 0
TextBox1.Text = Format(WorksheetFunction.CountIf(Range("B2:B" & sat), "Aslı"), "#,##0")
TextBox2.Text = Format(WorksheetFunction.CountIf(Range("B2:B" & sat), "Koç"), "#,##0")
End Sub

 

[Yesilyurtlu]

Korhan Uzmanıma ve Evren Uzmanıma Teşekkür Ederim.
Ellerinize sağlık .