Sondan bir önceki tarihleri gizle göster

[polis-53]

merhaba arkadaşlar ekte gönderdiğim dosyada H sütununa yazılan tarihlerden sondan bir önceki tarihleri gizle en büyük tarihler kalacak diğer tarihler gizlenecek.

 

[zafer]

Merhaba


Aşağıdaki kodları module yapıştırıp çalıştırınız

Tam olarak anlayamadım sondan bir önceki 22.01.2011 ise 21.01.20011'lermi gizlenecek.
aşağıdaki kodlarda 22.01.2001' den öncekiler gizleniyor

Sub gizle()

Columns("H:H").EntireRow.Hidden = False

son = Cells(65000, 8).End(xlUp).Row
Max = Cells(son, 8)


For i = 1 To son

If Cells(i, 8) < Max Then
Rows(i).EntireRow.Hidden = True
End If
Next
End Sub

 

[polis-53]

Evet arkadaşım zafer bey 22.01.2011 ise 21.01.2011'lermi gizlenecek.
evet kod doğru fakat sayfayı 3. satırdan bölüyorum bunlarıda gizliyor birde gizle göster şeklide yapabilirseniz çok sevineceğim

 

[zafer]

Merhaba


Satır gizlemeyi 4. satırdan itibaren yapıyor
Göster için ayrı bir makro (göster) ekledim.
Zaten ilk makromuzun içinde bu kod vardı
Kodlarda ilk önce tüm H sütununu açıyor sonra son satırdaki tarihe göre işlem yapıyordu

Columns("H:H").EntireRow.Hidden = False

Sub gizle()

Columns("H:H").EntireRow.Hidden = False

son = Cells(65000, 8).End(xlUp).Row
Max = Cells(son, 8)


For i = 4 To son

If Cells(i, 8) < Max Then
Rows(i).EntireRow.Hidden = True
End If
Next
End Sub


Sub goster()

Columns("H:H").EntireRow.Hidden = False


End Sub

iyi çalışmalar

 

[polis-53]

Zafer kardeşim tooglebutton a uygulayabilirmiyiz gösterdiğim zaman buton gizle moduna geçeçek gizle dediğim zaman göster moduna geçecek

 

[zafer]

Merhaba

tooglebutton makrosu ekli dosyadadır

 

[zafer]

Merhaba

Şimdi farkettim dün bu konu hakkında arkadaşlar çözüm bulmuşlar Sondan bir önceki tarihleri gizle göster
başlığını hiç açmadan bu konu üzerinden devam ettirseydiniz daha iyi olurdu.

Konu bölünmemiş olurdu.

İyi çalışmalar




​

 

[polis-53]

çok teşekkür ederim arkadaşlar iyiki varsınız