sayfa sayısını makro atayarak çoğaltmak

azize · 1 Şubat 2007

merhaba
ben otuz günlük bir çalışma sayfası hazırlayacağım.( her ay için değişir ) her sayfada aynın günleri olacak 1 , 2 , 3 bunu tek tek yazıp eklemek biraz zor geldi acaba excelde bunun kolay bir yolu var mı ? örnek dosya ekte..
saygılarımı sunarım

ocamsul · 1 Şubat 2007

Sn: Azize aşağıda link sanırım işinizi görür.

http://www.excel.web.tr/showthread.php?t=19573&highlight=sayfa+kopyala

Tankut SAZLI · 1 Şubat 2007

Sayın Azize;
Aşağıda hazırlamaya çalıştığım örneği inceleyin,istediğiniz böyle birşey ise biraz daha geliştirebiliriz.
Yıl ve aylara göre otomatik gün sıralaması yapmadan önce fikrinizi alim dedim.

azize · 1 Şubat 2007

merhaba

Tankut SAZLI' Alıntı:
Sayın Azize;
Aşağıda hazırlamaya çalıştığım örneği inceleyin,istediğiniz böyle birşey ise biraz daha geliştirebiliriz.
Yıl ve aylara göre otomatik gün sıralaması yapmadan önce fikrinizi alim dedim.

Tankut Bey , benim yapmak istediğimin çok ötesinde bir şey yapmışsınız hatta daha zor ama benim istediğim tarih sayınca çalışma sayfası oluşturması. sağolun ilginiz için
şimdilik bu benim için önemli dosya ekte tekrardan bakarsanız sevinirim
saygılarımla

azize · 1 Şubat 2007

merhaba

pardon yani 1.gün 2. gün ve 31. gün diye çalışma sayfalarını oluşturacak devam edecek başka bir şey yapmayacak dilerim anlamışsınızdır
şimdiden teşekkür ederim sayglarımla..

Tankut SAZLI · 1 Şubat 2007

Açıkçası tam olarak anladığımı söyleyemem fakat şunu bir inceleyin isterseniz.
Sayfadaki butona bastığınızda karşınıza çıkan formdan yıl ve ay seçiyorsunuz.Burada seçilen aya göre istatistik tablosu ve ayın günleri için veri sayfaları oluşturulacak.Yıla göre Şubat ayının 28,29 özelliği dikkate alınmıştır.
Yalnız bu şekilde Excel çalışma kitabının boyutunun veriler ya da başka bir deyişle aylar ve yıllar arttıkça kabaracağına dikkatinizi çekmek istedim.
Bu nedenle ya her yıl için ayrı bir çalışma kitabı yada her ay için ayrı bir çalışma kitabı oluşturmanızda fayda var.

____________________
DİĞER ÇALIŞMALAR

ACCESS GÖRSEL EĞİTİM
USERFORM GÖRÜNÜMLERİ
ÖĞRENCİ TAKİP PROGRAMI(Excel ile Access VeriTabanı Uygulamas&#305
KİMLİK SORGULAMA(web üzerinden)
LİSTVİEW UYGULAMASI
BİLDİRİM ALANINA MİNİMİZE(VB6)

Necdet · 1 Şubat 2007

Sanırım Şöyle birşey istiyorsunuz

Sub Sheet_Olustur()
Set s1 = Sheets(1)
Application.ScreenUpdating = False
For i = 2 To [A65536].End(3).Row
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Day(s1.Cells(i, "A")) & ".Gün"
s1.Select
Next i
End Sub

enteresan · 1 Şubat 2007

Sayfaların gizlenmesi hk.

Tankut SAZLI' Alıntı:
Açıkçası tam olarak anladığımı söyleyemem fakat şunu bir inceletyin isterseniz.
Sayfadaki butona bastığınızda karşınıza çıkan formdan yıl ve ay seçiyorsunuz.Burada seçilen aya göre istatistik tablosu ve ayın günleri için veri sayfaları oluşturulacak.Yıla göre Şubat ayının 28,29 özelliği dikkate alınmıştır.
Yalnız bu şekilde Excel çalışma kitabının boyutunun veriler ya da başka bir deyişler aylar ve yıllar arttıkça kabaracağına dikkatinizi çekmek istedim.
Bu nedenle ya her yıl için ayrı bir çalışma kitabı yada her ay için ayrı bir çalışma kitabı oluşturmanızda fayda var.

____________________
DİĞER ÇALIŞMALAR

ACCESS GÖRSEL EĞİTİM
USERFORM GÖRÜNÜMLERİ
ÖĞRENCİ TAKİP PROGRAMI(Excel ile Access VeriTabanı Uygulaması)
KİMLİK SORGULAMA(web üzerinden)
LİSTVİEW UYGULAMASI
BİLDİRİM ALANINA MİNİMİZE(VB6)

Sayın Tankut hocam,
örneğinizi ben de inceledim. Gerçekten çok güzel. Benim kullandığım buna benzer bir belge var ve ben burada alttaki ayın günlerine ait sayfaları bir tuşa bağlayarak gizlemek-göstermek istiyorum. Aslında bir kısa yol tuşu ile gizleyip gösterebilirsem daha iyi olur. Bu konuda yardımcı olabilirseniz memnun olurum. Saygılarımla...

Tankut SAZLI · 1 Şubat 2007

enteresan' Alıntı:
Sayın Tankut hocam,
örneğinizi ben de inceledim. Gerçekten çok güzel. Benim kullandığım buna benzer bir belge var ve ben burada alttaki ayın günlerine ait sayfaları bir tuşa bağlayarak gizlemek-göstermek istiyorum. Aslında bir kısa yol tuşu ile gizleyip gösterebilirsem daha iyi olur. Bu konuda yardımcı olabilirseniz memnun olurum. Saygılarımla...

İsteğiniz tam olarak böyle birşey mi?
Gerçi ben sadece günleri değil ayıda gizledim.

enteresan · 1 Şubat 2007

Tankut hocam, teşekkür ederim. Bu da işimi görür ama, hani yeni bir makro kaydet ile makro yaparken kısayol atanıyor ve o makroyu o kısayol ile kullanabiliyoruz ya, bu durumda hazır olan bir makroya da kısayol atayabiliyor muyuz. Nasıl yapılıyor açıklayabilir misiniz. Saygılarımla..

Tankut SAZLI · 1 Şubat 2007

Galiba kafam biraz karışık dediğinizitam olarak anlayamadım.Örnek bir dosya ile ne yapmak istediğinizi açıklayabilirmisiniz.

enteresan · 1 Şubat 2007

Tankut SAZLI' Alıntı:
Galiba kafam biraz karışık dediğinizitam olarak anlayamadım.Örnek bir dosya ile ne yapmak istediğinizi açıklayabilirmisiniz.

Sayın tankut bey, ekte gönderdiğim dosyayı yeni makro kaydet tuşu aracılığı ile yaptım. Yani kendim yazmadım sadece yaptıklarımı excel makro olarak kaydetti. Bunu kaydederken gizle makrosuna ctrl+g tuşunu, göster makrosuna da ctrl+s tuşunu kısayolm olarak atadım.
Benim istediğim,
1. Kullanmakta olduğum ve kısayol atanmamış bir makroya kısayol atamak mümkün mü?

2. Toplu olarak sayfaları gizleyebilmek mümkün olduğu gibi, toplu olarak gösterebilmek için nasıl bir makro yazılabilir. Yani göster makrosuna bakarsanız sayfaları tek tek yazmak zorundayız. 50 sayfalık bir çalışma kitabı olduğunu düşünürsek, bayağı uzun bir kod yazmak gerekecek diye düşünüyorum. Bu göster makrosunu da gizle makrosu gibi kısaltabilirmiyim.

Umarım ne demek istediğimi anlatabilmişimdir. Saygılarımla....

Tankut SAZLI · 1 Şubat 2007

Macro1 deki kodlarınızı şunlarla değiştirin:

Kod:

Dim sh As Worksheet
For Each sh In Worksheets
Sheets("Sayfa1").Visible = xlSheetVisible
sh.Visible = xlVeryHidden
Next

Macro2 deki kodlarınızı şunlarla değiştirin:

Kod:

Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = xlSheetVisible
Next

Sizin yazdığınız macroya kısayol atamak için(ben d tuşuna atadım):

Kod:

Sub auto_open()
Application.OnKey "^{d}", "macronuz"
End Sub
Sub auto_close()
Application.OnKey "^{d}"
End Sub

ekleyin.

enteresan · 1 Şubat 2007

Sayın Tankut kardeşim,
ilgi ve alakana çok teşekkür ederim. 1 ve 2 nci kod çok güzel. Kısayol atamak ile ilgili örneğinizden anladığım kadarı ile kendi makrolarıma sadece şu satırı eklemek yeterli oluyor sanırım.

Application.OnKey "^{d}" ..... 'd harfini kısayol atamak için.
bu tuşu ctrl tuşu ile mi kullanacağız acaba. Bu şekilde yazdığımda gizleme ve gösterme kodları çalışıyor ama kısayol tuşu çalışmıyor. Kodu aşağıya ilave ettim. Acaba nerde yanlış yaptım bi bakarmısınız....

Sub gizle()
Application.OnKey "^{g}"
Dim sh As Worksheet
For Each sh In Worksheets
Sheets("Sayfa1").Visible = xlSheetVisible
sh.Visible = xlVeryHidden
Next
End Sub
Sub göster()
Application.OnKey "^{s}"
Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = xlSheetVisible
Next
End Sub

Tankut SAZLI · 1 Şubat 2007

Kodlarınızı şu şekilde düzenlerseniz sorun çözülmüş olur:

Kod:

Sub auto_open()
Application.OnKey "^{g}", "gizle" '&#231;al&#305;&#351;t&#305;rmak istedi&#287;iniz macronun ismini belirtin.K&#305;sayol tu&#351;u olarak Crtl+g atand&#305;
Application.OnKey "^{s}", "goster"
End Sub
Sub auto_close()
Application.OnKey "^{g}"
Application.OnKey "^{s}"
End Sub
'________________________
Sub gizle()
Dim sh As Worksheet
For Each sh In Worksheets
Sheets("Sayfa1").Visible = xlSheetVisible
sh.Visible = xlVeryHidden
Next
End Sub
Sub goster()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = xlSheetVisible
Next
End Sub

enteresan · 1 Şubat 2007

Sayın Tankut Bey,
çok güzel oldu. Elinize sağlık. Saygı ve sevgilerimle.

Tankut SAZLI · 1 Şubat 2007

Eyvallah.
Saygı ve sevgiler bizden..
İyi çalışmalar.

azize · 2 Şubat 2007

merhaba

Necdet_Yesertener' Alıntı:
Sanırım Şöyle birşey istiyorsunuz

elinize sağlık tam istediğim gibi olmuş...

azize · 2 Şubat 2007

merhaba

Tankut Bey , tek kelimeyle siz müthişsiniz elinize sağlık benim istediğim şey Necdet beyin gönderdiği makro idi. iyi ki soruyu tam anlamamışsınız yoksa böyle güzel şeyi nasıl görebilidim..
saygılarımla..

Tankut SAZLI · 2 Şubat 2007

Sayın azize;
Umarım bu bir iltifattır

Teşekkür ederim.

sayfa sayısını makro atayarak çoğaltmak

Moderatör