Combobox yardımı

[Deathworm]

Merhaba ustadlar benim combobox hakkında yardıma ihiyacım var yardımcı olursanız sevinirim. arama yaptım uygulamalarını yaptım ama istediğini sonucu aladım.tabikide bu benden kaynaklanıyorum ama sizlerinde yardımcı olmanıza kanaat ederek konu actım.


Ekteki dosyada acıklama yapmış bulunmaktayım . Konuyu anlatımlı sekilde yardımcı olursanız diğer uygulayacagım seylerde sizlerin tekrar tekrar kafanızı agrıtmıs olmam simdide yardımlarınız icin cok tsk ederim

 

[Altay3555]

Dosyanızda birşeyler yazmadığından sonuçsuz kalmış.

 

[Deathworm]

Altay3555 AÇIK/FAZLA yazan sutunda acıklama olarak yazmıstım dosyanın icine

 

[tukayf]

bu sitedeki dosyalar iççin ilk defa mcafe uyarı verdi bende indirmedim. dosyayı bi kontrol edin hocam isterseniz.

 

[Deathworm]

Tekrardan Yükledim umarım bu sefer sıkıntı olmaz sizin için

 

[Orion1]

Dosyanız ektedir.

Private Sub Workbook_Open()
Sayfa1.ComboBox1.Clear
Sayfa1.ComboBox1.AddItem "POZİTİF"
Sayfa1.ComboBox1.AddItem "NEGATİF"
Sayfa1.ComboBox1.AddItem "ZERO"
Sayfa1.ComboBox1.AddItem "HEPSİ"
Sayfa1.ComboBox1.ListIndex = Sayfa1.ComboBox1.ListCount - 1
Call Sayfa1.ComboBox1_Click
End Sub

Sub ComboBox1_Click()
Dim sat As Long
Range("A1").AutoFilter
sat = Cells(65536, "A").End(xlUp).Row
If sat < 2 Then Exit Sub
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If ComboBox1.Value = "POZİTİF" Then
    Range("A1").AutoFilter field:=9, Criteria1:=">0"
    ElseIf ComboBox1.Value = "NEGATİF" Then
    Range("A1").AutoFilter field:=9, Criteria1:="<0"
    ElseIf ComboBox1.Value = "ZERO" Then
    Range("A1").AutoFilter field:=9, Criteria1:="=0"
End If
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
End Sub

 

[Deathworm]

Enveer bey bilginizin paylasımı icin cok tsk ederim cok faydalı oldu. ayrıca kısa olarak akabinde bir yardım daha istesem yardımcı olabilirmisiniz bilginiz paylasarak.

Yardım isteyeceğim konu :

Mesala tutar kısmında combobox ta

all
(top 100.)
(custom..)
-3.3
-3

şeklinde düzenli nasıl oluşturabiliyoruz o konuda bilginiz almak icin sizi rahatsız edeceğim kusura bakmayın mümkünse

 

[Orion1]

Otomatik filtre uygulayınız.
forumda otomatik filtre diye arama yapınız.

Enveer bey bilginizin paylasımı icin cok tsk ederim cok faydalı oldu. ayrıca kısa olarak akabinde bir yardım daha istesem yardımcı olabilirmisiniz bilginiz paylasarak.

Yardım isteyeceğim konu :

Mesala tutar kısmında combobox ta

all
(top 100.)
(custom..)
-3.3
-3

şeklinde düzenli nasıl oluşturabiliyoruz o konuda bilginiz almak icin sizi rahatsız edeceğim kusura bakmayın mümkünse