Ambar kontrol

[sancak125]

Slm

Soru ile ilgili forumda bir çok benzer şeyleri denedim fakat tam istediğim olmadı.Yapmak istediğim R sütunundaki listeyi sonuna kadar taramak ve Aynı verilere rasladığı satırları renklendirmek.

Saygılarımla bilgilerinize sunarım

 

[nadirornek]

Bul renglendir

Sub Bul_Renklendir()
Dim neyi As String, rng As Range, alan As Range
neyi = Application.InputBox("B3:O154 hücrelerinde, bulmak istediğiniz veri", , "")
Set alan = Range("B3:O154")
alan.Interior.ColorIndex = xlNone
For Each rng In alan
If StrConv(rng, vbProperCase) = StrConv(neyi, vbProperCase) Then
biriktir = biriktir & rng & ":" & rng.Address(0, 0) & " Adresinde var" & Chr(10)
rng.Interior.ColorIndex = 35
End If
Next rng
MsgBox biriktir
Set alan = Nothing
End Sub

Öncelikle sayılara koyduğunuz koşullu bicimlendirmeleri kaldırınız.
sonra yukarıdaki kodları module yazarak bir macro tuşuda atayınız
önce bulmak istediğinizi soruyor neyi bulmak istiyorsanız yazınız bulup
renklendiriyor.sonrada bulunan değerin hangi adreste olduklarını gösteriyor.

 

[sancak125]

Alakanız için çok teşekür ederim.

Ben bu makroyu biliyorum ,benim sormak istediğim binlerce veriyi bu şekilde kontrol etmem mümkün değil ,onun için benim istediğim R sütunundaki verilerin karşılaştırmasını yapacak bir makro veya formül aynı olanları renklendirmek