Satır Sütün Gizleme

[altanson]

Arkadaşlar herkese merhaba,

Forumdaki diğer makro ile gizleme mesajlarını okudum ama tam olarak yapmak istediğimi bulamadım.

Ekteki dosyada gizlenmesini istediğim satır ve sütünları işaretledim. Sarı ile işaretlenen satırlar sayfanın sonuna kadar aynı aralıkta devam ediyor (yani her üç satırdan ilk sabit diğer ikisi gizlenecek) sütünlarda sadece işaretlediklerimin gizlenmesi yeterli.

Bu gizleme işlemlerini sayfada satır ve sütünları ayrı ayrı gizleyecek butonlarla nasıl yapabiliriz?

Şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Renklere göre gizler.

Sub gizle()
For sat = 5 To 100
If Range("a" & sat).Interior.ColorIndex = 6 Then
Rows(sat).Hidden = True
Else
Rows(sat).Hidden = False
End If
Next
For sut = 1 To Columns.Count
If Columns(sut).Interior.ColorIndex = 34 Then
Columns(sut).Hidden = True
Else
Columns(sut).Hidden = False
End If
Next
End Sub

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

Sub gizle()
Dim sayac As Byte
sayac = 1
For i = 5 To 12
If sayac = 4 Then sayac = 1
    If sayac < 3 Then
    Rows(i).Hidden = True
    End If
    sayac = sayac + 1
Next
Range("E1,I1,M1,Q1:s1").EntireColumn.Hidden = True
MsgBox "Satır ve sütunlar gizlendi"
End Sub

Sub goster()
Dim sayac As Byte
sayac = 1
For i = 5 To 12
If sayac = 4 Then sayac = 1
    If sayac < 3 Then
    Rows(i).Hidden = False
    End If
    sayac = sayac + 1
Next
Range("E1,I1,M1,Q1:s1").EntireColumn.Hidden = False
MsgBox "Satır ve sütunlar gösterildi"
End Sub

 

[altanson]

Sayın V.Basic For Applications

ben size hangi hücreleri gizlemek istediğimi belirtmek için satır ve hücreleri renklendirmiştim. Esas dosyamda renk yok ayrıca sadece sarı olan satırları değil sayfanın sonuna yani 65536 ncı satıra kadar her üç hücreden ikisini gizleyerek devam etmesini istiyorum. sanırım anlatabildim yapmak istediğimi.

 

[altanson]

Sezar teşekkürler,

satırları dediğim aralıkta sayfa sonuna kadar gizleyebilirsem ve satır ve sütünları iki ayrı tuş ile gizleyebilirsem sorunum çözülmüş olacak.

 

[Seyit Tiken]

Aynı tuşa basarak satır/sütun gizleyip gösterebilirsiniz. Ekli dosyayı inceleyiniz.

 

[Orion1]

Sezar teşekkürler,

satırları dediğim aralıkta sayfa sonuna kadar gizleyebilirsem ve satır ve sütünları iki ayrı tuş ile gizleyebilirsem sorunum çözülmüş olacak.

Yani belirlediğiniz bir aralık olacak ve siz belirlediğiniz o arlıktaki satırların gizlenmesinimi istiyorsunuz?
Aksi takdirde sayfanın tamamının satırlarını gizlemek isterseniz Pc'yi kasar ve gizlemek uzun zaman alır.

 

[altanson]

Yani belirlediğiniz bir aralık olacak ve siz belirlediğiniz o arlıktaki satırların gizlenmesinimi istiyorsunuz?
Aksi takdirde sayfanın tamamının satırlarını gizlemek isterseniz Pc'yi kasar ve gizlemek uzun zaman alır.

evet belli bir aralıktaki satırları gizlemek istiyorum 65536 satırı gizlemek biraz kasar sanırım fakat hala çalışıyorum ve dosyamın hangi satıra kadar uzayacağını bilmiyorum. ama tahminim 500 satır civarında olacak. fakat yine dediğim gibi iki satır gizli bir satır sabit olacak.

 

[Orion1]

Merhaba.
İstediğiniz ekli dosya hazır.

 

[altanson]

Sayın Sezar Harikasınız ne diyeyim,

Emeği geçen herkese sevgiler saygılar teşekkürler

 

[Orion1]

Rica ederim.
İyi çalışmalar

 

[altanson]

gizlemek için kullandığımız makroları satır satırları silmek için nasıl değiştirebiliriz?

Sub satir_gizle()
Dim sayac As Byte
sayac = 1
box:
sonsat = InputBox("Son Satırı Giriniz?", sonsat)
If sonsat = Empty Then Exit Sub
If Not IsNumeric(sonsat) Then
    MsgBox "Sayısal bir değer giriniz..!!", vbCritical
    GoTo box
End If
If sonsat < 5 Then
    MsgBox "Son sat&#305;r 5 'ten k&#252;&#231;&#252;k olamaz..", vbCritical
    GoTo box
End If
If sonsat > 1000 Then
    MsgBox "Son sat&#305;r 1000'den b&#252;y&#252;k olamaz..!!", vbCritical
    GoTo box
End If
Application.ScreenUpdating = False
For i = 5 To sonsat
If sayac = 4 Then sayac = 1
    If sayac < 3 Then
    Rows(i).Hidden = True
    End If
    sayac = sayac + 1
Next
Application.ScreenUpdating = True
MsgBox "Sat&#305;rlar gizlendi"
End Sub

Sub sutun_gizle()
Range("E1,I1,M1,Q1:t1").EntireColumn.Hidden = True
MsgBox "Sütunlar Gizlendi"
End Sub

 

[altanson]

arkadaşlar bir sorum daha olacak

aşağıdaki makroda satırları gizlemek istediğimde her seferinde satır sayısı girmeden sürekli 500 satırı nasıl gizleyebilirim?

Sub satir_gizle()
Dim sayac As Byte
sayac = 1
box:
sonsat = InputBox("Son Satırı Giriniz?", sonsat)
If sonsat = Empty Then Exit Sub
If Not IsNumeric(sonsat) Then
    MsgBox "Sayısal bir değer giriniz..!!", vbCritical
    GoTo box
End If
If sonsat < 5 Then
    MsgBox "Son satır 5 'ten küçük olamaz..", vbCritical
    GoTo box
End If
If sonsat > 1000 Then
    MsgBox "Son satır 1000'den büyük olamaz..!!", vbCritical
    GoTo box
End If
Application.ScreenUpdating = False
For i = 5 To sonsat
If sayac = 4 Then sayac = 1
    If sayac < 3 Then
    Rows(i).Hidden = True
    End If
    sayac = sayac + 1
Next
Application.ScreenUpdating = True
End Sub

 

[veyselemre]

1000 satır için aşağıdaki gibi kullanabilirsiniz.

Sub dene()
    Application.ScreenUpdating = False
    Rows.Hidden = False
    For x = 5 To 1000 Step 3
        Rows(x & ":" & x + 1).Hidden = True
    Next x
    Application.ScreenUpdating = True
End Sub

 

[altanson]

1000 satır için aşağıdaki gibi kullanabilirsiniz.

Sub dene()
    Application.ScreenUpdating = False
    Rows.Hidden = False
    For x = 5 To 1000 Step 3
        Rows(x & ":" & x + 1).Hidden = True
    Next x
    Application.ScreenUpdating = True
End Sub

teşekkürler, birde gizleme yerine satırları silmek için makroda nasıl bir değişiklik yapmamız gerekir?

 

[Orion1]

Merhaba.
500 satırı aşağıdaki kodlar ile gizleyebilirsiniz.
Sub satir_gizle()

Dim sayac As Byte
sayac = 1
Application.ScreenUpdating = False
For i = 5 To 500
If sayac = 4 Then sayac = 1
    If sayac < 3 Then
    Rows(i).Hidden = True
    End If
    sayac = sayac + 1
Next
Application.ScreenUpdating = True
End Sub

 

[xternet]

Merhaba arkadaşlar.

Satır ve sütun gizleme ile ilgili araştırma yaparken bu konu başlığına ulaştım. Yalnız buradaki cevaplar benim sorunumu cevaplamıyor. Ben şöyle bir gizleme istiyorum:
Örneğin ben 3,5,6,8 numaralı satırları gizlemek istiyorum. Bu durumda B3, B5, B6, B8 hücrelerine "g" harfi yazdığımda ve kodu çalıştırdığımda "g" harfini yazdığım 3, 5, 6, 8 numaralı satırlar gizlensin.

Benzer şekilde sütunlar içinde istediğim hücrelere "g" harfi yazdığımda sütunlar gizlensin.

Tabi bunun birde geri dönüşü olsun. Bir başka kodlada gizlenen bu satırlar açılabilsin.

İyi çalışmalar.

 

[veyselemre]

Sub Gizle()
    Application.ScreenUpdating = False
    Rows.Hidden = False
    For Each elm In Cells.SpecialCells(xlCellTypeConstants, 23)
        If elm.Value = "g" Then elm.EntireRow.Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub
Sub Ac()
    Rows.Hidden = False
End Sub

 

[xternet]

Sayın veyselemre kod satırlar için çok güzel çalışıyor. Ancak "g" harfi için sütun belirtmemişsiniz. Bu belirgin olursa daha iyi olur.
Birde benzerini sütun gizleme içinde yapabilirmiyiz?

Bu arada incelemeye devam ederken şöyle bir koda rastladım:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Değer = Evaluate("=UPPER(" & """" & Target & """" & ")")
If Değer = 0 Then Rows(Target.Row).EntireRow.Hidden = True
End Sub

Bu kodda sorunumu çok güzel çözüyor. B sütununda "0" yazılan satırları anında gizliyor. Bu kodun birde sütun gizlemek için olanını yazabilirseniz tam olucak.

İki çözümden birine ulaşabilirsem yeterli.

İyi çalışmalar.

 

[veyselemre]

For Each elm In [b:b].SpecialCells(xlCellTypeConstants, 23)