Aralıklı Liste Oluşturmak

[baydeniro]

Merhaba Arkadaşlar,
Veri Doğrulamada A1:A5 aralığı ile A21:A29 aralığını tek liste yapmanın bir yolu var mıdır !

 

[Necdet]

Merhaba,

Tek liste yapmaktan amacınız nedir bilemiyorum ama, Eğer bu iki aralığa Veri doğrulama eklemek istiyorsanız, Önce A1:A5 i seçin Sonra Ctrl tuşana basarak diğer aralığı seçip istediğiniz şartı ekleyebilirsiniz.

 

[baydeniro]

Merhaba,

Tek liste yapmaktan amacınız nedir bilemiyorum ama, Eğer bu iki aralığa Veri doğrulama eklemek istiyorsanız, Önce A1:A5 i seçin Sonra Ctrl tuşana basarak diğer aralığı seçip istediğiniz şartı ekleyebilirsiniz.

Üstad ilgine teşekkürler. O şekilde denedim ama hata veriyor

 

[baydeniro]

şunu yapmaya çalışıyorum; Veri doğrulamada A1:A5 hücrelerindeki verilerden sonra aynı listenin devamında A21:A29 hücrelerindeki verilerle devam etmesine ihtiyacım var.

 

[Necdet]

Neden örnek dosya ile açıklamıyorsunuz? madem altın üyesiniz. Ne demek istediğinizi en azından ben anlamıyorum, belki bir anlayan arkadaş çıkar.

 

[baydeniro]

Neden örnek dosya ile açıklamıyorsunuz? madem altın üyesiniz. Ne demek istediğinizi en azından ben anlamıyorum, belki bir anlayan arkadaş çıkar.

haklısınız üstad, bir dosya ekliyorum

 

[baydeniro]

Listeye girecek Veriler böyle; ama listenin böyle gözükmesine ihtiyaç var

 

[Necdet]

Merhaba,

Yine eksik bilgi sanırım.

A6:A10 aralığın sabit olacağını sanmıyorum, bu aralığın listeye girmemesini belirleyen bir kıstas var mı? bilinmiyor.

Verdiğiniz sınırları sabit kabul ederek bir örnek hazırladım. Belki bir fikir verir.

Sub VeriDogrulama()

    Dim Rng As Range, _
        Txt As String, _
        Hcr As Range
    
    Set Rng = Range("A2:A5,A11:A14")
    
    For Each Hcr In Rng
    
        If Len(Txt) = 0 Then
            Txt = Hcr
        Else
            Txt = Txt & "," & Hcr
        End If
        
    Next Hcr
    
    With Range("C2:C6").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="" & Txt & ""
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    
End Sub

 

[Korhan Ayhan]

Veri Doğrulamada bahsettiğiniz özellik yoktur.

Makro yardımıyla bahsettiğiniz liste oluşturulup veri doğrulamaya tanımlanabilir.

 

[muratboz06]

Makrosuz bir örnek çözüm, belki işinize görür. Kendinize uyarlarsınız.

İndir Veri Doğrulama

Dosyayı indir Veri Doğrulama

dosya.co

 

[baydeniro]

Merhaba,

Yine eksik bilgi sanırım.

A6:A10 aralığın sabit olacağını sanmıyorum, bu aralığın listeye girmemesini belirleyen bir kıstas var mı? bilinmiyor.

Verdiğiniz sınırları sabit kabul ederek bir örnek hazırladım. Belki bir fikir verir.

Sub VeriDogrulama()

    Dim Rng As Range, _
        Txt As String, _
        Hcr As Range
   
    Set Rng = Range("A2:A5,A11:A14")
   
    For Each Hcr In Rng
   
        If Len(Txt) = 0 Then
            Txt = Hcr
        Else
            Txt = Txt & "," & Hcr
        End If
       
    Next Hcr
   
    With Range("C2:C6").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="" & Txt & ""
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
   
End Sub

Desteğiniz için çok teşekkür ederim üstadım, sağlıcakla kalın.

 

[baydeniro]

Veri Doğrulamada bahsettiğiniz özellik yoktur.

Makro yardımıyla bahsettiğiniz liste oluşturulup veri doğrulamaya tanımlanabilir.

Teyit ettiğiniz bilgi için çok teşekkür ederim üstadım, sağlıcakla kalın.

 

[baydeniro]

Makrosuz bir örnek çözüm, belki işinize görür. Kendinize uyarlarsınız.

İndir Veri Doğrulama

Dosyayı indir Veri Doğrulama

dosya.co

Formüllü çözüm desteğiniz için çok teşekkür ederim üstadım, iyi bir alternatif oldu. sağlıcakla kalın.

 

[baydeniro]

Merhaba,

Yine eksik bilgi sanırım.

A6:A10 aralığın sabit olacağını sanmıyorum, bu aralığın listeye girmemesini belirleyen bir kıstas var mı? bilinmiyor.

Verdiğiniz sınırları sabit kabul ederek bir örnek hazırladım. Belki bir fikir verir.

Sub VeriDogrulama()

    Dim Rng As Range, _
        Txt As String, _
        Hcr As Range
   
    Set Rng = Range("A2:A5,A11:A14")
   
    For Each Hcr In Rng
   
        If Len(Txt) = 0 Then
            Txt = Hcr
        Else
            Txt = Txt & "," & Hcr
        End If
       
    Next Hcr
   
    With Range("C2:C6").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="" & Txt & ""
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
   
End Sub

Üstad kod harika çalışıyor çok teşekkürler. Sadece alttaki kısmın bitiş hücresinde revizyon yapabilir miyiz
Set Rng = Range("A2:A5,A11:A14")
A14 yerine A sütununda en altta dolu hücre adresini (değişken olabilir) belirlesin

 

[Korhan Ayhan]

Mesaj sayınız 4.250'yi geçmiş son hücre adresini bulma yöntemini halâ öğrenmediniz mi?

Forumda yüzlerce kez verildi...

 

[baydeniro]

Mesaj sayınız 4.250'yi geçmiş son hücre adresini bulma yöntemini halâ öğrenmediniz mi?

Forumda yüzlerce kez verildi...

Üstad serzenişde çok haklısınız. Tek alanda kolayca yapabiliyorum ama 2 alanı birleştiren nu kodda bildiğim yöntemler ve genel olarak forumlarda araştırdığım örnekler 2'li alan yapısında çalışmadı, hata veriyor. Acaba 'den fazla alan birleşince farklı bir kod mu gerekiyor diye üstadın yardımına başvurdum

 

[Korhan Ayhan]

İkili olunca ne değişiyor ki?

Sonuçta siz A sütunundaki en son satırı arıyorsunuz. Bu değeri bulup 14 yazan yere adapte edeceksiniz.

 

[baydeniro]

İkili olunca ne değişiyor ki?

Sonuçta siz A sütunundaki en son satırı arıyorsunuz. Bu değeri bulup 14 yazan yere adapte edeceksiniz.

Fikir için teşekkür ederim üstadım, her zamanki destekleriniz için çok teşekkür ederim. Sağlıcakla kalın