• DİKKAT

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

Gruplara göre veri aktarma

M

Metin Karaağaç

Katılım
25 Aralık 2004
Mesajlar
1,793
Excel Vers. ve Dili
Office 2016 Pro Plus-Türkçe
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.
 

Ekli dosyalar

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
Genişletmek için tıkla ...
 

Ekli dosyalar

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.
 
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.
 
metin bey herhalde böyle istiyorsunuz.
 
combobox nesnesinden kişiyi seçecesiniz.ondan sonra aktar düğmesine tıklıyacaksınız.
 
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.
 
Merhaba,

Halit hocam bende denedim aktarmıyor.

Selamlar.
 
renklendirdim işaretlemeleri
 
dosyada bazı düzenlemeler yaptım. hem yatay hem dikey olarak verileri alıyor.
 
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.
 
evet yanlış anlaşılmadan dolayı farklı bir uygulama yapmışım herhalde şimdi oldu .
 

Ekli dosyalar

merhaba,

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

Teşekkürederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst