Merhaba. Elimde bir tablo örneği var ve neredeyse 5000 satırlık bir tablo. Benim istediğim, mesela farklı yerleri dolu farklı yerleri boş, burada nasıl sadece dolu alanları göstermesini sağlarım?
Çok karışık. Filtre ile yapamadım bir türlü. Yapıyorum ama hangi sütundan yapayım, doğru göstersin, o kısımda kafam karışıyor. Umarım ne demek istediğimi net olarak anlatabilmişimdir.
Makro yazman gerekecek. Alt+F11 ile. En soldaki hücrenin yanına sadece tıklamak için boş bir kolon oluşturmalısın. Aşağıdaki kodu makro olarak ekleyin.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Satir As Long
Dim Sutun As Long
Application.ScreenUpdating = False
Satir = Target.Row 'Tıklanan hücrenin satır numarasını verir
Sutun = Target.Column 'Tıklanan hücrenin sütun numarasını verir
Range("A:CF").EntireColumn.Hidden = False 'Gizlenmiş (Hide Edilmiş) sütunlar gösteriliyor
If Sutun = 2 Then 'Eğer B sütununda bir hücreye tıklanmışsa;
For i = 3 To 84 '3. sütundan (C sütunu) 84. sütuna kadar (CF Sütunu)
If Cells(Satir, i).Value <> "x" Then Cells(Satir, i).EntireColumn.Hidden = True 'Değeri X olmayanları gizle
Next i
End If
End Sub
Merhaba. Elimde bir tablo örneği var ve neredeyse 5000 satırlık bir tablo. Benim istediğim, mesela farklı yerleri dolu farklı yerleri boş, burada nasıl sadece dolu alanları göstermesini sağlarım?
Çok karışık. Filtre ile yapamadım bir türlü. Yapıyorum ama hangi sütundan yapayım, doğru göstersin, o kısımda kafam karışıyor. Umarım ne demek istediğimi net olarak anlatabilmişimdir.
Makro yazman gerekecek. Alt+F11 ile. En soldaki hücrenin yanına sadece tıklamak için boş bir kolon oluşturmalısın. Aşağıdaki kodu makro olarak ekleyin.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Satir As Long
Dim Sutun As Long
Application.ScreenUpdating = False
Satir = Target.Row 'Tıklanan hücrenin satır numarasını verir
Sutun = Target.Column 'Tıklanan hücrenin sütun numarasını verir
Range("A:CF").EntireColumn.Hidden = False 'Gizlenmiş (Hide Edilmiş) sütunlar gösteriliyor
If Sutun = 2 Then 'Eğer B sütununda bir hücreye tıklanmışsa;
For i = 3 To 84 '3. sütundan (C sütunu) 84. sütuna kadar (CF Sütunu)
If Cells(Satir, i).Value <> "x" Then Cells(Satir, i).EntireColumn.Hidden = True 'Değeri X olmayanları gizle
Next i
End If
End Sub
Makro yazman gerekecek. Alt+F11 ile. En soldaki hücrenin yanına sadece tıklamak için boş bir kolon oluşturmalısın. Aşağıdaki kodu makro olarak ekleyin.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Satir As Long
Dim Sutun As Long
Application.ScreenUpdating = False
Satir = Target.Row 'Tıklanan hücrenin satır numarasını verir
Sutun = Target.Column 'Tıklanan hücrenin sütun numarasını verir
Range("A:CF").EntireColumn.Hidden = False 'Gizlenmiş (Hide Edilmiş) sütunlar gösteriliyor
If Sutun = 2 Then 'Eğer B sütununda bir hücreye tıklanmışsa;
For i = 3 To 84 '3. sütundan (C sütunu) 84. sütuna kadar (CF Sütunu)
If Cells(Satir, i).Value <> "x" Then Cells(Satir, i).EntireColumn.Hidden = True 'Değeri X olmayanları gizle
Next i
End If
End Sub