Tekrar eden satırlarım teke düşsün.(Araç Markaları)

[rastbin]

Arkadaşlar merhaba,

araçlar diye bir sayfam var.ben buraya araç markalarını ve modellerini ekliyorum.şöyle bir sorunum var.

mesela bmw den 3 arabam var fakat modelleri farklı.combobox dan markalara tıklayınca 3 tane bmw geliyor.ben istiyorum ki tek bmw gelsin ve modellerinde 3 model çıksın.nasıl yapabilirim acaba.şöyle bir kod buldum fakat bende çalışmadı.

yardım edebilirmisiniz.

a1 kolonunda başlıklarım var.marka ve modeller a2 kolonundan başlıyor.

Sheets("Araçlar").Select
Dim k As Long
For k = 2 To Cells(65000, "a").End(xlUp).Row
    If WorksheetFunction.CountIf(Range("a2:a" & k), Cells(k, "a").Value) = 1 Then
        cmbMarka.AddItem Cells(k, "a").Value
End If
Next k

 

[Ömer BARAN]

Anladığım kadarıyla verdiğiniz kod, UserFormdaki bir cmbMarka olarak adlandırdığınız bir Combobox'a veri alma kodları.

Ancak; gereksiz mesajlar yazılmasını önlemek ve daha kısa sürede sonuca ulaşmanız için sorunuzu,
anlamlı veriler içeren örnek belge üzerinden sorarsanız daha hızlı sonuca ulaşabilirsiniz.
(kullanılan userform ve en azından ilgili UserFormun Initalize kodları içerisinde olsun)

Örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.
.

 

[rastbin]

Anladığım kadarıyla verdiğiniz kod, UserFormdaki bir cmbMarka olarak adlandırdığınız bir Combobox'a veri alma kodları.

Ancak; gereksiz mesajlar yazılmasını önlemek ve daha kısa sürede sonuca ulaşmanız için sorunuzu,
anlamlı veriler içeren örnek belge üzerinden sorarsanız daha hızlı sonuca ulaşabilirsiniz.
(kullanılan userform ve en azından ilgili UserFormun Initalize kodları içerisinde olsun)

Örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.
.

teşekkür ederim yanıtladığınız için.çok uğraştım ve sonuca vardım.

Private Sub cmbMarka_Change()
Sheets("Araçlar").Select
say = Application.CountA([a:a])
cmbModel.Clear
For i = 2 To say
    If WorksheetFunction.CountIf(Range("b2:b" & i), Cells(i, "b").Value) = 1 And cmbMarka.Value = Range("a" & i) Then
    cmbModel.AddItem (Range("b" & i))
End If
Next i
End Sub

teşekkür ederim ilginiz için.