[ÇÖZÜLDÜ] Makro ile, ayın çalışma günlerine göre sayfa açmak hk.

[enteresan]

Sevgili arkadaşlar, kullanmakta olduğum bir dosya var. Bu dosyada C1 hücresine 01.01.2007 yazıyorum ve aşağıya doğru çekerek 31.01.2007 tarihine kadar hücreleri dolduruyorum. Daha sonra da bir makro yardımı ile bu hücredeki isimlere göre tek tıklama ile 31 tane sayfa açıyorum. Buraya kadar bir sorun yok. Yapmak istediğime gelince.
1- Eğer mümkünse, ilk satıra yaztığım tarihe bakarak tek bir hareket ile o aya ait çalışma günlerini aşağıya doğru diğer hücrelere açmak. Yani aradaki tatil günlerini otomatik olarak yok saymak veya,
2 - Sayfa açmak için kullandığım makroda düğmeye tıkladığımda C1 hücresine bakarak o ayın çalışma günlerine göre aşağıya sayfalar açtırabilir miyim.
3 - Belirtilen ay bittiğinde yeni aya geçmeden önce, aşağıdaki eski aya ait sayfaları otomatik olarak silecek bir makro yapabilir miyiz.

Soru biraz karışık oldu ama, excelde yapılmayacak hiçbir şey olmadığına inanıyorum. Saygılarımla.....

 

[Levent Menteşoğlu]

Tarihleri C sütununda sıralamadan yapılsa olmazmı, sayfa açmak için buna gerek yok, bir inputbox ile sadece ay adı belirtilerek, işlem yapılabilir, tatillerde derken haftasonu(cumartesi+pazar) ve resmi tatilleri kasdediyorsunuz sanırım.

 

[enteresan]

Tarihleri C sütununda sıralamadan yapılsa olmazmı, sayfa açmak için buna gerek yok, bir inputbox ile sadece ay adı belirtilerek, işlem yapılabilir, tatillerde derken haftasonu(cumartesi+pazar) ve resmi tatilleri kasdediyorsunuz sanırım.

Sevgili üstadım, ben C1 sütunundan bahsederken kendi yaptığım uygulamadan bahsettim. Sizin dediğiniz gibi bir şey elbette daha iyi olur. Benim yaptığım biraz daha basitçe bir uygulama (Bana göre tabiii).
Tatillerden kastım ise, ay içerisindeki resmi tatil günleri haricinde kalan çalışma günleridir. Bu uygulama için bir örnek verebilirseniz minnettar olurum. Saygılarımla...

 

[Ali]

Belki uygulamanıza faydası olur diye fonksiyonla bir örnek hazırladım.

I sütununa dini bayramları yazdım,milli bayramlarıda altına yazıp fonksiyonu

ona görede düzenleyebilirsiniz.

 

[enteresan]

Belki uygulamanıza faydası olur diye fonksiyonla bir örnek hazırladım.

I sütununa dini bayramları yazdım,milli bayramlarıda altına yazıp fonksiyonu

ona görede düzenleyebilirsiniz.

Sevgili Ali Kardeşim, sorumun cevabı değil ama güzel bir uygulama. Teşekkür ederim. Benim sorunum bunu makro ile bir düğmeye atamak istiyorum. İlginize teşekkür eder, saygılar sunarım.

 

[Levent Menteşoğlu]

1 ve 2. sorunuz için,

Sub sayfaolustur()
Application.ScreenUpdating = False
ad = ActiveSheet.Name
tarih = [c1]
[c:c].ClearContents
songun = Day(DateSerial(Year(tarih), Month(tarih) + 1, 1) - 1)
For a = 1 To songun
deg = Weekday(DateSerial(Year(tarih), Month(tarih), a), vbMonday)
If deg < 6 Then
c = c + 1
Cells(c, "c") = DateSerial(Year(tarih), Month(tarih), a)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = a
Sheets(ad).Select
End If
Next
End Sub

3.sorunuz için,

Sub sayfasil()
Application.DisplayAlerts = False
For a = Sheets.Count To 1 Step -1
ad = Sheets(a).Name
If IsNumeric(ad) = True And ad < 32 Then Sheets(a).Delete
Next
End Sub

 

[enteresan]

Sayın leventm,
söyleyecek söz bulamıyorum. Gerçekten harika bir makro olmuş. Teşekkür ederim. Benim kullandığım makroyu aşağıya çıkarıyorum. Sizin de göreceğiniz gibi. bu makro 11 numaralı sütuna bakarak, orada belirtilen tarihlere göre aşağıya "ŞABLON" isimli sayfayı kopyalamak suretiyle sayfa ismi açmaktadır. Sizin yazdığınız makro ile bu makroyu birleştirmek istersek nasıl bir değişiklik yapabiliriz. Yani, bu yazdığınız makro ile aşağıya açılan sayfalarda yine sayfa isimleri açılan tarih formatı ile aynı olması gerekiyor çünkü aktarma makrosu günün tarihine göre aktarma yapıyor. Her sayfada şablon sayfası kopyalansın istiyorum. Eğer zahmet olmazsa makroda gerekli düzeltmeyi yapabilir misiniz. Saygı ve sevgilerimle.....
Kullandığım makro bu,

Sub sheet_ekle()
'On Error GoTo atla:
On Error Resume Next
x = Sheets("GİRİŞ").Cells(65536, 11).End(xlUp).Row
For i = 1 To x
sayfaadi = Sheets("GİRİŞ").Cells(i, 11)

Sheets("ŞABLON").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(Sheets("GİRİŞ").Cells(i, 11), Text)

Next

Sheets("GİRİŞ").Select

End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[LEFT]Sub sayfaolustur()
Application.ScreenUpdating = False
ad = ActiveSheet.Name
tarih = [c1]
[c:c].ClearContents
songun = Day(DateSerial(Year(tarih), Month(tarih) + 1, 1) - 1)
For a = 1 To songun
deg = Weekday(DateSerial(Year(tarih), Month(tarih), a), vbMonday)
If deg < 6 Then
c = c + 1
Cells(c, "c") = DateSerial(Year(tarih), Month(tarih), a)
Sheets("&#351;ablon").Copy After:=Sheets(sheets.count)
Sheets(Sheets.Count).Name = [B][COLOR=blue]DateSerial(Year(tarih), Month(tarih), a)[/COLOR][/B]
Sheets(ad).Select
End If
Next
End Sub[/LEFT]

 

[enteresan]

Sayın leventm, daha önceki makroda açılan sayfalar tarih isimlerine göre açılmaktaydı. Yani 01.02.2007, 02.02.2007 gibi. Aktar makrosu da günün tarihine göre ilgili sayfaya aktarma yapıyordu. Bu şekilde sayfa açıldığı zaman yani 1,2,3.... şeklinde olduğunda aktar makrosu hata veriyor. Sayfa isimlerini tarih formatına çevirebilir miyiz. Ya da aktarma işlemini günün tarihine göre ilgili sayfaya aktarmasını sağlayabilir miyiz.

Saygılarımla...

 

[Levent Menteşoğlu]

Son eklediğim kodu değiştirdim tekrar deneyin.

 

[enteresan]

Sayın leventm,
bu şekilde oldu ancak, bu kez de açılan sayfaların silinmesi için yazdığınız makro çalışmadı. Yukarıdaki sayfasil makrosunu da değiştirebilirsek sanırım olacak.
Ayrıca çok özür dileyerek başka bir soru sormak istiyorum.
Tarihe göre açtığımız sayfalarda belirlediğimiz bir hücrenin toplamını başka bir sayfaya alabilirmiyim. Yani, diyelim ki Ocak ayı için 25 tane sayfa oluşturduk. Bu sayfaların hepsinde de ortak bir hücre var ve bu hücrelerin toplamını tek bir sayfada görmek istiyorum. Bunun için bir makro yazabilir misiniz. Saygı ve sevgilerimle....

 

[Levent Menteşoğlu]

[LEFT]Sub sayfasil()
Application.DisplayAlerts = False
For a = Sheets.Count To 1 Step -1
ad = Sheets(a).Name
If Isdate(ad) = True Then Sheets(a).Delete
Next
End Sub[/LEFT]

Diğer sorunuz içinde aşağıdaki kodu deneyin. A1 hücresindeki değerleri toplamaktadır. msgbox yazan satıra veriyi yazmayı düşündüğünüz sayfayı ve hücreyi tanımlayın.

[LEFT]Sub topla()
For a = 1 to Sheets.Count
ad = Sheets(a).Name
If Isdate(ad) = True Then deg=Sheets(a).[a1]+deg
Next
msgbox deg
End Sub[/LEFT]

 

[enteresan]

Sayın leventm,
cevabınız için çok teşekkür ederim. Lakin en son makroyu anlayamadım. Makronun ismi sanırım yanlışlıkla sayfasil olarak kalmış. Onu düzeltebilirim ama, msgbox satırına ne yazacağımı bilemiyorum. sayfalar içerisinde rapor isminde bir sayfa var ve orada da aynı tarihlere ait satırlar olacak. Yani ben bugünkü toplamı, rapor sayfasındaki bugünki tarih satırının karşısına yazdıracağım. Buna göre msgbox un karşısına ne yazmam gerekecek. Zahmet verdiğim için özür diler, saygılar sunarım...

 

[Levent Menteşoğlu]

Kodun ismini değiştirin ben topla olarak değiştirdim.

Kusura bakmayın ama bu eleştiriyi yapmak durumundayım. Sorularınızıda hem parça parça hemde eksik soruyorsunuz, farkındaysanız her yazdığım kod sonrası yeni bir şeyler ekliyorsunuz. Sorularınızı bir kez detaylıca açıklarsanız ve birde örnek dosya ile desteklerseniz, tek bir seferde cevaplayıp konunun uzamasına engel olmuş olurdunuz. Çünkü uzayıp giden bir başlık istemeyerekte olsa insanda sıkıntı oluşturuyor.

 

[enteresan]

Hocam, sonuna kadar haklısınız. Siz bu konuyu yazarken ben de Ali kardeşimin yazdığı yazıya bu konuda birşeyler yazıyordum. İçime doğmuştu çünki böyle bir şey olacağı. Her şey için çok teşekkür eder, saygılar sunarım....