Makro Karmaşası

[vaskal]

Hazırladığım excell dosyasında 20 adet çalışma sayfası mevcut. Her sayfayada AnaSayfadan makrolarla ulaşmayı düşünüyorum. Acaba makro karmaşasını önlemek ve excelin yığılmaması için tek makro ile bu farklı sayfalara ulaşmak mümkün olur mu?

 

[Skorpiyon]

Sayın vaskal,

Ana Sayfanıza bir buton ekleyin ve o butonun kodlarına aşağıdaki kodları yazın. Dilerim işinizi görür.

Sub Düğme1_Tıklat()
Dim a
a = InputBox("Hangi Sayfaya Gitmek İstiyorsunuz ?")
Sheets(a).Select
End Sub

Saygılarımla...

 

[vaskal]

Teşekkürler....

 

[Orion1]

Merhaba.
Alternatif.Ekli dosyayı inceleyiniz.
Dosyayı güncelledim.
İndirip deneyiniz.

 

[vaskal]

Sertkaya

Sub Düğme1_Tıklat()
Dim a
a = InputBox("Hangi Sayfaya Gitmek İstiyorsunuz ?")
Sheets(a).Select
End Sub

İlginize Çok teşekkürler: Ancak hangi sayfay gideceksiniz diye soruyor, Sayfaları seçeceğim bir kutu gelmiyor. çalışmamda 20 tane sayfa olduğu için hepsini aklımda tutmam zor. Yada başka birisi kullanacak olursa hangi sayfaların olduğunu bilemeyecek dolayısıyla sayfa seçemeyecek. Bunun yerine seçilecek sayfaları tam adları ile gösterse iyi olur.



Orion2 sizede teşekkür. Sizinkide olur ancak oradada sayfa isimlerini nasıl kendime göre değiştirebilirim bilmiyorum.Sayfa sekmelerinden değişiyor fakat benim sayfa isimlerim kısaltılmış. Ben anlayabilmek için uzun şekilde yazıyorum. Mesele birkaç ekders çizelgesi mevcut. Birisi sözleşmeli öğretmenler için. Bunu sayfa sekmesine bu şekilde yazmak formüller için bayağı bir problem. Bende sayfa sekmesine SÖK yazıyorum.

 

[Seyit Tiken]

Alternatif : Ekli dosyadaki uygulamayı kendinize göre değiştiriniz.

 

[Orion1]

Sertkaya
Orion2 sizede teşekkür. Sizinkide olur ancak oradada sayfa isimlerini nasıl kendime göre değiştirebilirim bilmiyorum.Sayfa sekmelerinden değişiyor fakat benim sayfa isimlerim kısaltılmış. Ben anlayabilmek için uzun şekilde yazıyorum. Mesele birkaç ekders çizelgesi mevcut. Birisi sözleşmeli öğretmenler için. Bunu sayfa sekmesine bu şekilde yazmak formüller için bayağı bir problem. Bende sayfa sekmesine SÖK yazıyorum.

Merhaba.
Autpen prosedürüne eklemeyi unutmuşum Şimdi düzelttim.Sizin istediğiniz gibi çalışıyor..Önceki mesajımdan indirip deneyebilirsiniz.

 

[Orion1]

Pardon yanlış dosya eklemişim şimdi düzellttim.

 

[vaskal]

Teşekkürler....


Sevgili Orion2 mesajdaki dosyayı indirdim yine olmadı, veya ben yanlış anlattım.

Sorun şu: Sekme adları herhangi bir şey olsun mesela Sayfa2 diyelim. Bu sayfada Sözleşmeli Öğretmen Ekders Çizelgesi Olsun. Ben veya başka kullanan birisi bu sayfayı tam olarak bilebilmesi için buton adına tam olarak (Sözleşmeli Öğretmen Ekders Çizelgesi ) yazmalıyım. Dediğim gibi 20 den fazla çalışma sayfası mevcut. Senin çalışmanda açılır listede sayfa adları görünüyoa(Sayfa1 Sayfa2 gibi). Şimdi 20 den fazla çalışma sayfasında hangisini içinde ne olduğunu bu şekilde bilmem imkansız. Sekme adlarını değiştirsem diğer sayfalardaki formüllere bu sekme adlarını entegre etmem çok güç. sekme adlerını değiştirmeden açılır listedeki adları nasıl değiştirebilirim?

 

[vaskal]

Alternatif : Ekli dosyadaki uygulamayı kendinize göre değiştiriniz.

Kardeş Orion2 ye anlattığım sorun maalesef senin programda da oluyor. A1 A2 A3 sütununa yazdığın sayfa isimlerini değiştirince program hata veriyor.

Saygılar...

 

[Orion1]

Teşekkürler....


Sevgili Orion2 mesajdaki dosyayı indirdim yine olmadı, veya ben yanlış anlattım.

Sorun şu: Sekme adları herhangi bir şey olsun mesela Sayfa2 diyelim. Bu sayfada Sözleşmeli Öğretmen Ekders Çizelgesi Olsun. Ben veya başka kullanan birisi bu sayfayı tam olarak bilebilmesi için buton adına tam olarak (Sözleşmeli Öğretmen Ekders Çizelgesi ) yazmalıyım. Dediğim gibi 20 den fazla çalışma sayfası mevcut. Senin çalışmanda açılır listede sayfa adları görünüyoa(Sayfa1 Sayfa2 gibi). Şimdi 20 den fazla çalışma sayfasında hangisini içinde ne olduğunu bu şekilde bilmem imkansız. Sekme adlarını değiştirsem diğer sayfalardaki formüllere bu sekme adlarını entegre etmem çok güç. sekme adlerını değiştirmeden açılır listedeki adları nasıl değiştirebilirim?

Sayfa Sekme Adlarını değiştirince otomatikman combobox içindeki syafa adlarıda değişecektir.
Örnek : Sayfa2 'nin adını Test diye değiştitirin.ve Scombobox içindeki sayfa adı da test olacaktır.
Yoksa siz bu dosyadı kodları kendi dosyanıza kullanacaksınızda ,kendi dosyanızın sayfa adları başka ,o sebepten benim yolladığım dosyada sayfa adları sayfa1,sayfa2...diye gidiyor,sizin dosyadaki sayfa adlarına uyuşmuyor diyemi endişeleniyorsunuz.
Aman efendim siz hele önce bu kodları kendi dosyanıza kopyalayın bakalım.Ondan sonrada sonucu gözlemleyin bakalım oluyormu olmuyormu?
Eğer olmazsa o zman bir çaresine bakarız.

 

[vaskal]

Sevgili Orion2 senin çalışman üzerinde anlattım sorunumu.

ekli dosyaya bir bakarsan sevinirim.

 

[Orion1]

Sayfa isimlerinin uzun olması tamen sizin terciğiniz.Siz sayfa isimlerini öyle koymuşsunuz öyle olmuş.Formüllerde bir sorun oluşturacağını zannetmiyorum.
Benim yazdığım kodda ne gibi bir değişiklik yapmamı istiyorsunuz, onu anlamadım.

 

[N.Ziya Hiçdurmaz]

yanıt

Excelin kendi özelliğinden faydalanabilirsiniz.

 

[vaskal]

Orion2
eğer sayfa adlarının uzun olması ve türkçe karakterler sorun çıkarmaz sa senin çalışman mükemmel. Onun için şimdilik bir şey yapma. Kendi programıma uyarlayayım. Biraz deneyeyim sorun çıkarsa o zaman tekrar yazarım...

 

[vaskal]

Orion2 biliyorum bu konuda fazla oldum ama ne yapayım makro yazamıyorum. Şimdilik sadece uyarlayabiliyorum.

Bu sayfada Seyit Tiken in gönderdiği dosyadaki Sayfa Seçme işlemini kendi çalışmama uyarladım, Autpen yaptım böylece açılışta liste karşıma geliyor. Senden isteğim senin çalışmanda sayfa adları otomatik yükleniyor, yani yeni sayfa ekleyince liste otomatik alıyor. Bunu Seyit Tiken'in çalışmasına da uyarlayabilirmisin. Birde bu combobox tan 3 tane olsun istiyorum. Birinde Bilgi Girişi(bunda bilgi giriş sayfaları görünecek) diğeri personel İşleri(personelle ilgili tümsayfalar burada görünecek) son olarakta öğrenci işleri( burayada öğrencilerle ilgili tüm sayfaları almalıyım.) Ben biraz denedim fakat beceremedim...

Bu konuda artık son isteğim. Şimdiden teşekkürler...

Kendi çalışmam ekte.

 

[Seyit Tiken]

Sayfa1 de A sütununda varolan sayfaları sıralar.

Sub Düğme1_Tıklat()
For s = 1 To Sheets.Count
Sayfa1.Cells(s, 1).Value = Sheets(s).Name
Next
End Sub

Not : Yardım istiyorsunuz, niye şifreyle uğraştırıyorsunuz.

 

[vaskal]

Sayfa1 de A sütununda varolan sayfaları sıralar.

Sub Düğme1_Tıklat()
For s = 1 To Sheets.Count
Sayfa1.Cells(s, 1).Value = Sheets(s).Name
Next
End Sub

Not : Yardım istiyorsunuz, niye şifreyle uğraştırıyorsunuz.

Evet... şifre konusunda haklısın. Şimdi değiştiriyorum.
Bu kodu kendi çalışmama uyarlayamadım. Senin çalışmana yazdım çalışıyor...
birde bunu 3 combobox'a uyarlarmısın?

 

[sultan7883]

ben bir ihracat firmasında çalışıyorum.stok çok önemli.ihraç kaydıyla aldığımız için 90 gün içinde bu malı çıkış yapmam lazım.bana uyarı verecek bi stok programı konusunda yardımcı olurmusunuz.çok yeniyim çünkü