Makro ile sayfa değiştirme

[ormann]

Sayın arkadaşlar maro ile 1.sayfadan 2.sayfaya nasıl geçmek için hangi kodu kullanırız.yardımcı olurmusunuz

 

[alptun20]

Sub Sayfa2()
Sheets("Sayfa2").Select
End Sub

Kolay gelsin

 

[ormann]

teşekkür ederim

 

[Vedat Özer]

Selamlar,


Altarnatif olarak aşagıdaki kodları boş bir modul ekleyip yapıştırıp daha sonradan "Autpen" çalıştırın araç çubugu sekmesinde sayfa isimleri yer alacaktır,

Kodlar alıntıdır.

Dim MyControl

Sub Auto_Open()
MyMenu
Range("A1").Select
End Sub

Sub MyMenu()
On Error Resume Next
If Not MyControl Is Nothing Then GoTo ResumeSub:
Set MyControl = CommandBars.FindControl(Type:=msoControlComboBox, Tag:="MyMenu", Visible:=True)
MyControl.Delete
On Error GoTo 0
Set MyBar = Application.CommandBars("standard")
Set NewCombo = MyBar.Controls.Add(Type:=msoControlComboBox)
ResumeSub:
With NewCombo
.Clear
.Text = "Sayfa secin"
.Tag = "MyMenu"
.Width = 150
.Text = ActiveSheet.Name
For i = 1 To Worksheets.Count
.AddItem Sheets(i).Name, i
Next
.DropDownLines = 5
.DropDownWidth = 90
.OnAction = "MyCombo"
End With
Set NewCombo = Nothing
Set MyBar = Nothing
Set MyControl = Nothing
End Sub
'
Sub MyCombo()
Set MyControl = CommandBars.FindControl(Type:=msoControlComboBox, Tag:="MyMenu", Visible:=True)
Sheets(MyControl.Text).Select
Set MyControl = Nothing
End Sub
'
Sub DelMyMenu()
Set MyControl = CommandBars.FindControl(Type:=msoControlComboBox, Tag:="MyMenu", Visible:=True)
MyControl.Delete
Set MyControl = Nothing
End Sub
'
Sub Auto_Close()
DelMyMenu
End Sub

 

[ormann]

teşekkürler sayın hocam