Satır Gizle

[ismailmuhcu]

http://g.imageshack.us/g.php?h=171&i=59811557rk7.jpg


Yukarıdaki tablomda günün tarihi B:B Sütununda biçimlendirilmiş. Q:Q Sütununda da o günün bakiyeleri var. Aşağıdaki kodlarla Q:Q Sütununda bakiyesi olmayan günleri, satır gizle yapıyorum.
Sorum şu : aşağıdaki kodlarda "Set Rng = Range("Q3:Q136")" satırındaki "Q136" Günün tarihinden bir önceki satırı temsil ediyor. Gün değişince yani bir gün sonra koddaki değer Q137 olmalı (Düşünüyorum:Ama koddaki Q136 aynen duruyor ). Kısacası; koddaki değeri hücre değerine bağlı olarak, otomatik nasıl değiştirebiliriz.
Q136 yerine B:B Sütünunda bulacağı gününtarihi - 1 gibi birşey herhalde...
Saygılarımla...

Sub satirgizle()
    Sheets("Analiz").Select
    Range("A1").Select
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Set Rng = Range("Q3:Q136")
Rng.Rows.Hidden = False
For Each c In Rng
If c.Value = 0 Then
c.EntireRow.Hidden = 1
End If
Next c
Application.ScreenUpdating = False
End Sub

 

[Orion1]

Set rng = Range("Q3:Q" & Cells(65536, "Q").End(xlUp).Row+1)

 

[ismailmuhcu]

Set rng = Range("Q3:Q" & Cells(65536, "Q").End(xlUp).Row+1)

Üzgünüm olmadı. Bu kod ile farkındaysanız günün tarihi B137 satırının gün bakiyesi olan Q137, sıfır bakiyeli olduğu için onu da gizledi... Halbuki ben sadece günün tarihine kadar olan boş bakiyeli satırları gizlemek istiyordum. Günün tarihi olan satır ve altındaki satırlar duracak, gizlenmeyecek...

1 gün sonra yani B138 satırında iken Q137 satırına kadar,
2 gün sonra yani B139 satırında iken Q138 satırına kadar,
3 gün sonra yani B140 satırında iken Q139 satırına kadar,
...
vb. gizlenmeli...
Her yeni günde Q Sütünundaki satır numarası, günün tarihi olan satır numarasından bir önceki güne kadar değişmeli.

 

[Orion1]

Dim k As Range
Set k = Range("B:B").Find(Date - 1, , xlValues, xlWhole)
Set rng = Range("Q3:Q" & k.Row)

 

[ismailmuhcu]

Sub satirgizle()
    Sheets("Analiz").Select
    Range("A1").Select
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Dim k As Range
Set k = Range("B:B").Find(Date - 1, , xlValues, xlWhole)
[COLOR="DarkOrange"]Set Rng = Range("Q3:Q" & k.Row)[/COLOR]
Rng.Rows.Hidden = False
For Each c In Rng
If c.Value = 0 Then
c.EntireRow.Hidden = 1
End If
Next c
Application.ScreenUpdating = False
End Sub

Kodları yukarıdaki gibi revize ettim fakat turuncu renkli bölümde hata verdi kodlar...

 

[Orion1]

Sub satirgizle()
    Sheets("Analiz").Select
    Range("A1").Select
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Dim k As Range
Set k = Range("B:B").Find(Date - 1, , xlValues, xlWhole)
[COLOR="DarkOrange"]Set Rng = Range("Q3:Q" & k.Row)[/COLOR]
Rng.Rows.Hidden = False
For Each c In Rng
If c.Value = 0 Then
c.EntireRow.Hidden = 1
End If
Next c
Application.ScreenUpdating = False
End Sub

Kodları yukarıdaki gibi revize ettim fakat turuncu renkli bölümde hata verdi kodlar...

Kodu aşağıdaki şekilde revize ediniz.

Set k = Range("B:B").Find(Date, , xlValues, xlWhole)
If k Is Nothing Then
    MsgBox "Bu günkü Tarih : " & Format(Date, "dd.mm.yyyy") & " bulunamadı..!!"
    Exit Sub
End If
Set Rng = Range("Q3:Q" & k.Row - 1)

 

[ismailmuhcu]

[LEFT]Sub satirgizle()
   Sheets("Analiz").Select
   Range("A1").Select
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Dim k As Range

[COLOR=dimgray]Set k = Range("B:B").Find(Date, , xlValues, xlWhole)[/COLOR]
[LEFT][COLOR=dimgray]If k Is Nothing Then[/COLOR]
[COLOR=dimgray]   MsgBox "Bu günkü Tarih : " & Format(Date, "dd.mm.yyyy") & " bulunamadı..!!"[/COLOR]
[COLOR=dimgray]   Exit Sub[/COLOR]
[COLOR=dimgray]End If[/COLOR]
[COLOR=dimgray]Set Rng = Range("Q3:Q" & k.Row - 1)[/COLOR][/LEFT]
 
Rng.Rows.Hidden = False
For Each c In Rng
If c.Value = 0 Then
c.EntireRow.Hidden = 1
End If
Next c
Application.ScreenUpdating = False
End Sub
[/LEFT]

şeklinde kodları revize ettim fakat;




Şeklinde hata verdi, günün tarihi olduğu halde...
​

 

[Orion1]

o hücredeki değer tarih değeri değil.Elle girilmiş string bir değer olabilir.
Boş bir excel dosyasına o hücreyi kopyalayıp yapıştırıp bir dosyaya ekleyip yollarmısınız.
Veya bu lkodlarının çalıştığı esnada sayfanızın adı Analiz değildir.

 

[ismailmuhcu]

Örnek dosya ektedir.

 

[Orion1]

Aşağıdaki kodları kullanınız.
Bu durumda B sütununun formatı b sütununda hep ayni biçimde olmalıdır.

Sub satirgizle()
   Sheets("Analiz").Select
   Range("A1").Select
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Dim k As Range
Dim tarih As String
tarih = Format(Date, "dd mmmm yyyy") & " " & Format(Date, "dddd")
Set k = Range("B:B").Find(tarih, , xlValues, xlWhole)
If k Is Nothing Then
   MsgBox "Bu günkü Tarih : " & Format(Date, "dd.mm.yyyy") & " bulunamadı..!!"
   Exit Sub
End If
Set Rng = Range("Q3:Q" & k.Row - 1)
Rng.Rows.Hidden = False
For Each c In Rng
If c.Value = 0 Then
c.EntireRow.Hidden = 1
End If
Next c
Application.ScreenUpdating = False
End Sub

 

[ismailmuhcu]

Teşekkür ederim. Şimdi oldu...

 

[Orion1]

Teşekkür ederim. Şimdi oldu...

Rica ederim.
İyi çalışmalar.