Ara Bul Renklendir Makrosu

[cemkokes70]

İyi günler. Ben bir arama yapmak istiyorum ve bulunan sonucu renklendirmek istiyorum. Ve her aramada farklı renk yapmak istedim. Fakat aşağıdaki hazırladığım kodda bir sorun var . her seferinde ilk rengi veriyor. Çünkü kodun sonunda sub dan çıktığım için başa dönmüş oluyorum. Bunu nasıl çözebilirim yardımcı olabilecek var mı. Şimdiden teşekkürler.

Private Sub CommandButton1_Click()
Dim renkli As Integer
ReDim renk(7)

renk(1) = 3
renk(2) = 4
renk(3) = 33
renk(4) = 39
renk(5) = 37
renk(6) = 12
renk(7) = 44
renkli = renkli + 1
Range("A1").Select

msg1 = MsgBox("Renkler silinsinmi.? ", vbYesNo + vbInformation, "u y a r ı !")

If msg1 = vbYes Then
Range("A:IV").Interior.ColorIndex = xlNone
End If


'ad = InputBox("aranacak değeri yazınız.", "DEĞER", "")
ad = ComboBox1.Text
If ad = "" Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If
sat = 0
yer = ""
With Range("A:IV")
Set d = .Find(ad, LookIn:=xlFormulas, LookAt:=xlPart) 'Hücreye göre arar
'Set d = .Find(ad, LookIn:=xlValues, LookAt:=xlWhole) 'Kelimeye göre arar
If Not d Is Nothing Then
FirstAddress = d.Address
Do
d.Interior.ColorIndex = renk(renkli)
d.Select
If yer <> "" Then
ekle = ","
Else
ekle = ""
End If
yer = yer & ekle & d.Address(False, False)
yer1 = yer1 & d.Address(False, False) & Chr(10)
sat = sat + 1
Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address <> FirstAddress
End If
End With
If sat = 0 Then
MsgBox ad & " değeri bulunamamıştır"
Exit Sub
End If
Range(yer).Select
If renkli >= 7 Then renkli = 0
MsgBox yer1 & Chr(10) & sat & " adet bulundu", vbInformation, "Hücrelerin numaraları"

End Sub

 

[EmrExcel16]

Merhaba , Dim renkli As Integer bu satırı Private Sub CommandButton1_Click() bu satırın üstüne alıp dener misin ? yani kodun dışına.

 

[cemkokes70]

Merhaba , Dim renkli As Integer bu satırı Private Sub CommandButton1_Click() bu satırın üstüne alıp dener misin ? yani kodun dışına.

Sanırım oldu . teşekkürler.

 

[EmrExcel16]

Sanırım oldu . teşekkürler.

Rica ederim , iyi çalışmalar.