Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 09-02-2018, 12:57   #1
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 12:58 itibariyle rastbin tarafından düzenlenmiştir.... Neden: kod hatası değiştirildi
rastbin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-02-2018, 22:19   #2
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 10,430
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

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.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosyaupload.com gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-02-2018, 11:59   #3
rastbin
 
Giriş: 14/10/2017
Şehir: istanbul
Mesaj: 14
Excel Vers. ve Dili:
excel 2016
Varsayılan

Alıntı:
Ömer BARAN tarafından gönderildi Mesajı Görüntüle
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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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.
rastbin Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 08:48


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat- Çorlu Su Arıtma- Çorlu Kompresör- İstanbul İnşaat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden