Macroyu sayfalarda çalıştırma.

[Aktolgali]

Merhaba;

Ekte gösterdiğim dosyada ki makronun bütün sayfalarda çalışmasını istiyorum.
Yani sayfa1 de bulunan düğmeye tıklayınca hem sayfa2 de hemde sayfa3 te arka plan değişsin ve klavuz çizgileri kalksın.
Umarım anlatabilmişimdir.

(Ekteki dosyayı masaüstüne çıkarırmanız gerekli)

Eyvallah...

 

[Skorpiyon]

Sayın Aktolgalı,

Hangi ek ?

 

[Skorpiyon]

Sayın Aktolgali,

Butonunuz altındaki kodları aşağıdaki şekilde düzeltiniz.

Sub grid()
Dim a
Application.ScreenUpdating = False
For a = 1 To Worksheets.Count
Sheets("Sayfa" & a).Select
ActiveSheet.SetBackgroundPicture Filename:=""
ActiveSheet.SetBackgroundPicture Filename:= _
"C:\Documents and Settings\Administrator\Desktop\makro\Zemin.bmp"
ActiveWindow.DisplayGridlines = False
Next
Sheets("Sayfa1").Select
Application.ScreenUpdating = True
End Sub

Saygılarımla...

 

[Aktolgali]

Sn.Sertkaya çözüm için teşekkür ederim ama bir sorunum var
isimleri "sayfa" olanlarda çalıştı ama mesela ismi "deneme" olan sayfada çalışmadı ve benim ismi sayfa olmayan bir sürü sayfam var.

Ne yapabiliriz..?

 

[Skorpiyon]

Sayın Aktolgali,

Kodlarınızı aşağıdaki şekilde değiştirin.

Sub Düğme1_Tıklat()
Dim a
Sheets("Sayfa1").Select 'Yalnız burayı ilk sayfanızın ismi yapın yeter.
ActiveSheet.SetBackgroundPicture Filename:=""
ActiveSheet.SetBackgroundPicture Filename:= _
"C:\Documents and Settings\321\Desktop\makro\Zemin.bmp"
ActiveWindow.DisplayGridlines = False
Application.ScreenUpdating = False
For a = 1 To Worksheets.Count - 1
ActiveSheet.Next.Select
ActiveSheet.SetBackgroundPicture Filename:=""
ActiveSheet.SetBackgroundPicture Filename:= _
"C:\Documents and Settings\321\Desktop\makro\Zemin.bmp"
ActiveWindow.DisplayGridlines = False
Next
Sheets("Sayfa1").Select
Application.ScreenUpdating = True
End Sub

Sayfa ismi ne olursa olsun, işinizi görecektir.
Saygılarımla...

 

[Aktolgali]

Teşekkür ederim Sn.Sertkaya. İşimi tam olarak gördü.

Köpeğinizide sevin ama insanları sevmekten vazgeçmeyin bence...
Eyvallah...

 

[Skorpiyon]

Sayın Aktolgali,

Yaşınız kaç bilmiyorum ama, insanların çok basit şeyler uğruna yaptıklarını bir görseniz, şaşar kalırsınız. Dilerim hayat size hep iyi yüzünü gösterir.


Saygılarımla...