tarih satırı gizle

[karaelmas4467]

hücreye girilen tarih geçmiş bir tarih ise o t satırın gizlenmesini nasıl sağlayabilirim....

 

[N.Ziya Hiçdurmaz]

Yanıt

Sayfa kod bölümüne yazınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target < Date Then
Target.EntireRow.Hidden = True
Else
Target.EntireRow.Hidden = False
End If
End Sub

 

[karaelmas4467]

Sayfa kod bölümüne yazınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target < Date Then
Target.EntireRow.Hidden = True
Else
Target.EntireRow.Hidden = False
End If
End Sub

peki gizli satırları göster ve tekrar gizle şeklinde bir kod yazabilirmisiniz.

 

[karaelmas4467]

peki gizli satırları göster ve tekrar gizle şeklinde bir kod yazabilirmisiniz
ya da şöyle anlatayım.a sütununa tarih giriliyor. bu tarihlerden geçmiş olanların satırlarını gizle ve göster şeklinde kod olmasını istiyorum. ve bu kodları ayrı ayrı gizle göster şeklinde düğmeye atamak istiyorum..umarım anlatabilmişimdir.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub GOSTER()
Cells.EntireRow.Hidden = False
End Sub

 

[karaelmas4467]

Sub GOSTER()
Cells.EntireRow.Hidden = False
End Sub

[/QUOT
ekli dosyada sorunumu daha açık anlattım. ilginize tşk..

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub GIZLE()
Dim SUT As Integer
For SUT = 1 To Cells(65536, "A").End(3).Row
If Cells(SUT, "A") < Date Then
Cells(SUT, "A").EntireRow.Hidden = True
End If
Next
End Sub
Sub GOSTER()
Cells.EntireRow.Hidden = False
End Sub

 

[karaelmas4467]

sayın V.Basic For Applications; çok teşekür ederim. gerçekten uzmansınız..

 

[N.Ziya Hiçdurmaz]

Bişey değil.

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Sub gizle()
For s = 2 To 15
If Cells(s, 1) < Date Then Cells.EntireRow(s).Hidden = 1
Next
End Sub

Sub göster()
[a:a].EntireRow.Hidden = False
End Sub