makro açılışta çalıştırmak

[2008model]

excell dosyamda kullanmakta olduğum bir makrom var ben dosya açılışında makronun çalışmasını istiyorum açılış makrosunu nasıl ilave ederm acaba .şimdiden teşekkürler herkese.



Sub Boş_Satırları_gizle()
Dim sat As Long
Application.ScreenUpdating = False
For sat = 2 To Cells(65536, "b").End(xlUp).Row
If Cells(sat, "b") = "" And Cells(sat, "c") = "" And Cells(sat, "d") = "" _
And Cells(sat, "e") = "" And Cells(sat, "f") = "" And Cells(sat, "g") = "" _
And Cells(sat, "h") = "" And Cells(sat, "ı") = "" Then
Cells(sat, "b").EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
MsgBox (" satır gizleme işlemi başarı ile tamamlanmıştır.")
End Sub

 

[Ömer]

Merhaba,

Daha önce bunun cevabını almıştınız sanırım. Eksik olan nedir?

http://www.excel.web.tr/showthread.php?t=74295

.

 

[2008model]

hocam yapıyorum ancak dosyayı açtığımda aynı haliyle duruyor.yani satırlar gizlenmemiş oluyor.makrolardan çalıştırınca oluyor ancak.açlır açılmaz çalıştıramadım.

 

[Ömer]

Örnek dosya ekleyiniz..

.

 

[2008model]

hocam örnek ekte..teşekkürler..

 

[Korhan Ayhan]

Selamlar,

Makronuzu boş bir modüle eklerseniz sonuç alabilirsiniz.

Kod editörü penceresinden INSERT menüsünden MODULE seçeneğini seçin. Sağ tarafta açılan beyaz pencereye dosyanızdaki kodu aktarın. Dosyanızı kapatıp tekrar açın düzelecektir.

Ayrıca kodlarınızın Dim ile başlayan satırından sonra olmak üzere aşağıdaki kob bloğunuda eklemelisiniz. Bu kod ilk önce sayfadaki tüm gizli satırları görünür hale getirir.

Cells.EntireRow.Hidden = False

 

[2008model]

hocam verdiğiniz bilgiler işimi gördü çook teşekkürler ellerine sağlık.ayrıca mübarek ramazan bayramınızı en içten dileklerimle kutluyorum.

 

[taneryilmaz]

Verilerin girildiği bir dosyada özet rapor ile diğer bir sayfada raporlama yaptırıyorum. Tabi veri girişi herkesi ilgilendirmiyor. Rapor sayfasının üzerindeyken kaydedilmemesi ihtimaline binaen , açılışta rapor sayfasına otomatik gidilebilmesini ve biçimlendirme yapan görsel tanıttığım bir makoyu birleştirmek istiyorum

Private Sub Workbook_Open()
Worksheets("Extra_22_Stok").Select
Call Makro ' Biçimlendir Makro
End Sub
veya
Private Sub Workbook_Open()
Worksheets("Stok").Select
Call Macro ' Biçimlendir Makro
End Sub

yaptım çalışmadı

Sub or Function not defined. uyarısı çıktı tamam dediğimde
sarı ok işaretli hata satırında Private Sub Workbook_Open() işaretli kalıyor.