drop down ile 1den fazla seçim

[cansuyu66]

Merhaba arkadaşlar,

örneğin bir şehir listem var ve ben drop down özelliği ile 1 den fazla şehir seçmek istiyorum ve bunların virgül ile şu şekilde sıralanmasını istiyorum:

adana, sivas, istanbul..

gibi
veri doğrulama seçeneği ile ne yazıkki sadece 1 şehir seçebiliyorum
umarım doğru anlatabilmişimdir.
şimdiden yardımlarınız ve ilginiz için teşekkür ederim

örnek ektedir

 

[Ömer]

Merhaba,

Bu istediğiniz için form kullanmanızı tavsiye ederim.
Ekte bir örnek hazırladım. F sütununda herhangi bir hücreye çift tıklarsanız form açılacaktır, açılan formdaki verilerden fare ile istediğiniz seçimleri yaptıktan sonra "Seçileni Aktar" butonuna basmanız yeterli olacaktır.

.

 

[Merhum İdris SERDAR]

.

Buraya bakın.

http://www.excel.web.tr/f122/veri-doorulama-ile-coklu-secim-t127765.html



.

 

[cansuyu66]

Ömer bey çok teşekkür ederim,
ana tabloma uyguladım ve oldu, fakat aynı anda iki sütunda farklı verilerle dropdown liste hazırlamayı başaramadım..


sayın yurttaş,
örnekleriniz aslında tam istediğim gibi fakat kodları kendi tabloma uyarlayamadım

Private Sub Worksheet_Change(ByVal Target As Range)

Dim alnvd As Range
Dim edeg As String
Dim ydeg As String
If Target.Count > 1 Then GoTo son

On Error Resume Next
Set alnvd = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo son

If alnvd Is Nothing Then GoTo son

If Intersect(Target, alnvd) Is Nothing Then
   
Else
  Application.EnableEvents = False
  ydeg = Target.Value
  Application.Undo
  edeg = Target.Value
  Target.Value = ydeg
  If Target.Column = 3 Then ' sütun sayısı
    If edeg = "" Then
      
      Else
      If ydeg = "" Then
      
      Else
      Target.Value = edeg _
        & ", " & ydeg
      End If
    End If
  End If
End If

son:
  Application.EnableEvents = True
  
End Sub

bu koda ek olarak veridoğrulamada yapmışsınız fakat kod ile bunu nasıl birleştirdiniz pek anlayamadım
Şehir dışında başka range bulamadım ama siz alnvd edeg ydeg değerlerini kullanmışsınız?
kısaca açıklamanızı rica edebilirmiyim?

 

[Merhum İdris SERDAR]

.

Tablonuza uyguladım zaten.



Dim alnvd As Range ' Veri Doğrulama alanı değişkeni
Dim edeg As String eski değer değişkeni
Dim ydeg As String ' yeni değer değişkeni


Set alnvd = Cells.SpecialCells(xlCellTypeAllValidation) ' Veri Doğrulama ataması


.

 

[cansuyu66]

Teşekkürler..

Peki ömer bey sizin kodunuza ek olarak örneğin K sütunu içinde fazla seçim yapmak istiyorsam
aşağıdaki kodunuza ne eklemem gerekiyor??

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [I:I]) Is Nothing Then Exit Sub
    UserForm1.Show
End Sub

şimdiden teşekkür ederim

 

[Ömer]

[I:I] yerine;

[I:I,K:K] yazmanız yeterli olur.

 

[cansuyu66]

çok çok teşekkür ederim..bir soru dah sormak istiyorum müsadenizle,acemiliğime verin..
peki farklı userform kullandığımızda hangi şekilde belirtiyoruz?

 

[Ömer]

Sorunuzu tam anlayamadım.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [I:I]) Is Nothing Then Exit Sub
UserForm1.Show
End Sub

Kırmızı işaretli bölüm forum adıdır. Bu bölüme farklı bir form adı yazarsanız ilgili form açılır.

 

[cansuyu66]

kusura bakmayın anlatamamışım..

I:I userForm1 açılsın itiyorum (isim listesi içeriyor)
K:K de ise userForm2 açılsın istiyorum (şehir listesi içeriyor)

 

[Ömer]

Bu şekilde deneyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    If Intersect(Target, [I:I,K:K]) Is Nothing Then Exit Sub
    
    If Target.Column = 9 Then
        UserForm1.Show
    ElseIf Target.Column = 11 Then
        UserForm2.Show
    End If
    
End Sub

.

 

[cansuyu66]

harika çok çok teşekkür ederim emeğinize sağlık!!!

tam istediğim buydu, daha öğrenecek çok şeyim var...