değere göre sütun gizleme veya gösterme

[karaelmas4467]

a1-b1-c1-d1-.........hücrelerinde sırayla a-b-c-a-b-c-a-b-c- verileri var... ve bu sütunlardan sadece istediğim verinin olduğu sütunların görünmesini nasıl sağlayabilirim.. örnek: hücrede -b- olan sütunları görmek istiyorum..

 

[Orion1]

Bir şey anlamadım.
Örnek dosya ekleyiniz.

 

[zipir123]

a1-b1-c1-d1-.........hücrelerinde sırayla a-b-c-a-b-c-a-b-c- verileri var... ve bu sütunlardan sadece istediğim verinin olduğu sütunların görünmesini nasıl sağlayabilirim.. örnek: hücrede -b- olan sütunları görmek istiyorum..

slm. karaelmas
tablonunun tamamını seç f5 satır farklılıkları dersen birinci adımda (a) aynı işlemi 2. defa tekrarladığında (b) leri, 3. defa defa tekrarladığında sadece (c) leri seçmiş olursun bu adımları yaparken seçili olan hücreleri dolgu ile doldurup daha net görebilirsin ve hangi harfin olduğu hücreleri görmek istiyorsan biçim sütun gizle dersen ekranında sadece (a)veya (b) veya sadece (c)ler görünür hale gelir. gizlenmiş hücleri tekrar görmek istersen biçim sütun gösteri kullanabilirsin

 

[karaelmas4467]

Bir şey anlamadım.
Örnek dosya ekleyiniz.

dosya ektedir

 

[N.Ziya Hiçdurmaz]

Yanıt

A1 Hücresine bir harf giriniz

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SAT As Byte
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
For SAT = 3 To 23
If Cells(4, SAT) = [A1] Then
Cells(4, SAT).EntireColumn.Hidden = True
Else
Cells(4, SAT).EntireColumn.Hidden = False
End If
Next
End Sub

 

[karaelmas4467]

tşk..

A1 Hücresine bir harf giriniz

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SAT As Byte
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
For SAT = 3 To 23
If Cells(4, SAT) = [A1] Then
Cells(4, SAT).EntireColumn.Hidden = True
Else
Cells(4, SAT).EntireColumn.Hidden = False
End If
Next
End Sub

çok teşekür ederim.. güzel çalışma ama a1 hücresine bir harf girdiğimde diğer 2 harf sütunları görünüyor. ancak 2 harfin gizlenip sadece 1 harf olan sütunların görünmesini istiyorum.. (yani a-b gizlensin yalnız c görünsün) gibi..
ya da yalnızca a1 hücresine yazdığım harfin olduğu sütunlar görünsün..

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub sutun_gizle()
Dim alan As Range, hucre As Range
Range("C5:W22").EntireColumn.Hidden = True
Set alan = Range("C5:W22")
For Each hucre In alan
    If WorksheetFunction.CountIf(hucre, "*" & Cells(4, hucre.Column).Value & "*") = 1 Then
        hucre.EntireColumn.Hidden = False
    End If
Next
Set alan = Nothing
End Sub
Sub sutun_goster()
Range("C5:W22").EntireColumn.Hidden = False
End Sub

 

[aycoor]

arkadaşlar bu kodları nerelere yazacağımız hakkında bilgi verirseniz bende bilşgi sahibi olurum teşekkür edrim

 

[karaelmas4467]

button işe yaradı

maalesef ToggleButton hiç bir değişiklik yapmadı.. yani deaktif gibi..
nasıl oldu anlamadım ama dosyayı tekrar indirdiğimde çalıştı. teşekür ederim..

 

[Orion1]

maalesef ToggleButton hiç bir değişiklik yapmadı.. yani deaktif gibi..

Benim yolladığım dosyada gayette güzel çalışıyordu.