Düğme İle Köprü Oluşturma

[baranynl]

Merhabalar,

makro bilgim hiç yok burdan genelde konuları takip ederek öğrenmeye çalışıyorum,

Bir kaç sayfalık excelim var ilk sayfa X harfine köprü tanımladım bunun yerine düğme eklemek istiyorum bunu nasıl yapabilirim ayrıca gittiğim sayfada geri dönmek içinde de bu şekilde düğmeler eklemek istiyorum yardımcı olursanız sevinirim.

 

[EmrExcel16]

Merhaba , deneyiniz.

Sub btn()
    Dim b As Object
    Set b = ActiveSheet.Buttons(Application.Caller)
    Sheets(b.Caption).Select
End Sub

 

[baranynl]

Merhaba , deneyiniz.

Sub btn()
    Dim b As Object
    Set b = ActiveSheet.Buttons(Application.Caller)
    Sheets(b.Caption).Select
End Sub

Hocam çok güzel olmuş ama ben bunu nasıl ekleyebilirim kendi çalışmalarıma bu konuda bilgim olmadığı için danışıyorum basit yolu ile sıralarsanız çok sevinirm.

 

[Muzaffer Ali]

Merhaba.

Geliştirici sekmesini açın.
Denetimler içinde bulunan Ekle'yi tıklatın.
Açılan listeden Form Denetimleri - Düğme seçin.
Düğmeyi eklemek istediğiniz yeri seçin-tıklatın.
Açılan pencereden Yeni tıklatın.
Açılan pencerede aşağıdaki gibi iki satır kod yazılı olarak gelecektir.

Sub Düğme1_Tıklat()

End Sub

Bu iki kod arasına sayfa aktifleştirme kodu ekleyeceğiz.
Kod şu : Worksheets("SayfaAdı").Activate SayfaAdı yerine siz aktif etmek istediğiniz sayfanın adını yazın.
Kodlar son olarak şöyle olmalı.

Sub Düğme1_Tıklat()
Worksheets("ahmet").Activate

End Sub

Bu kodlar ahmet adlı sayfayı aktif eder.

Diğer butonları da aynı şekilde ekleyebilirsiniz.

Not: Kod yazılan sayfaya daha sonra ulaşmak için. CTRL+F11 tuşlarına basarak ulaşabilirsiniz.

 

[EmrExcel16]

Merhaba ,
En zoru da bu işte
Kendi çalışmanızı açın sayfa sekmeleri üzerinde sağ tıkla ve kod görüntüleyi tıklayın , açılan kod sayfasında sol taraftaki sayfa isimleri üzerinde yine sağ tıkla insert ve module tıkla , yeni bir module oluşmuş olacak ve o module çift tıkla kod sayfası gelecek (beyaz boş bir sayfa )vermiş olduğum kodu oraya yapıştır, daha sonra bu kod sayfasını kapat.

Sayfanıza bir buton ekleyeceksiniz , Geliştirici sekmesinin denetimler grubunda Ekle'yi tıklatın ve sonra form denetimleri'nin altında düğme

'i tıklatın , Düğmenin sol üst köşesinin görünmesini istediğiniz çalışma sayfası konumunu tıklatın. Makro ata açılır penceresi görüntülenir,Düğmeye makro atayıp Tamam'ı tıklatın.

Ve düğmenin denetim özelliklerini belirtmek için, düğmeyi sağ tıklatın ve sonra Metni düzenle'i tıklatın ve hangi sayfaya gitmesini istiyorsanız o sayfanın ismini yazın.
Bundan sonra sadece butonu kopyalayıp istediğiniz kadar çoğaltabilirsiniz .

En sonda dosyayı kaydederken Makro içeren dosya olarak kaydetmelisiniz (xlsm uzantılı)

 

[baranynl]

Çok teşekkür ederim bu kadar detaylı paylaşımda bulunduğunuz için kolaylıklar dilerim.

 

[EmrExcel16]

Çok teşekkür ederim bu kadar detaylı paylaşımda bulunduğunuz için kolaylıklar dilerim.

Rica ederim , İyi çalışmalar.

 

[baranynl]

peki internet sitesine yönlendirmek için nasıl bir kod yazılabilir

 

[Muzaffer Ali]

Şu kodu kullan.

Sub Düğme1_Tıklat()
    Dim Ie As Object
    Set Ie = CreateObject("InternetExplorer.Application")
    Ie.Visible = True
    Ie.Navigate "http://www.excel.web.tr"
End Sub

 

[baranynl]

Şu kodu kullan.

Sub Düğme1_Tıklat()
    Dim Ie As Object
    Set Ie = CreateObject("InternetExplorer.Application")
    Ie.Visible = True
    Ie.Navigate "http://www.excel.web.tr"
End Sub

Teşekkürler ilkinde çalışıyor fakat ikince bir bağlantı eklediğimde
aşağıda ki şekilde uyarı alıyorum
Set Ie = CreateObject("InternetExplorer.Application")

çalışandakini bozulan kopyaladığımda diğeri bozuluyor

 

[baranynl]

Hatta çok garip olacak arada tüm düğmelerden ilgili internet sitelerine gidebiliyorum sonra arada hata veriyor arada çalışıyor bu neden kaynaklı olablir?

 

[EmrExcel16]

Bu şekilde ilerlemek çok zor , önceki kodlarla birbirine karisiyor olabilir.dosyaniz üzerinden ilerlemek daha doğru olur. Tam olarak ne istediginizi ve hangi butonla neyi yapmasini istiyorsaniz açiklarsaniz çözüm bulunabilir.

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

adres = "https://www.excel.web.tr/threads/duegme-ile-koeprue-olusturma.182685/#post-1007136"
Set internet = CreateObject("WScript.Shell")
internet.Run "chrome.exe " & adres