satır ve font renkleri

[enes2000eren]

slm.arkadaşlar listboxta verileri süzdükten sonra aşağıdaki kod ile verileri başka bir sayfaya alıyorum.istediğim bu verileri aktarırken
a-2. satırdan itibaren 1 satır siyah 1 satır mavi olması
b-enson son 4 dolu satırın kırmızı fontla yazılması.kod aşağıdadır.tşk.
Private Sub CommandButton3_Click()

Call SAYFAYITEMİZLE_LİSTE
Set s1 = Sheets("LİSTE")
ListBox1.ColumnWidths = baslik

sut = ListBox1.ListCount + 1
sat = ListBox1.ColumnCount

s1.Range(s1.Cells(2, 1), s1.Cells(sut, sat)) = ListBox1.List
'-----------------------------------------------------------
DOLUSATIRSAY = Sheets("LİSTE").Range("A65536").End(xlUp).Row
BOŞSAT = DOLUSATIRSAY + 1
Sheets("LİSTE").Range("A" & BOŞSAT + 1).Value = Label8
Sheets("LİSTE").Range("B" & BOŞSAT + 1).Value = Label9
Sheets("LİSTE").Range("C" & BOŞSAT + 1).Value = Label10
Sheets("LİSTE").Range("E" & BOŞSAT + 1).Value = Label11
Sheets("LİSTE").Range("F" & BOŞSAT + 1).Value = Label12
Sheets("LİSTE").Range("A" & BOŞSAT + 2).Value = ERKEK111.Text
Sheets("LİSTE").Range("B" & BOŞSAT + 2).Value = KADIN111.Text
Sheets("LİSTE").Range("C" & BOŞSAT + 2).Value = SÖZLEŞMELİ111.Text
Sheets("LİSTE").Range("E" & BOŞSAT + 2).Value = KADROLU111.Text
Sheets("LİSTE").Range("F" & BOŞSAT + 2).Value = ÜCRETLİ111.Text
Sheets("LİSTE").Range("A" & BOŞSAT + 3).Value = Label13
Sheets("LİSTE").Range("B" & BOŞSAT + 3).Value = Label14
Sheets("LİSTE").Range("C" & BOŞSAT + 3).Value = Label15
Sheets("LİSTE").Range("E" & BOŞSAT + 3).Value = Label16
Sheets("LİSTE").Range("F" & BOŞSAT + 3).Value = Label17
Sheets("LİSTE").Range("G" & BOŞSAT + 3).Value = Label18
Sheets("LİSTE").Range("M" & BOŞSAT + 3).Value = Label19
Sheets("LİSTE").Range("P" & BOŞSAT + 3).Value = Label20
Sheets("LİSTE").Range("A" & BOŞSAT + 4).Value = SENDİKA111.Text
Sheets("LİSTE").Range("B" & BOŞSAT + 4).Value = SENDİKA112.Text
Sheets("LİSTE").Range("C" & BOŞSAT + 4).Value = SENDİKA113.Text
Sheets("LİSTE").Range("E" & BOŞSAT + 4).Value = SENDİKA114.Text
Sheets("LİSTE").Range("F" & BOŞSAT + 4).Value = SENDİKA115.Text
Sheets("LİSTE").Range("G" & BOŞSAT + 4).Value = SENDİKA116.Text
Sheets("LİSTE").Range("M" & BOŞSAT + 4).Value = SENDİKA117.Text
Sheets("LİSTE").Range("P" & BOŞSAT + 4).Value = SENDİKA118.Text



End Sub

 

[enes2000eren]

Slm.arkadaşlar yokmu bir yardım.bunun basit bir yolu olmalı ama tabiki bilene.