gizli sayfadaki makro

[vasifokur]

Ekteki dosyada, gizli bir sayfadaki makroyu çalıştırabilir miyiz ? Yardımlarınız için teşekkür ederim.

 

[uzmanamele]

merhaba
aşağıdaki kodları deneyiniz

Sub Makro1()

Sheets("Sayfa2").Range("B5:G22").ClearContents
Sheets("Sayfa1").Select
End Sub

 

[vasifokur]

Sn uzmanamale ; yardımınız için teşekkür ederim.

 

[vasifokur]

Bu makroyu uyguladım. Gayet güzel çalışıyor.Başka makroları çalıştırmak için neler yapmalıyız ? Örneğin gizli sayfadan bilgi almak için yapılmış bir makroyu ya da gizli sayfada sıralama yaptırıp diğer sayfalara taşıyan makroyu hangi yöntemle çalıştırabiliriz ?

 

[uzmanamele]

merhaba
bildiğim kadarıyla hiçbir farkı yok. tek yapmamamız gereken gizli sayfada .Select komutu kullanmayın, hata verir.

 

[vasifokur]

Sn. Uzmanamele; dediğiniz yaptım ama bazı makroları çalıştıramadım. Örneğin ekfe yazdır makrosu var. Select'i sildim,olmadı. Acaba nerede yanlış yapıyorum?

 

[uzmanamele]

merhaba
eklediğiniz dosyada sorun yok ki, yanlış dosya eklemiş olmayasınız.

 

[vasifokur]

Yazdırılacak sayfalar açık olduğuı için sorun gözükmüyor. Sayfaları gizleyip tekrar gönderiyorum.

 

[uzmanamele]

merhaba
aşağıdaki kodları denermisiniz

Sub yazdır()
Application.ScreenUpdating = False
Sheets("1").Visible = True
Sheets("2").Visible = True

Sheets("1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("1").Visible = False
Sheets("2").Visible = False

End Sub

 

[vasifokur]

Sn. Uzmanamele.İlginize çok teşekkür ederim.

 

[Ayhan Ercan]

Merhaba,

Alternatif olarak kısaltılmış bir kod:

Sub yazdır()
    For i = 1 To 2
        With Sheets("" & i)
            .Visible = True
            .PrintOut Copies:=1, Collate:=True
            .Visible = False
        End With
    Next
End Sub