Başlangıç sayfasına dönmek

[bravo64]

İyi geceler arkadaşlar..Nice onbinlere diyorum ve naçizane tebriklerimi yolluyorum..Sayenizde çok şey öğreniyoruz..
Sorum şu;
terminal sayfasından kayıt butonuyla çeşitli hesap sayfalarına kayıt yapıyorum.sorun yok ama,butona bastığımda ekran kayıt yapılan sayfaya gidiyor,işlemi yapıyor ama o sayfada kalıyor..Acaba işlemin başladığı sayfaya nasıl döner??
iyilikler..

 

[bravo64]

kod şöyle
Sub tahfiş()

If Sheets("tahterminal").Range("j14") = "BU MAKBUZ KAYDEDİLMİÞTİR!" Then If MsgBox("YENİ FİÞ AÇIN BU FİÞ KULLANILDI!!", 0) = vbOK Then Exit Sub
If Sheets("tahterminal").Range("b14") > 0 Then GoTo büyük

büyük: If MsgBox("Bu Fişi Onaylıyor musunuz?", 32 + 4 + 512 + 0, "ONAY") = vbNo Then Exit Sub
Sheets("tahterminal").Range("u4:y4").Copy
sat = Sheets("tahsilat").Cells(65536, 2).End(xlUp).Row
Sheets("tahsilat").Cells(sat + 1, 2).PasteSpecial Paste:=xlValues
Application.ScreenUpdating = False
MsgBox "TAHSİLAT KASA DEFTERİNE İÞLENDİ", vbCritical, "BİLGİ"

Application.ScreenUpdating = False
c = Sheets("tahterminal").Range("a50")
Application.Sheets(c).Select
Sheets("anaterminal").Range("f2:h2").Copy
ad = Sheets(c).Cells(65536, 4).End(xlUp).Row
Sheets(c).Cells(ad + 1, 4).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Sheets("tahterminal").Range("j14") = "BU MAKBUZ KAYDEDİLMİÞTİR!"
Application.ScreenUpdating = True


End Sub

 

[KuTuKa]

ilk sayfaya yada döneceğiniz sayfaya Ana Menu ismini verdiğinizi düşünürsek ve hazırlamış olduğunuz diğer sayfalara bir düğme ekleyip aşağıdaki makroyu atarsanız işinize yararayacaktır.


Sub AnaMenuGit()
'Ana menu'ye gider
Sheets("Ana Menu").Select
End Sub





saygılar
halil kutuka

 

[bravo64]

Çok teşekkür ederim sayın Kutuka..Elinize sağlık..
İyilikler dilerim