[Yardım]  Benzersizleri tabloya listeleme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Benzersizleri tabloya listeleme

İleti#1)  hamidgf » 08 Haz 2018 03:54

Merhaba,

Sürekli veri girişi yaptığım bir tablom(tablo1) var, tablo1-sütun1'e veri girdiğimde tablo1-sütun2 ye girdiğim verinin türünü tablo2 den çekip yazıyor.
"At -Hayvan
Kiraz -Meyve " gibi.

Toplu veri girişinde kategorilemeyi kolay yapabilmek adına Tablo-1 de kategorisiz kalmış yeni verilerin benzersizlerini, tablo2 sonuna ekleyip hızlıca kategorileme yapmak istiyorum.

Örnek çalışma ektedir, yardımlarınız için şimdiden teşekkürler iyi forumlar.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
hamidgf
Yeni Başlamış
 
Kayıt: 01 Mar 2018 15:02
Meslek: Harita Mühendisi
Yaş: 25
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kırşehir

Cevap: Benzersizleri tabloya listeleme

İleti#2)  Yasin KURT » 08 Haz 2018 09:46

Bu kodu deneyebilirsiniz. Kendi çalışmanıza uyarlayabilirsiniz.
Kod: Tümünü seç
Sub Deneme()
Dim sd As Object, a as integer
Set sd = CreateObject("Scripting.Dictionary")
With sd
    For a = 3 To 29
    If Cells(a, "c").Text = "#YOK" Then
        If Not .exists(Cells(a, 2).Value) Then
            .Add Cells(a, 2).Value, Nothing
        End If
    End If
    Next a
    If sd.Count > 1 Then
        Range("E" & Rows.Count).End(3).Offset(1, 0).Resize(.Count, 1) = Application.Transpose(.keys)
    End If
End With
Set sd = Nothing: a = Empty
End Sub
yasinkurt06@ gmail.com
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 02:18
Konum: ANKARA
Yaş: 36
İleti: 3130
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara 5066691079



Cevap: Benzersizleri tabloya listeleme

İleti#3)  hamidgf » 08 Haz 2018 18:08

Yasin Bey emeğinize sağlık. [TESEKKÜR]

"For a = 3 To 29" kısmında 29 u Tablo1 in satır sayısı olacak şekilde dinamikleştirme şansımız var mı?
Şu an için "For a = 3 To 10000" yaptım kullanıyorum, uzunca bir süre götürür.
Kullanıcı avatarı
hamidgf
Yeni Başlamış
 
Kayıt: 01 Mar 2018 15:02
Meslek: Harita Mühendisi
Yaş: 25
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kırşehir

Cevap: Benzersizleri tabloya listeleme

İleti#4)  Orion1 » 09 Haz 2018 01:42

Deneyiniz. :cool:
For a = 3 To Cells(Rows.Count, "C").End(xlUp).Row
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 22:51
Meslek: inşaat teknikeri
İleti: 376
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Benzersizleri tabloya listeleme

İleti#5)  hamidgf » 09 Haz 2018 18:57

Orion1 yazdı:Deneyiniz. :cool:
For a = 3 To Cells(Rows.Count, "C").End(xlUp).Row


İlginiz için teşekkürler Evren Bey [TESEKKÜR]
Kullanıcı avatarı
hamidgf
Yeni Başlamış
 
Kayıt: 01 Mar 2018 15:02
Meslek: Harita Mühendisi
Yaş: 25
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kırşehir


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 4 misafir

Bumerang - Yazarkafe