HATA : "Range sınıfının Hidden özelliği kurulamıyor" ne demek?

[Selçuk1]

selamlar;

çalışma kitabımda sorgulama makrom çalıştıktan sonra tablo içerisindeki boş satırları gizleyen kodum az öncesine kadar çalışırken şu anda çalışmıyor:

Run-time error '1004':
Range sınıfının Hidden özelliği kurulamıyor

şeklinde hata veriyor. bu ne demek sayın üstadlarım? bu kodun çalışmasını ne engeller acaba?

saygılarımla...

 

[Selçuk1]

sayın üstadlar, fikri olan var mı??

 

[alpi]

Hata veren satırı da yazar mısınız?

 

[Selçuk1]

sn. alpi;

gizleme yapan kodlar aşağıda, renkli olan satır ise hata veren satır.. inceler misiniz?

For m = 4 To 34
If Cells(m, 1).Value = 0 Then
[B][COLOR=Red]Rows(m).Hidden = True[/COLOR][/B]
If Cells(m, 1).Value <> 0 Then
Rows(m).Hidden = False
End If
End If
Next

 

[Selçuk1]

range sınıfının hidden özelliği neden kurulamaz acaba??? :roll::roll::roll:

 

[Levent Menteşoğlu]

Aşağıdaki gibi kullanın.

r[COLOR=black]ows(m).entirerow.hidden = true
[/COLOR]

 

[alpi]

Herhangi bir satırda birleştirilmiş hücre var mı?

 

[Selçuk1]

sn. leventm,

maalesef yine aynı hatayı verdi. aşağıdaki şekilde değiştirdim,

For m = 4 To 34
If Cells(m, 1).Value <> 0 Then
[COLOR=Red]Rows(m).Hidden = False[/COLOR]

If Cells(m, 1).Value = 0 Then
Rows(m).EntireRow.Hidden = True
End If
End If
Next

bu seferde renkli satırı hatalı gösterdi debug ettiğimde. yani anladığım kadarıyla boş satırlaırı gizlemekle bir sorunu yok. gizle fonksiyonu ile komple problemli bu kod.

sn. alpi,

tablo içerisinde birleştirilmiş hücre yok. her biri tek.

kodun tamamı ise şöyle;

Sub raporsorgu()
sifreleme
Sheets("PSR").Select
Set s1 = Sheets("GST")
Set s2 = Sheets("PSR")
s2.[a4:d34].ClearContents
If s2.[m1] = "" Then
MsgBox "Lütfen Raporlamak İstediğiniz Ayı Seçiniz!.."
Exit Sub
End If
If WorksheetFunction.CountIf(s1.[e:e], s2.[m1]) = 0 Then
MsgBox "Raporlamak İstediğiniz Aya Ait Kayıt Bulunamamıştır!..", vbOKOnly + vbInformation
Exit Sub
End If
For a = 1 To s1.[a65535].End(3).Row
If s1.Cells(a, "e") = s2.[m1] Then
c = c + 1
s2.Cells(c + 3, "a") = s1.Cells(a, "b")
s2.Cells(c + 3, "b") = s1.Cells(a, "c")
s2.Cells(c + 3, "c") = s1.Cells(a, "d")
End If
Next
s2.[a4:c34].Sort Key1:=s2.[c5]

sırala_alf

For m = 4 To 34
If Cells(m, 1).Value <> 0 Then
Rows(m).Hidden = False

If Cells(m, 1).Value = 0 Then
Rows(m).EntireRow.Hidden = True
End If
End If
Next
sifrele
End Sub

not: sifrele ve sifreleme makroları sayfa koruması ile sırala_alf ise sıralama ile alakalıdır.

çıldırmak üzereyim sayın üstadlar.. neden kaynaklanıyor olabilir bu sizce ???

 

[Levent Menteşoğlu]

If Cells(m, 1).Value <> 0 Then
Rows(m).Hidden = False
 
If Cells(m, 1).Value = 0 Then
Rows(m).EntireRow.Hidden = True
End If
End If

Yukarıdaki grubu aşağıdaki ile değiştirerek deneyin.

If Cells(m, 1).Value <> 0 Then
Rows(m).Hidden = False
else
Rows(m).Hidden = True
End If

Not:Eğer sayfada korumanız varsa hata verecektir. Sayfa koruma şifreniz nedir.

 

[alpi]

Benim aklıma hücre birleştirmesinden başkası gelmiyor.

Bence birde şöyle deneyin

Rows(10).Hidden = True

Yani belirttiğiniz bir satırı gizlemeyi deneyin. Bakalım yine hata verecek mi.

 

[Selçuk1]

sn. leventm;

sifrele makrosu tüm sayfaları koruyor ve sifreleme makrosu da tüm sayfaların korumasını kaldırıyor. sayfa koruma parolası atamadım. bu yüzden kodun en başına sifreleme ve en sonuna da sifrele prosedürlerini yazdım. bence eğer sayfa korumasından dolayı hata olsa kodun aşağıdaki kısmıda çalışmaması gerekirdi. çünkü bu kodlarla başka sayfadan verileri bu tablo üzerine yazdırıyorum.

For a = 1 To s1.[a65535].End(3).Row
If s1.Cells(a, "e") = s2.[m1] Then
c = c + 1
s2.Cells(c + 3, "a") = s1.Cells(a, "b")
s2.Cells(c + 3, "b") = s1.Cells(a, "c")
s2.Cells(c + 3, "c") = s1.Cells(a, "d")
End If
Next

sizin kodlarınızda yine aynı hatayı verdi ve yine aşağıdaki satırı işaretledi.

Rows(m).Hidden = False

sn. alpi;

sizin dediğinizi de denedim şimdi. onu da gizlemiyor ve yine aynı hatayı veriyor.

sanırım gizleme (hide) olayı ile bir derdi var bu makronun.

kusura bakmayın, dosyayı eklemek isterim ama, hem dosyanın boyutu çok fazla, hemde sadeleştirmem ve forumda yayımlanacak hale getirmem çok zaman alacak. bu yüzden sizlere böyle zahmet veriyorum değerli üstadlar. eğer çözemezsek en son çare onunla uğraşırım artık.. ama başka bir çözüm öneriniz var mı??

 

[alpi]

Sayfa korumasını kaldırdıktan sonra denediniz mi?

 

[Selçuk1]

evet sn. leventm ve alpi;

tüm sayfa korumalarını kaldırdığımda işlem tamamlandı. gözden kaçırdığım sırala_alf prosedürünün içerisinde de sifrele ve sifreleme varmış yani o çalıştıktan sonra sayfa tekrar korunuyormuş. :mrgreen:

kusura bakmayın çok küçük bir ayrıntı ama göremedim işte.. insan bazen böyle oluyor. gözünün önündekini göremiyor..

ilginize çok teşekkür ediyorum sevgili üstadlar.

iyi geceler...