Userforum'da buton bağlama

Katılım
25 Aralık 2006
Mesajlar
48
Excel Vers. ve Dili
2003
İki sorum olacaktı;
1- Userforumda yapmış olduğum butonu başka bir excel çalışma kitabına nasıl bağlayabilirim?
2- Excel çalışma sayfasını açtığımda otomatik olarak makronun çalışması için ne yapabilirim?

Yardımlarınızı bekliyorum.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba


1. sorunuzu anlayamadım .Açarmısınız.

2.Çalışma sayfanızınızın kod penceresiniz açınız.
"Sayfa isimleri üzerinde sağ mouse basın gelen menüde kod görüntüleyi şeçiniz.

Aşağıdaki kodu yapıştırınız.

Private Sub Worksheet_Activate()
"makronuzun adını yazınız"
End Sub
 
Katılım
25 Aralık 2006
Mesajlar
48
Excel Vers. ve Dili
2003
Şimdi bende işime yarayan birden fazla excel dosyası var hepsine girebilmem için bilgisayarın içinde ayrı ayrı aramak zorunda kalıyorum. Bunu kolaylaştırmak için hepsini bi excel sayfasında userformda yapacak olduğum forumda bi butona bastığımda o excel çalışması gelsin istiyorum. Örneğin; a şirketi b şirketi diye iki ayrı excel dosyam var başka bi boş excel sayfasından butona tıkladığımda a şirketi yada b şirketinin dosyasının açılmasını istiyorum.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

Aşağıdaki dosyayı inceleyiniz

Private Sub UserForm_Initialize()
dizin = "d:\dosyalar\excel\b"

yerine siz istediğiniz dizini yazınız.
dizin içindeki kitaplar Listbox1'e listelenecektir.

Listbox'tan seçeceğiniz kitap açılacaktır.

Ayrıca Modül1 içindeki diğer kitap açma makrolarını inceleyiniz.
 
Katılım
25 Aralık 2006
Mesajlar
48
Excel Vers. ve Dili
2003
Dostum son yolladığın kitapac.zip dosyasının içindeki dosyayı inceledim ve dizini değiştirim ve listeye isimleri geldi. Fakat herhangi bir excel dosyasına tıkladığım zaman 1004 nolu hata mesajını veriyor. Yani o dosyayı açmıyor yardımcı olurmusun?
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

Koyu ile yazılan yeri kodlara ilave ediniz

ListBox1_Click()'i silin aşağıdaki kodları userform kod penceresine yapıştırınız.


Dim dizin As String

Private Sub ListBox1_Click()
Workbooks.Open Filename:=dizin & "\" & ListBox1.Value
End Sub
 
Son düzenleme:
Katılım
8 Temmuz 2006
Mesajlar
143
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 Tr
merhaba:
verdiğiniz makroları kullanarak excel de dosyayı açabiliryoruz fakan visualbasic programında hata veriyor neden olabilir.bunun için başka bir makro mu yazmak gerekli
teşekkürler
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

merhaba:
verdiğiniz makroları kullanarak excel de dosyayı açabiliryoruz fakan visualbasic programında hata veriyor neden olabilir.bunun için başka bir makro mu yazmak gerekli
teşekkürler
Açıklamanızı tam olarak anlayamadım.Biraz daha açarmısınız.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

İlgi ve duyarlılığınıza teşekkür ederim....
 
Üst