Kısıtlanan verinin şartını çoktan seçmeli yapmak

[adigeturklim]

Merhaba değerli hocalar,

Yine buradan bulduğum ve aşağıya yapıştırdığım kodu daha önce başka bir tablo için kullanmıştım fakat şimdi farklı bir biçimde çalışmasına ihtiyacım var.

İlgili hücrede birden fazla seçim yapmama müsade edecek ve seçtiğim alanları karşıma getirecek şekilde kodu değiştirebilirmiyiz rica etsem.

Örnek dosya linki: http://s6.dosya.tc/server8/yn5k1s/ornek_tablo.rar.html

Daha önce kullandığım kod:

Sub sutunGizle()
Application.ScreenUpdating = False
For i = 4 To 210
If Cells(5, i).Value = [B3].Value Then
Columns(i).Hidden = False
Else
Columns(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3]) Is Nothing Then Exit Sub
Call sutunGizle
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[PLİNT]

Merhaba
Ek dosyayı inceleyiniz
http://s6.dosya.tc/server8/nbs7gi/ornek_tablo.zip.html
Veri doğrulamayı "b5" hücresine alırsınız,(cursor başka hücrede iken) "B5" seçildiğinde tüm sütunlar gizlenir, siz seçim yaptıkça seçtikleriniz açılır.
"B5" hücresi boşaltılırsa hepsi görünür

[SIZE="2"] Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B5]) Is Nothing Then Exit Sub
Call sutunGizle
End Sub

Sub sutunGizle()
Application.ScreenUpdating = False
For i = 4 To 210
If InStr(Cells(6, i).Value, [B5].Value) > 0 Then
Columns(i).Hidden = False
End If
Next i
If [B5].Value = "" Then Columns("D:CO").EntireColumn.Hidden = False
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B5]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Columns("D:CO").EntireColumn.Hidden = True
Application.ScreenUpdating = False
End Sub[/SIZE]

 

[adigeturklim]

Merhaba sayın PLİNT emeğiniz için teşekkür ederim. Aslında ben tablonun birden fazla seçim yapılabilecek şekilde çalışmasını arzu etmiştim, yani sadece Ocak ayını seçtiğimde Ocak karşıma gelmeli ya da Ocak,Şubat,Mart gibi birden çok ayı seçtiğimde de seçimler karşıma gelmeli şeklinde. Bunun için Ayların karşısına onay kutusu gibi birşey mi gelmeli bilemedim doğrusu. Saygılar

 

[PLİNT]

Merhaba sayın PLİNT emeğiniz için teşekkür ederim. Aslında ben tablonun birden fazla seçim yapılabilecek şekilde çalışmasını arzu etmiştim, yani sadece Ocak ayını seçtiğimde Ocak karşıma gelmeli ya da Ocak,Şubat,Mart gibi birden çok ayı seçtiğimde de seçimler karşıma gelmeli şeklinde. Bunun için Ayların karşısına onay kutusu gibi birşey mi gelmeli bilemedim doğrusu. Saygılar

Merhaba
Benim de yaptığım öyle idi zaten "B5" hücresi seçildiğinde sütunlar gizlenir
"B5" hücresi terkedilmeden arka arkaya seçtikleriniz açılır
mesela;
"B5" te iken "ocak" seçtiniz açılır, arkasından "mart" seçtiniz "ocak" açıkken yanına "mart" açılır
Onay kutulu bir örnek hazırlarsanız ona görede bir şeyler yapmaya çalışırız.

 

[adigeturklim]

Sayın PLİNT ben algılayamamışım kusura bakmayın. Bu yapmış olduğunuz çalışma şekli işimi görecektir. Emeğiniz için teşekkür ederim tekrar .

 

[PLİNT]

Sayın PLİNT ben algılayamamışım kusura bakmayın. Bu yapmış olduğunuz çalışma şekli işimi görecektir. Emeğiniz için teşekkür ederim tekrar .

Estağfurullah rica ederim, kolay gelsin.