verileri hücre özellikleriyle süzmek

[orcunerkek54]

iyi akşamlar. verilerimi süzmekte kullandığım koda verileri süzerken verinin özellikleriyle kımızı yazı sarı zemin gibi özellikleriyle getirsin.

Private Sub CommandButton1_Click()

For i = 2 To Cells(65536, 27).End(xlUp).Row + 1
If Range("c1").Value = Cells(i, 27).Value Then
c = c + 1
Cells(c + 2, 1).Value = Cells(i, 22).Value
Cells(c + 2, 2).Value = Cells(i, 23).Value
Cells(c + 2, 3).Value = Cells(i, 24).Value
Cells(c + 2, 4).Value = Cells(i, 25).Value
Cells(c + 2, 5).Value = Cells(i, 26).Value
Cells(c + 2, 6).Value = Cells(i, 27).Value

End If
Next
End Sub
bu kodu nasıl değiştirmeliyiz. yardımcı olursanız sevinirim.

 

[ozgretmen]

Aşağıdaki kodu dener misin ?

Private Sub CommandButton1_Click()
Range("A3:F50").Select
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 0
Selection.Clear
For i = 1 To Cells(65536, 27).End(xlUp).Row + 1
If Range("c1").Value = Cells(i, 27).Value Then
c = c + 1
Range("W" & i).Copy Range("B" & c + 2)
Range("X" & i).Copy Range("C" & c + 2)
Range("Y" & i).Copy Range("D" & c + 2)
Range("Z" & i).Copy Range("E" & c + 2)
Range("AA" & i).Copy Range("F" & c + 2)
End If
Next
End Sub

 

[orcunerkek54]

çok teşekkürler elinize sağlık

 

[ozgretmen]

çok teşekkürler elinize sağlık

Rica ederim.İyi çalışmalar...