• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Texbox'a Adet Girme

  • Konbuyu başlatan Konbuyu başlatan cihako
  • Başlangıç tarihi Başlangıç tarihi
C

cihako

Katılım
12 Mayıs 2007
Mesajlar
54
Excel Vers. ve Dili
excel 2003 english
Arkadaşlar merhaba,

Ek'te belirtilen dosyada Sayfa1'de bulunan değerleri user forma aktarma çalışmam vardır.

Bu çalışmada Sayfa1'de bulunan 803 adet satır vardır. Üç tane listbox'ta

Listbox1 'de Tüm Seri
Listbox2 'de Hepsi
Listbox3 'de Hepsi seçtiğimde Textbox'ta 803 yazmasını istiyorum

Listbox1 'de Alva Plus
Listbox2 'de Hepsi
Listbox3 'de Hepsi seçtiğimde Sayfa1 'de B kolonunda bulunan 143 adet Alva Plus sayısını sayıp Texbox ' 143 yazmasını istiyorum.

Bunlar döngü şeklinde olmasını istiyorum.

Konu hakkında yardımcı olabilir misiniz?
Desteğiniz için teşekkürler
 

Ekli dosyalar

cihako' Alıntı:
Arkadaşlar merhaba,

Ek'te belirtilen dosyada Sayfa1'de bulunan değerleri user forma aktarma çalışmam vardır.

Bu çalışmada Sayfa1'de bulunan 803 adet satır vardır. Üç tane listbox'ta

Listbox1 'de Tüm Seri
Listbox2 'de Hepsi
Listbox3 'de Hepsi seçtiğimde Textbox'ta 803 yazmasını istiyorum

Listbox1 'de Alva Plus
Listbox2 'de Hepsi
Listbox3 'de Hepsi seçtiğimde Sayfa1 'de B kolonunda bulunan 143 adet Alva Plus sayısını sayıp Texbox ' 143 yazmasını istiyorum.

Bunlar döngü şeklinde olmasını istiyorum.

Konu hakkında yardımcı olabilir misiniz?
Desteğiniz için teşekkürler
Genişletmek için tıkla ...

merhaba
listbox3'un kod bölümüne
Kod: 
Private Sub ListBox3_Click()
Dim ts, kaplan
kaplan = 0
If ListBox1 = "Tüm Seri" And ListBox2 = "Hepsi" _
And ListBox3 = "Hepsi" Then
TextBox1 = WorksheetFunction.CountA(Range("A:A"))
End If
For ts = 2 To Cells(65536, "A").End(xlUp).Row
If Cells(ts, "B") = ListBox1 And ListBox2 = "Hepsi" _
And ListBox3 = "Hepsi" Then
kaplan = kaplan + 1
TextBox1 = kaplan
ElseIf Cells(ts, "B") = ListBox1 And Cells(ts, "C") = ListBox2 _
And ListBox3 = "Hepsi" Then
kaplan = kaplan + 1
TextBox1 = kaplan
ElseIf Cells(ts, "B") = ListBox1 And Cells(ts, "C") = ListBox2 _
And Cells(ts, "F") = ListBox3 Then
kaplan = kaplan + 1
TextBox1 = kaplan
End If
Next
End Sub
bu kodu kopyalayın ve deneyin.
Listbox3'te seçim yaptıktan sonra sayım başlar
 
İhsan Bey yardımlarınız için teşekkür ederim
 
İhsan Bey merhaba,

Bir sorun daha olacaktı.
Ek'te verdiğim örnekte Listbox2 'de herhangi bir seçeneği seçtiğimde Ek'teki resimde örnek olarak verdiğim gibi
listbox1 Alva Plus seçili
listbox2 Junda seçili
listbox3 hangisini seçersem seçtiğim değerin adeti texboxta yazıyor (bkz Resim 1)

ancak

listbox1 Alva Plus seçili
listbox2 Hepsi seçili
listbox3 hangisini seçersem seçeyim hep hepsi değeri adeti texboxta yazıyor

(Resim 2 'de listbox3 'de Hepsi seçilince 143 değeri gözüküyor doğru.)
(Resim 3 'de listbox3 'de Deterjan Çekmecesi seçilince de 143 gözüküyor normalde 4 değeri gözükmesi gerekmektedir.)

Yardımlarınız için şimdiden teşekkür ederim.
 

Ekli dosyalar

  • Örnek.xls
    Örnek.xls
    133.5 KB · Görüntüleme: 3
  • Resim 1.jpg
    Resim 1.jpg
    97.7 KB · Görüntüleme: 2
  • Resim 2.jpg
    Resim 2.jpg
    99.9 KB · Görüntüleme: 1
  • Resim 3.jpg
    Resim 3.jpg
    96.8 KB · Görüntüleme: 0
cihako' Alıntı:
İhsan Bey merhaba,

Bir sorun daha olacaktı.
Ek'te verdiğim örnekte Listbox2 'de herhangi bir seçeneği seçtiğimde Ek'teki resimde örnek olarak verdiğim gibi
listbox1 Alva Plus seçili
listbox2 Junda seçili
listbox3 hangisini seçersem seçtiğim değerin adeti texboxta yazıyor (bkz Resim 1)

ancak

listbox1 Alva Plus seçili
listbox2 Hepsi seçili
listbox3 hangisini seçersem seçeyim hep hepsi değeri adeti texboxta yazıyor

(Resim 2 'de listbox3 'de Hepsi seçilince 143 değeri gözüküyor doğru.)
(Resim 3 'de listbox3 'de Deterjan Çekmecesi seçilince de 143 gözüküyor normalde 4 değeri gözükmesi gerekmektedir.)

Yardımlarınız için şimdiden teşekkür ederim.
Genişletmek için tıkla ...

merhaba
öyle bir koşul belirtmemiştiniz bende o yüzden yapmadım
Kod: 
Private Sub ListBox3_Click()
Dim ts, kaplan
kaplan = 0
If ListBox1 = "Tüm Seri" And ListBox2 = "Hepsi" _
And ListBox3 = "Hepsi" Then
TextBox1 = WorksheetFunction.CountA(Range("A:A"))
End If
For ts = 2 To Cells(65536, "A").End(xlUp).Row
If Cells(ts, "B") = ListBox1 And ListBox2 = "Hepsi" _
And ListBox3 = "Hepsi" Then
kaplan = kaplan + 1
TextBox1 = kaplan
ElseIf Cells(ts, "B") = ListBox1 And Cells(ts, "C") = ListBox2 _
And ListBox3 = "Hepsi" Then
kaplan = kaplan + 1
TextBox1 = kaplan
ElseIf Cells(ts, "B") = ListBox1 And Cells(ts, "C") = ListBox2 _
And Cells(ts, "F") = ListBox3 Then
kaplan = kaplan + 1
TextBox1 = kaplan
ElseIf Cells(ts, "B") = ListBox1 And "Hepsi" = ListBox2 _
And Cells(ts, "F") = ListBox3 Then
kaplan = kaplan + 1
TextBox1 = kaplan
End If
Next
End Sub
bunu deneyin
 
çok teşekkür ederim yardımlarınız için
 
İhsan Bey merhaba,

Konu hakkında sizi yordum kusura bakmayın son sorum olacaktı.

Listbox1 de Alva , Alva Plus seçildiğinde diğer listboxlardaki değerler doğru olarak değişiyor. Resim 1 ve Resim 2 deki gibi

Ancak Listbox1 de Tüm Seri yi seçince diğer listboxlardaki değerler değiştiğinde adet miktarı değişmiyor . Resim 3 ve Resim 4 deki gibi

Konu hakkında yardımcı olabilir misiniz?

Yardımlarınız için şimdideden teşekkür ederim.
 

Ekli dosyalar

  • Resim 1.jpg
    Resim 1.jpg
    27.7 KB · Görüntüleme: 3
  • Resim 2.jpg
    Resim 2.jpg
    29.7 KB · Görüntüleme: 1
  • Resim 3.jpg
    Resim 3.jpg
    29.4 KB · Görüntüleme: 1
  • Resim 4.jpg
    Resim 4.jpg
    30.1 KB · Görüntüleme: 1
cihako' Alıntı:
İhsan Bey merhaba,

Konu hakkında sizi yordum kusura bakmayın son sorum olacaktı.

Listbox1 de Alva , Alva Plus seçildiğinde diğer listboxlardaki değerler doğru olarak değişiyor. Resim 1 ve Resim 2 deki gibi

Ancak Listbox1 de Tüm Seri yi seçince diğer listboxlardaki değerler değiştiğinde adet miktarı değişmiyor . Resim 3 ve Resim 4 deki gibi

Konu hakkında yardımcı olabilir misiniz?

Yardımlarınız için şimdideden teşekkür ederim.
Genişletmek için tıkla ...

doğru bunlar çalışmaz sebebi şu : siz kriter olarak belirtmediniz bunlar bunlar olsun diye. tam denemeyi yapın ve şunlar eksik diye bildirin ona göre tam düzenlemeyi yapıp göndereyim.
 
İhsan Bey,

Başka düzeltme isteğim yok. yardımlarınız için teşekkür ederim.
 
cihako' Alıntı:
İhsan Bey,

Başka düzeltme isteğim yok. yardımlarınız için teşekkür ederim.
Genişletmek için tıkla ...

merhaba
Kod: 
Private Sub ListBox3_Click()
Dim ts, kaplan
kaplan = 0
If ListBox1 = "Tüm Seri" And ListBox2 = "Hepsi" _
And ListBox3 = "Hepsi" Then
TextBox1 = WorksheetFunction.CountA(Range("A:A"))
End If
For ts = 2 To Cells(65536, "A").End(xlUp).Row
If ListBox1 = "Tüm Seri" Then
If Cells(ts, "C") = ListBox2 And Cells(ts, "F") = ListBox3 Then
kaplan = kaplan + 1
TextBox1 = kaplan
End If
ElseIf ListBox1 = "Tüm Seri" And ListBox2 = hepsi Then
If Cells(ts, "F") = ListBox3 Then
kaplan = kaplan + 1
End If
End If
If Cells(ts, "B") = ListBox1 And ListBox2 = "Hepsi" _
And ListBox3 = "Hepsi" Then
kaplan = kaplan + 1
TextBox1 = kaplan
ElseIf Cells(ts, "B") = ListBox1 And Cells(ts, "C") = ListBox2 _
And ListBox3 = "Hepsi" Then
kaplan = kaplan + 1
TextBox1 = kaplan
ElseIf Cells(ts, "B") = ListBox1 And Cells(ts, "C") = ListBox2 _
And Cells(ts, "F") = ListBox3 Then
kaplan = kaplan + 1
TextBox1 = kaplan
End If
Next
End Sub
bunu dener misiniz
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst