Öğrenci Kulüp Programı Sayfa Oluşturma Makrosu

[huseyinvurkan]

Sayın Hocalarım. Okullarda kurulan kulüp çalışmalarında idarecilere kolaylık olması açısından bir takip dosyası hazırlıyorum. Bu dosyada kulüp listeleri hazırlama, aidat takibi gibi işlemler yapılabilmeli. Ekdeki dosyada e-okul dan alınan listelerle okul listesi oluşturmayı daha önceki çalışmalarımızda yapmıştık. Bu dosyaya ŞABLON isimli bir sayfa ekleyip bu ŞABLON sayfasına uygun OKUL sayfasındaki Kulüp isimlerine göre sayfalar oluşturacak bir kod yazabilir miyiz? İlginize şimdiden teşekkür ederim.


http://s6.dosya.tc/server9/ndvstx/KULUP_TAKIP.xls.html

 

[huseyinvurkan]

Arkadaşlar aşağıdaki kodu OKUL sayfasındaki B sütununa göre değilde F3:F55 aralığına göre nasıl düzenleyebiliriz. Teşekkürler



Sub sayfaları_aç()
Dim i As Long
Dim Sayfa As String
Set sg = Sheets("OKUL")
Application.ScreenUpdating = False
sg.Select
For i = 2 To [b65536].End(3).Row
Sayfa = Trim(Cells(i, "b"))
If Not SayfaVarMi(Sayfa) Then
Sheets("şablon").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sayfa
sg.Select
End If
Next i
Call sayfalara_aktar
Application.ScreenUpdating = True
End Sub
Function SayfaVarMi(SayfaAdi As String) As Boolean
On Error Resume Next
SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function

 

[YUSUF44]

For i = 3 to 55
Sayfa = Trim(Cells(i,"F"))

olarak deneyin.

 

[huseyinvurkan]

Sayın YUSUF44 Call sayfalara_aktar Satırı sarı oldu işlem yapmadı

 

[YUSUF44]

Dosyanızda sayfalara_aktar makrosu mevcut mu?

 

[huseyinvurkan]

Sayın YUSUF44 bu forumdan yeni bir kod bularak dosyamı geliştirdim. Bulduğum kod sorunsuz çalışıyor. Ancak kulüp isimlerini (f3:f55 aralığındaki) topluca seçip delete tuşuyla silince ActiveSheet.Name = Target.Value satırı sarı oluyor ve Run time erro "13" hatası veriyor. İsimleri tek tek silince sorun çıkmıyor. Bu kısmı halledebilirsem işi bayağı kolaylamış olacağım.


http://s3.dosya.tc/server12/5m6xz7/KULUP_TAKIP_v2.xls.html

 

[huseyinvurkan]

Sayın YUSUF44 bu forumdan yeni bir kod bularak dosyamı geliştirdim. Bulduğum kod sorunsuz çalışıyor. Ancak kulüp isimlerini (f3:f55 aralığındaki) topluca seçip delete tuşuyla silince ActiveSheet.Name = Target.Value satırı sarı oluyor ve Run time erro "13" hatası veriyor. İsimleri tek tek silince sorun çıkmıyor. Bu kısmı halledebilirsem işi bayağı kolaylamış olacağım.


http://s3.dosya.tc/server12/5m6xz7/KULUP_TAKIP_v2.xls.html

 

[YUSUF44]

Eğer amacınız sadece F3:F55 aralığını boşaltmaksa (başka bir işlem yapılmayacak, sayfa silinmeyecekse) F3:F55 aralığını boşaltmak için aşağıdaki kodları kullanabilirsiniz:

Sub fsil()

uyarı = MsgBox("F3:F55 arasındaki kulüp adları silenecek, emin misiniz?", vbYesNo)
If uyarı = vbYes Then
    Application.EnableEvents = False
    [F3:F55].ClearContents
    Application.EnableEvents = True
End If
End Sub

 

[huseyinvurkan]

Sayın YUSUF44 Verdiğiniz kod çalıştı teşekkürler. Şimdi ŞABLON sayfasına göre açılan sayfaların alt toplamları ay bazında okul sayfasının kulüp adı yanındaki boşluklara getirilebilir mi acaba? Böylece okul bazında toplu kontrol imkanı doğardı? Teşekkürler.

 

[YUSUF44]

İsteğinizi anlamadım maalesef.

"Kulüp adı yanındaki boşluk" yerine "şu sayfanın şu sütununa/satırına/hücresine" gibi excelce ve spesifik tanımlama kullanırsanız iyi olur.

"Ay bazında"dan kastınız nedir? Bu işlem sayfada neye göre ve nasıl gösterilecek?

 

[huseyinvurkan]

Okul sayfasında f3:f55 aralığı kulüp adlarına g3:g55 ise öğretmen adlarına ayrılmıştı. h3 ten itibaren ekim kasım aralık ..... toplamları getirilebilir. Öğrenciler bu kulüplere belli bir ücret ödüyorlar. ŞABLON sayfasında E39:M39 aralığındaki hücreler bu öğrencilerin aylık ücret toplamlarını gösteriyor. bu hücrelerdeki toplamlar okul sayfasındaki H355 aralığını kapsayacak şekilde getirilebilir.
Yani F3 Satranç kulübü oluşturduk. G3 Öğretmen H3 Satranç külübü sayfasındaki ekim ayı toplamı olan E39,
I3 Satranç külübü sayfasındaki Kasım ayı toplamı olan f39..... gibi