Ara Bul Verileri Sayfalara dağıt

[Feylosof]

İyi akşamlar

Ekteki dosyada uygulamalı olarak göstermeye çalıştım.

SEÇMELİ Sayfasında C sütunundaki dersler diğer sayfalarda A sütunlarındaki derslerle aynıdır. Bu sayfada 1. satırdaki sayılar ile C sütunundaki dersleri bulup diğer sayfalarındaki 1. satırdaki sayılar ile A sütunundaki derslerle eşleştirip verileri bu sayfadan diğer sayfalara verileri dağıtmak istiyorum.
Şimdiden teşekkürler.

 

[ÖmerBey]

Merhaba,
Seçmeli sayfasının 1. satırındaki sayılar ile diğer sayfaların 1. satırındaki sayılar uyuşmuyor. Örneğin seçmeli sayfasında 1-6 aralığı 9. sınıf iken 9. sınıf sayfasında 1-10 aralığında sayılar var.
Bu bağlantı nasıl kurulacak?

 

[DoğanD]

Merhaba,

Anladığım kadarıyla şöyle bir kod yazdım, boş bir modüle ekleyip dener misiniz? Dersi, o sınıfın sayfasında bulamadığı durumlarda hücreyi kırmızıya boyuyor.

Sub Dagit()
Dim i, y, ks, st As Integer
Dim ws As Worksheet
ks = 2
    For y = 8 To 32
    Set ws = Sheets(Sayfa11.Cells(2, y) & ". SINIF")
    If Sayfa11.Cells(2, y) <> Sayfa11.Cells(2, y - 1) Then ks = 2
        For i = 4 To Range("C" & Rows.Count).End(xlUp).Row
If Sayfa11.Cells(i, y) > 0 Then
If WorksheetFunction.CountIf(ws.Range("A:A"), Sayfa11.Cells(i, 3)) = 0 Then
Sayfa11.Cells(i, y).Interior.Color = vbRed
GoTo atla
End If
st = WorksheetFunction.Match(Sayfa11.Cells(i, 3), ws.Range("A:A"), 0)
ws.Cells(st, ks) = Sayfa11.Cells(i, y)
atla:
End If
        Next i
        ks = ks + 1
    Next y
    MsgBox "Tamamlandı!", vbInformation, ""
End Sub

 

[Feylosof]

Sayın @DoğanD çok teşekkür ederim. Tam 12 den vurmuşsunuz. Minnettarım zihninize sağlık...

 

[Feylosof]

Merhaba,
Seçmeli sayfasının 1. satırındaki sayılar ile diğer sayfaların 1. satırındaki sayılar uyuşmuyor. Örneğin seçmeli sayfasında 1-6 aralığı 9. sınıf iken 9. sınıf sayfasında 1-10 aralığında sayılar var.
Bu bağlantı nasıl kurulacak?

Ömer Bey merhaba ilginiz ve desteğiniz için teşekkürler. SEÇMELİ sayfası dışında kalan sayfalardaki sınıf sayıları sabit durumdadır. zira ders toplamları dosyanın orjinalinde toplamları başka sayfaya bağlı. Eşleşmeyen sayılar pas geçilecek şekilde düşündüm.