Soru Kaydet

[sirkülasyon]

Private Sub CommandButton1_Click()
Sheets("Bordro").Range("B1") = " " & Sheets("DATA").Range("E2") & " TARİHİNDE  " & Sheets("DATA").Range("E3") & " - " & Sheets("DATA").Range("F3") & " SAATLERİ ARASINDA YAPILAN " & Chr(10) & " ÖZEL MTSK DİREKSİYON UYGULAMA SINAVI " & Chr(10) & " SINAV GÖREVLİLERİ ÜCRET BORDROSU"
Sheets("Bordro").Range("B2") = "Sıra No"
Sheets("Bordro").Range("C2") = "T.C Kimlik No"
Sheets("Bordro").Range("D2") = "Adı Soyadı"
Sheets("Bordro").Range("E2") = "Sınav Görevi"
Sheets("Bordro").Range("F2") = "Banka IBAN No"
Sheets("Bordro").Range("G2") = "Kümülatif Vergi Matrahı"
Sheets("Bordro").Range("H2") = "Sınav Ücreti " & Chr(10) & " Brüt"
Sheets("Bordro").Range("I2") = "Kesilen Gelir Vergisi"
Sheets("Bordro").Range("J2") = "Kesilen Damga Vergisi"
Sheets("Bordro").Range("K2") = "Kesintiler Toplamı"
Sheets("Bordro").Range("L2") = "Ele Geçen  Tutar"
  If ListBox1.ListIndex < 0 Then: MsgBox "Lütfen Personel seçimi yapınız!", vbCritical: ListBox1.Selected(0) = True: ListBox1.SetFocus: Exit Sub
Son_Dolu_Satir = Sheets("Bordro").Range("B65536").End(xlUp).Row
sonsat = Son_Dolu_Satir + 1
Sheets("Bordro").Range("B" & sonsat).Value = Application.WorksheetFunction.Max(Sheets("Bordro").Range("B:B")) + 1
Sheets("Bordro").Cells(sonsat, 3) = ListBox1.Column(0)
Sheets("Bordro").Cells(sonsat, 4) = ListBox1.Column(1)
Sheets("Bordro").Cells(sonsat, 5) = TextBox6.Text
Sheets("Bordro").Cells(sonsat, 6) = TextBox3.Text
Sheets("Bordro").Cells(sonsat, 7) = Format(CDbl(TextBox4), "#,##0.00") * 1
Sheets("Bordro").Cells(sonsat, 8) = Format(CDbl(TextBox5), "#,##0.00") * 1
Sheets("Bordro").Cells(sonsat, 9) = Round(gelirvergisibul(TextBox4, TextBox5), 2)
Sheets("Bordro").Cells(sonsat, 10) = Round(TextBox5 * 0.00759, 2)
Sheets("Bordro").Cells(sonsat, 11) = Round(TextBox5 * 0.00759, 2) + Round(gelirvergisibul(TextBox4, TextBox5), 2)
Sheets("Bordro").Cells(sonsat, 12) = Format(CDbl(TextBox5), "#,##0.00") * 1 - (Round(TextBox5 * 0.00759, 2) + Round(gelirvergisibul(TextBox4, TextBox5), 2))
Sheets("Bordro").Select
For d = [c65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("c3:c" & d), Cells(d, "c")) = 1 Then
Exit Sub
End If

If WorksheetFunction.CountIf(Range("c3:c" & d), Cells(d, "c")) > 1 Then Rows(d).Delete
MsgBox " Çift TC KİMLİK kaydı bulundu ve son girişiniz iptal edildi.", vbCritical, "MÜKERRER"
Next
End Sub

Yukarıda yer alan koda
1 - Listbox1 de isim seçilip de Commandbutton1 ile aktar denildiğinde seçilen isim renklenebilir mi?
2 - Kayıt etmeden önce sayfayı temizlemesi için 'Sheets("Bordro").Range("B3:O30") = ClearContents kodunu nereye eklemeliyim?
Benim yaptığım zaman temizliyor ve bir kişiyi aktarıyor