Makro Hatası

[veyselk]

Arkadaşlar merhaba !..

Ekte gönderdiğim dosya için yardımcı olursanız sevinirim.

 

[Ferhat Pazarçevirdi]

Makronuzun ilk satırına

Dim t As Range

satırını ilave edin.

Ayrıca =DOĞRU yerine ="DOĞRU" ve =YANLIŞ yerine ="YANLIŞ" şeklinde yazın.

 

[nsertoglu]

Sub gizle()
Sheets("sayfa1").Select
For Each t In Range("at5:at31").Cells
If t.Value = "DOĞRU" Then ' burada değişiklik var
t.EntireRow.Hidden = True
End If
Next t
End Sub

 

[veyselk]

Makro hata

Dim t As Range
değişikliği yaptım ancak bu sefer makro hiç çalışmadı.

"YANLIŞ" ve "DOĞRU" yaptığım dada yine aynı hatayı veriyor.

 

[AS3434]

Sub gizle()
Application.ScreenUpdating = False
Sheets("[COLOR=red]sayfa1[/COLOR]").Select
For Each t In Range("a1:a15").Cells
If t.Value = DOĞRU Then
t.EntireRow.Hidden = True
End If
Next t
Application.ScreenUpdating = True
End Sub

Makronuz bu haliyle (yazdığınız haliyle) gayet güzel çalışıyor. Hiçbir problem yok.

Verdiği hata
Can't Find Project or Library
olduğu için.

Kod sayfasındaki Tools / References 'lara bakın "Missing" ile başlayan referansı silin ve kaydedin. Exceli kapatıp dosyanızı tekrar açın deneyin.

Konu ile ilgili

http://support.microsoft.com/kb/283806/tr

Normalde (Benim makinemde) şu kutucuklar işaretli (4 Tane)

Visual Basic for Application
Microsoft Excel 11,0 Object Library
OLE Automation
Microsoft Office 11,0 Object Library

Bunların dışındakilerin onayını kaldırın.




Ayrıca kodlarınızı Şu şekilde kısaltabilirsiniz.

Sub gizle()
For Each t In [at5:at31]
If t.Value = "" Then t.EntireRow.Hidden = True
Next 
End Sub
 
Sub göster()
Cells.EntireRow.Hidden = False
End Sub

 

[veyselk]

Makro Hata

sayın AS3434 sorun çözüldü teşekkür ederim.Diğer Arkadaşlara da teşekkür ederim.