Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Makro-VBA (http://www.excel.web.tr/forumdisplay.php?f=48)
-   -   Tekrar eden satırlarım teke düşsün.(Araç Markaları) (http://www.excel.web.tr/showthread.php?t=170427)

rastbin 09-02-2018 12:57

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:

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 09-02-2018 22:19

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 10-02-2018 11:59

Alıntı:

Ömer BARAN tarafından gönderildi (Mesaj 929689)
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.

Kod:

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.


Saat 23:26

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.