Eğitim Listesi hazırlama

[peri1234]

Merhaba,

Ekte gönderdiğim dosyada kodda noktaya kadar gelindi. Ancak, rapor sayfasında sarı ile renklendirdiğim kısımda kodu halledemedim. Sarı ile renklenen bölümlerin gelmesi için yardımlarınızı bekliyorum. (Eğitim1,Eğitim2...3.. şeklinde gruplar var, bir kişinini aldığı eğitim yılda 10 civarı. Örneğin, Bİlgisayar eğitimini 1. eğitimde de alan var, 2.3. ... eğitimde alan da var, sorguda hepsini taraması ve değerleri getirmesi gerekiyor). Yardımlarınız için şimdiden teşekkürler.

 

[peri1234]

Merhabalar, Bu konuda bana yardımcı olabilecek misiniz? Yardımlarınızı bekliyorum. İyi Çalışmalar

 

[dost]

Merhaba,

Sub listele()

Sheets("rapor").Range("b12:e" & Sheets("rapor").Cells(65536, "b").End(xlUp).Row).Clear
sonsat = Sheets("lst").Cells(65536, "b").End(xlUp).Row
sonsut = Sheets("lst").Cells(1, 256).End(xlToLeft).Column
sno = 0:  satir = 11
For i = 2 To sonsat
    For y = 3 To sonsut Step 12
        If Sheets("lst").Cells(i, y) = Sheets("rapor").Range("b2") Then
            satir = satir + 1:     sno = sno + 1
            Sheets("rapor").Cells(satir, "a") = sno
            Sheets("rapor").Cells(satir, "b") = Sheets("lst").Cells(i, "b")
            Sheets("rapor").Cells(satir, "c") = Sheets("lst").Cells(i, y + 1)
            Sheets("rapor").Cells(satir, "d") = Sheets("lst").Cells(i, y + 2)
            Sheets("rapor").Cells(satir, "e") = Sheets("lst").Cells(i, y + 6)
        End If
    Next y
Next i

End Sub

 

[peri1234]

Sayın Dost,
Desteğiniz için çok teşekkür ederim. Mesajınızı görmeden önce ben de çalışmamı tamamlamıştım, ekte son hali mevcuttur. Bir konuda desteğinize ihtiyacım olacak, makroyu çalıştırınca format değişiyor (sayfa kenarları bozuluyor vs..) bu konuda ne yapılabilir. Yardımlarınız ve ilginiz için teşekkürler.