ınputbox bul ve renklendir

[SERKANguv]

c ve d sütünlarında kuruşlu sayılarım var ve aynı olanları bulup sarı renk ile renlendirmek istiyorum Bunu ınputbox a rakamı yapmak istiyorum nasıl yapabilirim.

 

[Mahmut Bayram]

Serkan bey, şu kodu dener misiniz.

 Dim sayi As String, hcr As Range, yer As Range
 sayi = InputBox("C1:D1000 hücreleri arası", "##,##", "")
 Set yer = Range("C1:D1000")
 yer.Interior.ColorIndex = xlNone
 For Each hcr In yer
  If StrConv(hcr, vbProperCase) = StrConv(sayi, vbProperCase) Then
     hcr.Interior.ColorIndex = 6
  End If
 Next hcr
 Set yer = Nothing

 

[SERKANguv]

Inputbox

öncelikle cevabınız çok teşekkür ederim Yalnız Bulunan rakamların Sarı olarak kalması gerekmekte.Bunu Nasıl yapabilirim Teşekkür ederim