• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

gurup oluşturma

E

erdenek

Katılım
5 Mart 2008
Mesajlar
896
Excel Vers. ve Dili
EV:EXCEL 2010-TÜRKÇE
İŞ:EXCEL 2010-TÜRKÇE
arkadaşlar mrb.ekteki dosyada 6.sınıflar var.ben bunları sınıflarına ve gruplarına ayırdım.sizden ricam dağıt butonu oluşturup bu butona bastığım zaman öğrencileri 6-A A GRUBU 6-A B GRUBU 6-B A GRUBU 6-B B GRUBU Diye yeni sayfalarda listelesin.
 

Ekli dosyalar

Merhaba
Sayın : erdenek dosyanızda sadece bir sayfa var diğer sayfaları oluşturup eklerseniz yardımcı olmaya çalışacağım
 
ihsan hocam şu çalışma sayfasında sayfa 1 sayfa 2 diye yerler var ya oraya açılması lazım.
 
erdenek' Alıntı:
ihsan hocam şu çalışma sayfasında sayfa 1 sayfa 2 diye yerler var ya oraya açılması lazım.
Genişletmek için tıkla ...

Biz mi açacağız sayfalarınızı yani bunu benden istemeyin lütfen bu olaya çok sinirleniyorum. İçimdeki yardım etme isteğini bir anda yok ediyor
 
İhsan hocam ekte bir tane örnek var.Orda sınıflara dağıta bastığın zaman kendi açıyor.Ekte olduğu gibi olsun eğer olma imkanı varsa.
 

Ekli dosyalar

erdenek' Alıntı:
arkadaşlar mrb.ekteki dosyada 6.sınıflar var.ben bunları sınıflarına ve gruplarına ayırdım.sizden ricam dağıt butonu oluşturup bu butona bastığım zaman öğrencileri 6-A A GRUBU 6-A B GRUBU 6-B A GRUBU 6-B B GRUBU Diye yeni sayfalarda listelesin.
Genişletmek için tıkla ...

.

Dosyanız ekte.

Konu için bakınız:

ÖZET TABLOLAR (PİVOT TABLE)


.
 

Ekli dosyalar

Hocam bunu nasıl yaptınız?dağıt butonu falan yok.Ben bu uygulamayı 7 ve 8 sınıflar nasıl yapabilirim?
 
erdenek' Alıntı:
Hocam bunu nasıl yaptınız?dağıt butonu falan yok.Ben bu uygulamayı 7 ve 8 sınıflar nasıl yapabilirim?
Genişletmek için tıkla ...

Hangi konuya bakacağınızın linkini verdim.

Konunun formül veya makro ile yapmak yerine bir pivot table - özet tablo ile yapılıp, o kadar sayfa çoğaltılarak gerekli seçim yapmak süretiyle, daha kullanışlı ve daha dinamik bir uygulama yaratılabilinir.


Örnek dosya ekte.

Siz bütün verilerinizi gerekirse tüm okulun verilerini veri sayfasına koyun. Daha sonra istediğiniz sayfayı, sayfa kopyalaması ile dilediğiniz kadar çoğaltın.

.


.
 

Ekli dosyalar

Yurttaş hocam listeyi güncelledim.Bu işin mantığını anlatırsanız bundan sonraki uygulamaları bende yapabileyim.Çünkü bu her sene lazım oluyor.
 

Ekli dosyalar

erdenek' Alıntı:
Yurttaş hocam listeyi güncelledim.Bu işin mantığını anlatırsanız bundan sonraki uygulamaları bende yapabileyim.Çünkü bu her sene lazım oluyor.
Genişletmek için tıkla ...

.

Yazdıklarımı okumuyorsunuz herhalde:

1. Pivot Table - Özet Tablo konusunu buradan öğrenin.

ÖZET TABLOLAR (PİVOT TABLE)


2. Buradaki konuyu da inceleyin.


Dynamic Range- Dinamİk Alan


3. Dosyayı zaten yaptım. Ve budosyayı her yıl kullanabilirsiniz. Siz de verilerinizi koydunuz. Bundan sonrası herhangi bir pivot table olan sayfayı sayfa kopyalama ile istediğiniz kadar çoğaltıp, yukarıdan sınıf ve grubu seçmek kalıyor.

.
 
tamam hocam ellerine sağlık.
 
erdenek' Alıntı:
tamam hocam ellerine sağlık.
Genişletmek için tıkla ...

Merhaba
Buda kodu olsun hangisini isterseniz onu kullanırsınız
Kod: 
Option Explicit
Sub grub_ayır_61()
Dim ts, kaplan, trabzonspor, bordo, süre As Date
trabzonspor = MsgBox("Gruba Ayırıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
süre = Time
For ts = Sheets.Count To 2 Step -1
Application.DisplayAlerts = False
Sheets(ts).Delete
Application.DisplayAlerts = True
Next
Sheets(1).Range("H:I").ClearContents
For ts = 2 To Cells(65536, "B").End(xlUp).Row
Cells(ts, "H") = Cells(ts, "B") & " - Gr " & Cells(ts, "G")
Next
kaplan = 2
For ts = 2 To Sheets(1).Cells(65536, "B").End(xlUp).Row
If WorksheetFunction.CountIf(Sheets(1).Range("H2:H" & ts), Sheets(1).Cells(ts, "H")) = 1 Then
Sheets(1).Cells(kaplan, "I") = Sheets(1).Cells(ts, "H")
kaplan = kaplan + 1
End If
Next
For ts = 2 To Sheets(1).Cells(65536, "I").End(xlUp).Row
Sheets.Add After:=Sheets(Sheets.Count)
For kaplan = 2 To Worksheets.Count
If Sheets(kaplan).Name = Sheets("Sheet1").Range("I" & ts) Then
MsgBox "Bu isimli bir sayfa mevcut!", vbCritical, "Hata"
Application.DisplayAlerts = False
ActiveSheet.Delete
Exit Sub
End If
Next
Sheets(Sheets.Count).Name = Sheets("Sheet1").Range("I" & ts)
Next
For ts = 2 To Sheets.Count
Sheets(1).Range("A1:G1").Copy Destination:=Sheets(ts).Range("A1")
Next
Sheets(1).Range("I:I").ClearContents
For ts = 2 To Sheets.Count
Sheets(ts).Select
Range("A2:G65536").ClearContents
kaplan = 2
Set trabzonspor = Sheets(1).Range("H:H").Find(Sheets(ts).Name, , , xlWhole)
If Not trabzonspor Is Nothing Then
bordo = trabzonspor.Address
Do
Cells(kaplan, "B") = Sheets(1).Cells(trabzonspor.Row, "B")
Cells(kaplan, "C") = Sheets(1).Cells(trabzonspor.Row, "C")
Cells(kaplan, "D") = Sheets(1).Cells(trabzonspor.Row, "D")
Cells(kaplan, "E") = Sheets(1).Cells(trabzonspor.Row, "E")
Cells(kaplan, "F") = Sheets(1).Cells(trabzonspor.Row, "F")
Cells(kaplan, "G") = Sheets(1).Cells(trabzonspor.Row, "G")
kaplan = kaplan + 1
Set trabzonspor = Sheets(1).Range("H:H").FindNext(trabzonspor)
Loop While Not trabzonspor Is Nothing And trabzonspor.Address <> bordo
End If
bordo = Range("B65536").End(xlUp).Row
Range("A2") = 1
Range("A2:A" & bordo).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
step:=1, Trend:=True
Next
Sheets(1).Range("H:H").ClearContents
Sheets(1).Select
Application.ScreenUpdating = True
MsgBox Format(Time - süre, "hh:mm:ss") & " Sürede İşlem Tamam", vbInformation, "Bitiş"
End Sub
 
İhsan hocam ben kodlardan falan anlamam.Bunu nereye yazacağız.
 
ayrıca sizin verdiğiniz kodlarda trabzonspor falan yazıyor.
 
yok bir sakıncası da benim verilerimde trabzonspor falan olmayınca o yüzden dedim.HOCAM ellerine sağlık.istediğim gibi olmuş.
 
İhsan hocam merhaba
Verdiğiniz örneği kendime göre uyarlamaya çalıştım ama beceremedim.
ANA SAYFA'da biçimlenmiş sayfayı koşullu biçimlendirmesiyle,sayfa yapısıyla,süz düğmecikleriyle,yazdırma alanıyla kısaca tüm komutlarıyla birlikte gruplandırmak istiyorum..
Yardımlarınızı bekliyorum...
Saygılarımla....
 

Ekli dosyalar

policeman' Alıntı:
İhsan hocam merhaba
Verdiğiniz örneği kendime göre uyarlamaya çalıştım ama beceremedim.
ANA SAYFA'da biçimlenmiş sayfayı koşullu biçimlendirmesiyle,sayfa yapısıyla,süz düğmecikleriyle,yazdırma alanıyla kısaca tüm komutlarıyla birlikte gruplandırmak istiyorum..
Yardımlarınızı bekliyorum...
Saygılarımla....
Genişletmek için tıkla ...

Sorunuzu anlamadım.
Lütfen adım adım tarif ediniz ne yapmak istediğinizi_?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst