comboBox tan listbox a aktarma

[ferhat73]

arkadaşlar
ekteki dosyada
comboBox içindeki 3 kriterin listbox a aktarılma kodları
ile ilgili yardıma ihtiyacım var

iyi çalışmalar

 

[Necdet]

Merhaba,

Konuyu pek anlamamakla birlikte, fikir vermesi açısından birşeyler yaptım.

Private Sub ComboBox1_Change()
Dim Secim As String
Dim i As Long
Dim j As Integer
If ComboBox1.Value = "teslim edilmeyen daireler" Then
    Secim = "B"
ElseIf ComboBox1.Value = "taşınılan daireler" Then
    Secim = "T"
Else
    Secim = "A"
End If
 
For i = 7 To [D65536].End(3).Row
    For j = 4 To 24
        If Cells(i, j) = Secim Then
            ListBox1.AddItem Cells(i, j).Offset(0, -1).Value
        End If
    Next j
Next i
End Sub

 

[ferhat73]

Sn. Necdet bey
ilk olarak değerli zamanınızı yardım için ayırdığınız için teşekkür ederim.

istediğim şey olmuş fakat şöyle bir problem var

örneğin
userform comboBox ta teslim edilmeyen daireleri seçtiğimde listbox a bu daireler geliyor.
fakat
userform açık iken comboBoxta diğer bir alternatif mesala taşınılan daireleri seçtiğimde listbox değişmiyor.(teslim edilmeyen daireler aynen kalıyor)

eğer userform u kapatıp tekrar açıp diğer alternatifi seçer isem lisbox a doğru değerler geliyor.

bu problemi halledebilirseniz sevinirim

iyi çalışmalar

 

[ferhat73]

necdet bey
yeni farkettim ki
combobox içinde
1. alternatifi seçtiğimde listbox 1 sıralanıyor
2. alternatifi seçtiğimde listbox ta 1+2 sıralanıyor
3. alternatifi seçtiğimde listboxta 1+2+3 sıralanıyor
benim istediğim
1. alternatifi seçtiğimde listbox 1 sıralansın
2. alternatifi seçtiğimde listbox ta 2 sıralansın
3. alternatifi seçtiğimde listboxta 3 sıralansın

iyi çalışmalar

 

[Necdet]

Merhaba,

Malum Cuma akşamı yarın tatil, e hafiften de haftanın yorgunluğu da var, küçük bir ayrıntıyı atlamışım.

Private Sub ComboBox1_Change()
Dim Secim As String
Dim i As Long
Dim j As Integer
If ComboBox1.Value = "teslim edilmeyen daireler" Then
    Secim = "B"
ElseIf ComboBox1.Value = "taşınılan daireler" Then
    Secim = "T"
Else
    Secim = "A"
End If
[B][COLOR=red]ListBox1.Clear[/COLOR][/B]
For i = 7 To [D65536].End(3).Row
    For j = 4 To 24
        If Cells(i, j) = Secim Then
            ListBox1.AddItem Cells(i, j).Offset(0, -1).Value
        End If
    Next j
Next i
End Sub

 

[ferhat73]

necdet bey şimdi oldu
süpersiniz.

mümkünse son birşey rica ediyorum.

textbox 1 altında yeni textbox 2 oluşturdum.
burada herbir seçeneği işaretlediğimde
her bir seçenek için toplam görmek istiyorum

mesela
teslim edilmeyen daireler seçildiğinde 61
taşınılan daireler seçildiğinde ..
anahtarı teslim edilen daireler ...

 

[Necdet]

Tekrar merhaba,

Private Sub ComboBox1_Change()
Dim Secim As String
Dim i As Long
Dim j, [COLOR=red][B]Toplam[/B][/COLOR] As Integer
If ComboBox1.Value = "teslim edilmeyen daireler" Then
    Secim = "B"
ElseIf ComboBox1.Value = "taşınılan daireler" Then
    Secim = "T"
Else
    Secim = "A"
End If
[COLOR=red][B]Toplam = 0[/B][/COLOR]
ListBox1.Clear
For i = 7 To [D65536].End(3).Row
    For j = 4 To 24
        If Cells(i, j) = Secim Then
            ListBox1.AddItem Cells(i, j).Offset(0, -1).Value
            [B][COLOR=red]Toplam = Toplam + 1
[/COLOR][/B]        End If
    Next j
Next i
[COLOR=red][B]TextBox1 = Toplam
[/B][/COLOR]End Sub

 

[ferhat73]

süpersiniz
zamanınız var ise birşey daha isteyeceğim yok ise yarın da olur
listbox1 i alfabetik sıralayabilirmiyiz.
mesala taşınan daireler
Ahmet ....
Bekir....
.
.
.
Zafer ... vs
tekrar teşekkürler

 

[Necdet]

Merhaba,

AE sütununu sıralamak için kullandım. Buuble Sort kullanmak isterdim ama Türkçe harflerde sorun oluşturdu, onu çözemediğim için Kullanılmadığını sandığım AE sütununu kullandım, sıralamak için.

Private Sub ComboBox1_Change()
Dim Secim As String
Dim i As Long
Dim j, [COLOR=red][B]s[/B][/COLOR], Toplam As Integer
Application.ScreenUpdating = False
If ComboBox1.Value = "teslim edilmeyen daireler" Then
    Secim = "B"
ElseIf ComboBox1.Value = "taşınılan daireler" Then
    Secim = "T"
Else
    Secim = "A"
End If
Toplam = 0
ListBox1.Clear
For i = 7 To [D65536].End(3).Row
    For j = 4 To 24
        If Cells(i, j) = Secim Then
            [COLOR=red][B]s = s + 1
[/B][/COLOR]            [COLOR=red][B]Cells(s, "AE")[/B][/COLOR] = Cells(i, j).Offset(0, -1).Value
            Toplam = Toplam + 1
        End If
    Next j
Next i
[COLOR=red][B]Range("AE1:AE" & [AE65536].End(3).Row).Sort Key1:=[AE1][/B][/COLOR]
[COLOR=red][B]For i = 1 To [AE65536].End(3).Row
    ListBox1.AddItem Cells(i, "AE")
Next i[/B][/COLOR]
TextBox1 = Toplam
[COLOR=red][B]Range("AE:AE").Clear
[/B][/COLOR]Application.ScreenUpdating = True
End Sub
Private Sub ListBox1_Click()
End Sub

 

[ferhat73]

necdet bey merhaba
yardımlarınızdan dolayı
teşekkürler.


iyi çalışmalar

 

[Necdet]

Güle güle kullanınız Ferhat bey.