Gruplara göre veri aktarma

[Metin Karaağaç]

Selamlar.
Kocaeli'de "Gelecek için elele" projesi başladı. Bu proje ile ilgili sınav analiz programı yayınlamışlar ve bunu kullanmamızı istiyorlar. Ancak bu programda sınavı, öğrencileri gruplara ayırarak yapmak isteyebileceğimizi düşünmemişler. Ben değiştireyim dedim.
Yalnız, "A GRUBU" - "B GRUBU" - "C GRUBU" - "D GRUBU" sayfalarına veri aktarımını yapamadım.
"GENEL" sayfasından D9 daki grup sınıflandırmasına göre diğer sayfalara aynı gruptaki öğrencilerin doğru ve yanlışlarının getirilmesi gerekiyor.
Yardımcı olabilirseniz sevinirim.

 

[Ali]

Metin Bey, anladığım kadarı ile ekte bir örnek hazırladım,İncelermisiniz.

http://rapidshare.com/files/427568338/100._YIL_Metin_Karaaae_a__.zip

 

[halit3]

bu kod olurmu.?

Sub AKTAR()
Sheets("A GRUBU").Range("A10:AB63").ClearContents
Sheets("A GRUBU").Range("A10:AB63").Font.ColorIndex = 0
Sheets("B GRUBU").Range("A10:AB63").ClearContents
Sheets("B GRUBU").Range("A10:AB63").Font.ColorIndex = 0
Sheets("C GRUBU").Range("A10:AB63").ClearContents
Sheets("C GRUBU").Range("A10:AB63").Font.ColorIndex = 0
Sheets("D GRUBU").Range("A10:AB63").ClearContents
Sheets("D GRUBU").Range("A10:AB63").Font.ColorIndex = 0
For r = 10 To 63
yer = Sheets("GENEL").Cells(r, "d").Value
If Sheets("GENEL").Cells(r, "d").Value <> "" Then
sat = WorksheetFunction.CountA(Worksheets(yer).Range("A10:A63")) + 10
Sheets(yer).Cells(sat, 1).Value = sat - 9
Sheets(yer).Cells(sat, 2).Value = Sheets("GENEL").Cells(r, 2).Value
Sheets(yer).Cells(sat, 3).Value = Sheets("GENEL").Cells(r, 3).Value
For i = 5 To 25
Sheets(yer).Cells(sat, i - 1).Value = Sheets("GENEL").Cells(r, i).Value
If Sheets("GENEL").Cells(r, i - 1).Value = "y" Then
Sheets(yer).Cells(sat, i - 1).Font.ColorIndex = 3
End If
Next i
End If
Next r
MsgBox "işlem tamamlandı"
End Sub

 

[Metin Karaağaç]

Ali Bey,
Çok teşekkür ederim, tam istediğim gibi olmuş. Ellerinize sağlık.
Halit Bey, kod kullanmak istemiyorum, diğer arkadaşlar makroları etkinleştiremeyebilirler. Ama emeğiniz için teşekkür ederim.

 

[Metin Karaağaç]

Dosyanın son halini aşağıdaki linkte yeni konu açarak ekledim.
http://www.excel.web.tr/f126/ortak-synav-sonucu-analiz-formu-t90583.html#post493828

 

[Metin Karaağaç]

Arkadaşlar, bir userform ekleyip doğru ve yanlış cevapları userform üzerinden gireyim istedim ama kodları bulamadım.
1. Combobox a hangi kodu yazdıysam C10:C59 arasını getiremedim.
2. Optionbuttonları (doğru-yanlış) yapamadım.
3. Aktar ve İptal butonlarına da doğru kodları yazamadım.

Yardımcı olursanız sevinirim.

 

[halit3]

metin bey herhalde böyle istiyorsunuz.

 

[Metin Karaağaç]

Halit Bey. Aktar dediğim zaman hiçbir bilgi aktarımı olmadı.

 

[halit3]

combobox nesnesinden kişiyi seçecesiniz.ondan sonra aktar düğmesine tıklıyacaksınız.

 

[Metin Karaağaç]

Evet kişiyi seçerek yapıyorum ama aktarmıyor.

 

[halit3]

herhalde yanlış anlaşıldı kodlarla fghnghn bu kişiye ait E10:AC10 hücrelerdeki d veya y değerlerine göre OptionButton larda işaretlemeler oluyor sol tarafdakiler doğruyu sağ tarafdakiler yanlışı simgeliyor.

 

[nafis]

Merhaba,

Halit hocam bende denedim aktarmıyor.

Selamlar.

 

[halit3]

renklendirdim işaretlemeleri

 

[halit3]

dosyada bazı düzenlemeler yaptım. hem yatay hem dikey olarak verileri alıyor.

 

[Metin Karaağaç]

Halit Bey,
Userforma doğru ve yanlışları işaretledikten sonra (Ör: isim 11 öğrencisine) aktar diyorum, maalesef aktarmıyor.
Ama dediğiniz gibi isim 7 yi seçip yatay aktar deyince userfomun şıkları renkleniyor.
Ama benim yapmak istediğim; userformdan şıkları girmek, sonra aktar deyince hangi isim seçili ise, o ismin karşısına "d" ve "y" olarak aktarılması.
Sanırım bu noktada anlaşamıyoruz.

 

[halit3]

evet yanlış anlaşılmadan dolayı farklı bir uygulama yapmışım herhalde şimdi oldu .

 

[nafis]

merhaba,

Halit hocam, çok güzel bir çalışma ellerinize sağlık.

Teşekkürederim.

 

[halit3]

merhaba,

Halit hocam, çok güzel bir çalışma ellerinize sağlık.

Teşekkürederim.

teşekkür ediyorum dosyada ben sadece veri aktarımı işlemini yapmıştım.

 

[Metin Karaağaç]

Teşekkür ederim Halit Bey.

 

[halit3]

Teşekkür ederim Halit Bey.

İyi çalışmalar Metin Bey.