Koşullu biçimlendirme ile veri aktarımı

[orkuncan5]

Koşullu biçimlendirmesi gerçekleşenleri sayfa 2 ye nasıl aktarırım , aynı şekilde koşullu biçimlendirmesi gerçekleşmeyenleri sayfa 3 e nasıl aktarırım.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub e1denbuyukler()
Dim sat As Integer
Sayfa2.[a2:e100].Clear
s = 2
For sat = 5 To 12
    If [e1] > Cells(sat, "e") Then
        Range(Sayfa2.Cells(s, "a"), Sayfa2.Cells(s, "e")) = Range(Sayfa1.Cells(sat, "a"), Sayfa1.Cells(sat, "e")).Value
        s = s + 1
    End If
Next
End Sub

Sub e1denkucukler()
Dim sat As Integer
Sayfa3.[a2:e100].Clear
s = 2
For sat = 5 To 12
    If [e1] < Cells(sat, "e") Then
        Range(Sayfa3.Cells(s, "a"), Sayfa3.Cells(s, "e")) = Range(Sayfa1.Cells(sat, "a"), Sayfa1.Cells(sat, "e")).Value
        s = s + 1
    End If
Next
End Sub

 

[orkuncan5]

Ziya Bey çok makbule geçti .Teşekkür ederim