Bul, renklendir makrosu'nda değişiklik

[1Al2Ver]

Merhaba,

Aşağıdaki kod ile aranan değeri bulup renklendiriliyor, ancak kod bu haliyle belirli bir aralığı buluyor,

İstediğim; F3:K yada F3:K300 aralığında istenen veriyi bulup renklendirmesi,

Ancak bir nüans var, aranılan sayı 5 ise sadece 5'leri bulmalı, 15, 25, 52 gibi sayıları renklendirmemeli,

Teşekkür ederim.

Sub BUL()
yer = WorksheetFunction.CountA(Columns("F"))
Range("F3:K" & yer).Interior.ColorIndex = 2
ad = InputBox("aranacak değeri yazınız.", "DEĞER", "")
If ad = "" Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If
sat = 0

With Range("F3:K" & WorksheetFunction.CountA(Rows(1)) + 2)
Set d = .Find(ad, LookIn:=xlValues)
If Not d Is Nothing Then
firstAddress = d.Address
Do
d.Interior.ColorIndex = 3 'buradaki sayı renkleri göstermektedir.
sat = sat + 1
Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address <> firstAddress
End If
End With

MsgBox sat & " adet bulundu"

End Sub

 

[Orion1]

Aşağıdaki satırı değiştiriniz.

Set d = .Find(ad, LookIn:=xlValues[B][COLOR="Red"],lookat:=xlwhole[/COLOR][/B])

 

[1Al2Ver]

Aşağıdaki satırı değiştiriniz.

Set d = .Find(ad, LookIn:=xlValues[B][COLOR="Red"],lookat:=xlwhole[/COLOR][/B])

Sayın Evren Gizlen, merhaba,

İlginiz ve çözüm için teşekkür ederim,

Foruma yazdığım kod, 25 satır'dan sonrasını bulmuyor, mümkünse F3:K300 aralığında bir çözüm rica ediyorum,

Teşekkür ederim,

 

[Orion1]

İlgili satırları aşağıdaki ile değiştiriniz.

Range("F3:K300").Interior.ColorIndex = 2
ad = InputBox("aranacak değeri yazınız.", "DEĞER", "")
If ad = "" Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If
sat = 0

With Range("F3:K300")

 

[1Al2Ver]

İlgili satırları aşağıdaki ile değiştiriniz.

Range("F3:K300").Interior.ColorIndex = 2
ad = InputBox("aranacak değeri yazınız.", "DEĞER", "")
If ad = "" Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If
sat = 0

With Range("F3:K300")

Sayın Evren Gizlen,merhaba,

Zahmetleriniz için çok teşekkür ederim, sayenizde sorunum çözüldü,

Saygılarımla.

 

[Orion1]

Sayın Evren Gizlen,merhaba,

Zahmetleriniz için çok teşekkür ederim, sayenizde sorunum çözüldü,

Saygılarımla.

Rica ederim.
İyi çalışmalar.

 

[memoli79]

Bu kod nereye yazılacak acaba bir command buttona mı yoksa makro sayfasına mı bu konuda bir aöıklama yapabilirseniz sevinirim.

 

[İhsan Tank]

Bu kod nereye yazılacak acaba bir command buttona mı yoksa makro sayfasına mı bu konuda bir aöıklama yapabilirseniz sevinirim.

bir module yazarak butona atıyabilirsiniz

 

[memoli79]

çok teşekkür ederim İhsan Bey

 

[memoli79]

modüle yazdım ama butona atayamadım aslında biliyordum şu an kafam durdu

 

[İhsan Tank]

modüle yazdım ama butona atayamadım aslında biliyordum şu an kafam durdu

bir düğme oluşturup ona atıyabilirsiniz.
yada bir commanbutton oluşturup makro adını yazarsanız istediğiniz işlemi yapacaktır.