[Yardım]  Veri Doğrulama ile hücrelere veri süzme

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

Veri Doğrulama ile hücrelere veri süzme

İleti#1)  alooo » 13 Tem 2017 13:02

Arkadaşlar,
veri doğrulama ile hücrelere veri getirmek istiyorum lakin bununla ilgili bir çalışma göremedim. Lakin istediğim şeyi tam olarak anlatan bir gif dosyası buldum. sayfa içeriğinde Veri Doğrulama-Düşeyara-Eğersay komutları kullanıldığı söylenilmektedir.

Bu işlemi sağlayacak bir örnek dosya hazırlayıp göndermeniz mümkün olabilir mi?

https://omerbagci.files.wordpress.com/2013/06/excel-2013-51.gif
Kullanıcı avatarı
alooo
Yeni Başlamış
 
Adı Soyadı:Volkan Kurtoğlu
Kayıt: 01 May 2014 14:19
Konum: Ankara/Çankaya
Meslek: Müteahhit
Yaş: 40
İleti: 44
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Veri Doğrulama ile hücrelere veri süzme

İleti#2)  askmadige34 » 13 Tem 2017 13:18

Örnek dosya istemek yerine örnek şablonunuzu hazırlayıp sonrasında formülü isteseniz daha kolay yardım alabilirsiniz.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 39
İleti: 1720
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Veri Doğrulama ile hücrelere veri süzme

İleti#3)  alooo » 13 Tem 2017 15:13

Dosya ektedir üstadım.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
alooo
Yeni Başlamış
 
Adı Soyadı:Volkan Kurtoğlu
Kayıt: 01 May 2014 14:19
Konum: Ankara/Çankaya
Meslek: Müteahhit
Yaş: 40
İleti: 44
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Veri Doğrulama ile hücrelere veri süzme

İleti#4)  askmadige34 » 13 Tem 2017 15:48

Sayfa1 in kod kısmına aşağıdaki kodları yazın istediğiniz veriler gelecektir.
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E2]) Is Nothing Then Exit Sub
Dim s1, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Veri")
Dim sonsat As Long
sonsat = s2.Range("B65536").End(xlUp).Row
a = 8
For i = 7 To sonsat
    If s2.Cells(i, 2) = s1.Range("E2") Then
        s1.Cells(a, 4) = s2.Cells(i, 3)
        s1.Cells(a, 5) = s2.Cells(i, 4)
        s1.Cells(a, 6) = s2.Cells(i, 5)
        s1.Cells(a, 7) = s2.Cells(i, 6)
        s1.Cells(a, 8) = s2.Cells(i, 7)
        s1.Cells(a, 9) = s2.Cells(i, 8)
        s1.Cells(a, 10) = s2.Cells(i, 9)
        a = a + 1
    End If
Next
MsgBox Range("e2") & " ' e ait erileriniz aktarıldı...", vbInformation, "ASKM"
End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 39
İleti: 1720
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

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

Cevap: Veri Doğrulama ile hücrelere veri süzme

İleti#5)  alooo » 13 Tem 2017 16:28

Üstadım,
dediğinizi yaptım lakin;
Kod: Tümünü seç
    If s2.Cells(i, 2) = s1.Range("E2") Then
        s1.Cells(a, 4) = s2.Cells(i, 3)
        s1.Cells(a, 5) = s2.Cells(i, 4)
        s1.Cells(a, 6) = s2.Cells(i, 5)
        s1.Cells(a, 7) = s2.Cells(i, 6)
        s1.Cells(a, 8) = s2.Cells(i, 7)
        s1.Cells(a, 9) = s2.Cells(i, 8)
        s1.Cells(a, 10) = s2.Cells(i, 9)
        a = a + 1
    End If

kodları kırmızı renk ile gösterilirken, hücreyi değiştiğimde "Compile Error: Syntax Error" şeklinde bir hata veriyor.
Kullanıcı avatarı
alooo
Yeni Başlamış
 
Adı Soyadı:Volkan Kurtoğlu
Kayıt: 01 May 2014 14:19
Konum: Ankara/Çankaya
Meslek: Müteahhit
Yaş: 40
İleti: 44
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Veri Doğrulama ile hücrelere veri süzme

İleti#6)  alooo » 13 Tem 2017 16:33

Birde, 10 satır için sıralanmış olsa da, bu liste yaklaşık 1000 değişkenden oluşuyor. bu nedenle 10 değişken sınırını kaldırmamız mümkün olabilir mi?
Kullanıcı avatarı
alooo
Yeni Başlamış
 
Adı Soyadı:Volkan Kurtoğlu
Kayıt: 01 May 2014 14:19
Konum: Ankara/Çankaya
Meslek: Müteahhit
Yaş: 40
İleti: 44
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Veri Doğrulama ile hücrelere veri süzme

İleti#7)  askmadige34 » 13 Tem 2017 20:49

İlk dediğinizi anlamadım. Ama 10 sınırı diye birşey yok. Yani hiç sınır yok. Sabah örnek dosya eklerim inşallah.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 39
İleti: 1720
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Veri Doğrulama ile hücrelere veri süzme

İleti#8)  askmadige34 » 14 Tem 2017 06:58

Örnek dosyanız ektedir. Ufak bir değişiklik yaptım.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 39
İleti: 1720
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Veri Doğrulama ile hücrelere veri süzme

İleti#9)  alooo » 14 Tem 2017 10:11

Ellerin dert görmesin üstadım. çok sağolasın.
Kullanıcı avatarı
alooo
Yeni Başlamış
 
Adı Soyadı:Volkan Kurtoğlu
Kayıt: 01 May 2014 14:19
Konum: Ankara/Çankaya
Meslek: Müteahhit
Yaş: 40
İleti: 44
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Veri Doğrulama ile hücrelere veri süzme

İleti#10)  askmadige34 » 14 Tem 2017 10:20

Rica ederim.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 39
İleti: 1720
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Veri Doğrulama ile hücrelere veri süzme

İleti#11)  u.dogan78 » 13 May 2019 11:21

merhaba;
bu formülü farklı hücrelerde kullnamak istiyorum ama nereleri değiştireceğimi bulamadım bir türlü. benim listelerim a sütunundan başlıyor mesela aktarma noktası da yine a sutunu olacak. yardımcı olabilirseniz çok memnun olurum. teşekkürler.
Kullanıcı avatarı
u.dogan78
 
Kayıt: 05 Nis 2019 11:05
Meslek: pazarlama
Yaş: 40
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe