Sayfalar Arası Geçişte Aktif Sayfayı Gizlemek

[ckaval89]

Merhaba Değerli Üstatlar,

Birden fazla çalışma sayfası olan bir excelim var. Her sayfada aynı butonlar mevcut. Butonlara tıklandığında butona atanmış sayfaya gitmek ve mevcut sayfayı gizlemek istiyorum. Makro kaydet ile aşağıdaki şekilde kodları oluşturdum. Burda düzeltmek istediğim yer, kodlarda homepage sayfasından gittiği için sadece o sayfada makrolar çalışıyor. Fakat farklı bir sayfada aynı butona aynı makroyu atadığımda çalışmıyor. homepage yerine mevcut sayfayı gizletebilmem için nereyi değiştirmem gerektiği konusunda yardımcı olabilirseniz çok sevinirim. Şimdiden sonsuz teşekkürler.

Kodlar:

Sub vsPlan()
'
' vsPlan Macro
'

'
Sheets("Home Page").Select
Sheets("Detail P&L vs Plan").Visible = True
Sheets("Home Page").Select
ActiveWindow.SelectedSheets.Visible = False
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 1
Range("A4").Select
End Sub
Sub vsLastYear()
'
' vsLastYear Macro
'

'
Sheets("Home Page").Select
Sheets("Detail P&L vs Last Year").Visible = True
Sheets("Home Page").Select
ActiveWindow.SelectedSheets.Visible = False
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A4").Select
End Sub
Sub GraphicsBySegment()
'
' GraphicsBySegment Macro
'

'
Sheets("Home Page").Select
Sheets("By_Segment").Visible = True
Sheets("Home Page").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
Sub GraphicsbyChannel()
'
' GraphicsbyChannel Macro
'

'
Sheets("Home Page").Select
Sheets("By_Channel").Visible = True
Sheets("Home Page").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
Sub PLTemplate()
'
' PLTemplate Macro
'

'
Sheets("Home Page").Select
Sheets("PL").Visible = True
Sheets("Home Page").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
Sub BS()
'
' BS Macro
'

'
Sheets("Home Page").Select
Sheets("BS").Visible = True
Sheets("Home Page").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
Sub Reserves()
'
' Reserves Macro
'

'
Sheets("Home Page").Select
Sheets("Reserves").Visible = True
Sheets("Home Page").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
Sub Opex()
'
' Opex Macro
'

'
Sheets("Home Page").Select
Sheets("2018 Opex Summary").Visible = True
Sheets("Home Page").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
Sub RetailbyProduct()
'
' RetailbyProduct Macro
'

'
Sheets("Home Page").Select
Sheets("retail products").Visible = True
Sheets("Home Page").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
Sub Medexonlybytype()
'
' Medexonlybytype Macro
'

'
Sheets("Home Page").Select
Sheets("Medex Only By Type").Visible = True
Sheets("Home Page").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
Sub HomePage()
'
' HomePage Macro
'

'
Sheets("Medex Only By Type").Select
Sheets("Home Page").Visible = True
Sheets("Medex Only By Type").Select
ActiveWindow.SelectedSheets.Visible = False
ActiveWindow.SmallScroll Down:=-12
Range("A2:B2").Select
End Sub

 

[Orion1]

Aktif sayfayı gizler.
Deneyiniz.

Activesheet.visible = false

 

[ckaval89]

Çok teşekkürler üstat.

 

[Orion1]

Çok teşekkürler üstat.

Bu türden kodları kolaylıkla makro kaydet yöntemi ile bulabilirsiniz.
İyi çalışmalar.