Açılan kitapta istenen sayfanın açılması

[özmer_mühendislik]

bu kodlarla ilgili sıkıntılarım var

Private Sub CommandButton1_Click()
Workbooks.Open Filename:="C:\Documents and Settings\COMPUTER\Desktop\kitap1.xls"
Sheets("Sayfa1").Select
End Sub

burdakı amacım ben yapmıs oldugum butona bastıgımda adresı yazılı olan kitabımın sayfa1 ni acması

ama kitap1 acıyor belirlediğim sayfayı acmıyor hata veriyor. nerde hata yapıyorum.

 

[AS3434]

Birde şöyle deneyin.

Private Sub CommandButton1_Click()
Workbooks.Open Filename:="C:\Documents and Settings\COMPUTER\Desktop\kitap1.xls"
Sheets("Sayfa1").Select
[a1].select
End Sub

Not. Sayfa1 in adı değişik mi?

 

[özmer_mühendislik]

sayın AS3434 ayfa adı değisik sizin tanımladıgınız sekılde yaptım ama olmadı
hatayı resim olarak vereyim

 

[AS3434]

Sn özmer_mühendislik

Sayfa adı değisik

Aslında kodlarda sorun yok.Çalışması lazım.
Sayfa adı ve kitap adı değişik ise KIRMIZI yerlere onları yazın.

Private Sub CommandButton1_Click()
Workbooks.Open Filename:="C:\Documents and Settings\COMPUTER\Desktop\KİTABINIZIN ADI.xls"
Sheets("SAYFANIN ADI").Select
End Sub

Yine olmazsa aynı işlemi makro kaydet yöntemi ile tekrar yapın.

 

[baknediycem]

merhaba

buna benzer bir kodlamayla butona tıkladığımda istediğim web sayfasını nsıl acabilirim?

excel.web.tr yi ornek olarak kodlayabiliri misiniz?

 

[baknediycem]

yardım eder misiniz?

 

[AS3434]

Linkleri inceleyin.

http://www.excel.web.tr/showthread.php?p=150275&highlight=webbrowser#post150275

http://www.excel.web.tr/showthread.php?t=24443&highlight=webbrowser

 

[özmer_mühendislik]

Sn özmer_mühendislik



Private Sub CommandButton1_Click()
Workbooks.Open Filename:="C:\Documents and Settings\COMPUTER\Desktop\KİTABINIZIN ADI.xls"
Sheets("SAYFANIN ADI").Select
End Sub
.

sayın AS3434 vermıs oldugunuz sekılde denedım ve oldu tesekkur ederım.
ama baska bır sorunum daha var ben butona bastıgımda mevcut sayfayı kapatıp acam ıstedıgım sayfayı acıyor. Ama ben her ıkı sayfanında acık kalmasını ıstıyorum. İLGİNİZ VE ALAKANIZA COK TESEKKUR EDERİM.

 

[bedersu]

Merhaba,

Sayın AS3434'ün düzeltmiş olduğu kodlarla mevcut çalışma kitabı kapatılmadan ismi geçen kitap açılır.Her iki sayfanın da açık kalmasından kastınız aynı pencerede gözükmesiyse Pencere-Yerleştir menüsünden Dikey yerleştir demeniz gerekir.İstediğiniz bu mu?

 

[kombo]

Yukardaki kodların altına

("Kitap2").Activate

ilave edin.
Kitap2 makroyu çalıştırdığınız kitabın adıdır.

 

[özmer_mühendislik]

Yukardaki kodların altına

("Kitap2").Activate

ilave edin.
Kitap2 makroyu çalıştırdığınız kitabın adıdır.

sayın kombo burdakı bahsettıgınız kodu useform sayfasınamı yazıcagız yoksa modul sayfasınamı? ben her ıkısınıde denedım ama olmadı bu arada bu kod yalnız basınamı kullanılıyor yoksa

sub auto_open
("kitap2").activate
end sub

seklındemı yazıcagız.yardımlarınızı beklıyorum....

 

[özmer_mühendislik]

Merhaba,

Sayın AS3434'ün düzeltmiş olduğu kodlarla mevcut çalışma kitabı kapatılmadan ismi geçen kitap açılır.Her iki sayfanın da açık kalmasından kastınız aynı pencerede gözükmesiyse Pencere-Yerleştir menüsünden Dikey yerleştir demeniz gerekir.İstediğiniz bu mu?

sayın bedersu burdakı kastım ben butona bastıgımda acık olan sayfamı kapatıyor. sonra benım butondakı tanımladıgım kitabı acıyor.
AMA BENIM ISTEDIGIM HER İKİ PENCERENİNDE ACIK OLMASI


İLGİNİZ VE ALAKANIZA TESEKKUR EDERİM

 

[bedersu]

Sayın özmer_mühendislik,

Kodlarda mevcut çalışma kitabını kapatacak bir satır yok.Bu kodlar normal şartlar altında açık hiçbir kitabı kapatmaz.Hatta ezbere olmasın diye kodları denedim.Ben de birinci kitap kapanmadan ikincisi açılıyor.Sorun başka bir yerde olmalı diye düşünüyorum.

 

[kombo]

Sn. özmer_mühendislik

Private Sub CommandButton1_Click()
Workbooks.Open Filename:="C:\Documents and Settings\COMPUTER\Desktop\KİTABINIZIN ADI.xls"
Sheets("SAYFANIN ADI").Select
("Kitap2").Activate
End Sub


Kitap2 Buton koyduğunuz sayfa adı olacak.
Benim söylediğim şekil bu. Her iki sayfanızı da açar ve ilk başladığınız ekrana (Kitap2) dönersiniz. Ama her iki sayfa da açıktır.

AMA BENIM ISTEDIGIM HER İKİ PENCERENİNDE ACIK OLMASI

Demişsiniz. Yani Sn. bedersu'nun dediği gibi her iki sayfayı da aynı anda ekranda mı görmek istiyorsunuz? Eğer öyleyse Sn bedersu'nun dediğini yapın.

Pencere-Yerleştir menüsünden Dikey yerleştir

 

[özmer_mühendislik]

Sn. özmer_mühendislik

Private Sub CommandButton1_Click()
Workbooks.Open Filename:="C:\Documents and Settings\COMPUTER\Desktop\KİTABINIZIN ADI.xls"
Sheets("SAYFANIN ADI").Select
("Kitap2").Activate
End Sub


Kitap2 Buton koyduğunuz sayfa adı olacak.
Benim söylediğim şekil bu. Her iki sayfanızı da açar ve ilk başladığınız ekrana (Kitap2) dönersiniz. Ama her iki sayfa da açıktır.



Demişsiniz. Yani Sn. bedersu'nun dediği gibi her iki sayfayı da aynı anda ekranda mı görmek istiyorsunuz? Eğer öyleyse Sn bedersu'nun dediğini yapın.

sayın KOMBO ilginiz ve alakanıza teşekkür ederim

burda sanırım tanımlama hatası var
öncelikle ("kitap2").activate bu benım acmak ıstedıgım kitap ise
sheets("kitabın adı").select ne olacak...
yanı kısaca ben bu butonu bir menu yardımıyla (.xla) eklentı dosyası yaparak tüm excel kitaplarında etkileştirdim. benım burdakı sorunum ben herhangi bir kitaptan bu butona bastıgım zaman o herhangi kitabımı kapatıp benım tanımladıgım kitabı acıyor.

bütün sorun burda burda bahsettigim herhangi bir kitabın belli baslı bir adı yok yanı tüm kitaplarda olabılır ama acmak ıstedıgım kitabın tabiiki bir adı var bütün sorun bu...
TEŞEKKÜRLER...

 

[AS3434]

Sayın özmer_mühendislik

Sizin söylemek istediğinizi ve ne yapmak istediğinizi anladım. Forumda bu konuyla ilgili bir soruda ben sormuştum. Maalesef cevap alamadım. Yapılması imkansız olan bir olay değil ama çözümünü bulamadım.
Eklenti yapmak aklıma gelmemişti. Biraz onun üzerimde uğraşayım.

http://www.excel.web.tr/showthread.php?t=28312

 

[özmer_mühendislik]

Sayın özmer_mühendislik

Sizin söylemek istediğinizi ve ne yapmak istediğinizi anladım. Forumda bu konuyla ilgili bir soruda ben sormuştum. Maalesef cevap alamadım. Yapılması imkansız olan bir olay değil ama çözümünü bulamadım.
Eklenti yapmak aklıma gelmemişti. Biraz onun üzerimde uğraşayım.

http://www.excel.web.tr/showthread.php?t=28312

sayın AS3434 ben sorunu buldum ve cozdum. tesekkurler ilginiz ve alakanıza...

 

[AS3434]

Sayın özmer_mühendislik

Çözümünüzü yazın da kullanabilirsem bende kullanayım.

 

[özmer_mühendislik]

sayın as3434
sorun useforrm özelliklerinden(properties) kısmında show_modal kısmının (true) olasıydı. bu konuda sayın COST_CONTROL arkadasıma cok tesekkur ederim. ayrıca bu calısmada sayın VAGATOGA arkadasımda ve sizede cok tesekkür ederim. kısaca tüm forumdaki arkadaslara tesekkür ederim