Yalnız Mesajı Göster
Eski 09-02-2018, 13:57  
rastbin
 
Giriş: 14/10/2017
Şehir: istanbul
Mesaj: 14
Excel Vers. ve Dili:
excel 2016
Varsayılan Tekrar eden satırlarım teke düşsün.(Araç Markaları)

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.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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

Bu mesaj en son " 09-02-2018 " tarihinde saat 13:58 itibariyle rastbin tarafından düzenlenmiştir.... Neden: kod hatası değiştirildi
rastbin Çevrimdışı   Alıntı Yaparak Cevapla