Soru Makronun hangi excel sayfasında çalışacağı

[Szg15]

Makronun hangi excel sayfasında çalışacağını nasıl belirteceğiz?

Düğmeyi Sayfa3’e ekleyip ilgili makroyu bu düğmeye atayınca kod Sayfa3 için çalışıyor.

Düğmeyi Sayfa1’e ekleyip ilgili makroyu bu düğmeye atayınca kod Sayfa1 için çalışıyor; ben düğmeyi Sayfa1’e ekleyip, ilgili makroyu atayınca Sayfa3 için çalışmasını istiyorum. Kodların en başına ne yazmamız gerekiyor? Yardımcı olursanız çok memnun olurum..

 

[ÖmerFaruk]

Sanırım ikisi de uygulanabilir.

Sub Öteki_Sayfada()
Application.ScreenUpdating = False
Worksheets("Sayfa3").Activate
    '.....
    'Kodlarınız
    '.....
Worksheets("Sayfa1").Activate
Application.ScreenUpdating = True
End Sub

Sub Öteki_Sayfada_2()
Dim Sh As Worksheet
Set Sh = Worksheets("Sayfa3")
    '.....
    'Kodlarınız
    '.....
    'Kodlarınızdaki tüm hücre başvurularının önüne
    'Range("A1") Yerine
    'Sh.Range("A1") gibi Sh ifadesini yazın
   
End Sub

 

[Korhan Ayhan]

Kodlarınızın yapısı uygunsa aşağıdaki gibi de uygulayabilirsiniz.

Option Explicit

Sub Test()
    With Sheets("Sayfa3")
        .Cells(1, 1) = "Başlık1"
        .Cells(1, 2) = "Başlık2"
        .Cells(1, 3) = "Başlık3"
        .Cells(1, 4) = "Başlık4"
        .Cells(1, 5) = "Başlık5"
    End With
End Sub

 

[Szg15]

Sanırım ikisi de uygulanabilir.

Sub Öteki_Sayfada()
Application.ScreenUpdating = False
Worksheets("Sayfa3").Activate
    '.....
    'Kodlarınız
    '.....
Worksheets("Sayfa1").Activate
Application.ScreenUpdating = True
End Sub

Sub Öteki_Sayfada_2()
Dim Sh As Worksheet
Set Sh = Worksheets("Sayfa3")
    '.....
    'Kodlarınız
    '.....
    'Kodlarınızdaki tüm hücre başvurularının önüne
    'Range("A1") Yerine
    'Sh.Range("A1") gibi Sh ifadesini yazın
  
End Sub

Teşekkür ederim, elinize sağlık

 

[Szg15]

Kodlarınızın yapısı uygunsa aşağıdaki gibi de uygulayabilirsiniz.

Option Explicit

Sub Test()
    With Sheets("Sayfa3")
        .Cells(1, 1) = "Başlık1"
        .Cells(1, 2) = "Başlık2"
        .Cells(1, 3) = "Başlık3"
        .Cells(1, 4) = "Başlık4"
        .Cells(1, 5) = "Başlık5"
    End With
End Sub

Teşekkür ederim Korhan Bey, elinize sağlık