Sayfalar arasında koşullu veri taşıma

[Feylosof]

Hayırlı sabahlar;

Detayını ekli dosyada anlatmaya çalıştım. iki sayfa arasında veri dönüşümü yapmak istiyorum. Yardımcı olursanız çok sevinirim.

 

[YUSUF44]

Aşağıdaki makroyu deneyin:

Sub esitle()
Set s1 = Sheets("ATAMA")
Set s2 = Sheets("DERS DAĞILIM")
sonB = s2.Cells(Rows.Count, "B").End(3).Row
sonA = s1.Cells(Rows.Count, "A").End(3).Row
For i = 3 To sonB
    If WorksheetFunction.CountIf(s1.Range("A1:A" & sonA), s2.Cells(i, "B")) = 0 Then
        s2.Cells(i, "B").Interior.Color = vbRed
    Else
        sat = WorksheetFunction.Match(s2.Cells(i, "B"), s1.Range("A1:A" & sonA), 0)
        For j = 8 To 22
            If s2.Cells(i, j) <> "" Then
                sut = WorksheetFunction.Match(s2.Cells(i, j), s1.Range("1:1"), 0)
                s1.Cells(sat, sut) = "TAMAM"
            End If
        Next
        s2.Cells(i, "B").Interior.Color = xlNone
    End If
Next
End Sub

 

[Feylosof]

@YUSUF44 Bey çok teşekkür ederim. İşime çok yarayacak. Elinize sağlık

 

[YUSUF44]

Bu arada bilginiz olsun DERS DAĞILIM sayfasında olup da ATAMA sayfasında olmayan isimler kırmızıya boyanır.