Ctrl+F komutu

Katılım
10 Kasım 2018
Mesajlar
26
Excel Vers. ve Dili
Excel 2010-2013
Excel de ctrl+f komutunda excel dosyası içerisinde arama yaparken bulunan sonucun farklı renk olmasını nasıl sağlayabilirim.

Yardımcı olur musunuz ?
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

ctrl+f de aranan değeri yazdıktan sonra tümünü bul deyip ctrl+a yaparsanız bulunan değerleri seçmiş olursunuz, veriler seçiliyken menüden renklendirme yapmanız yeterli olur.
 
Katılım
10 Kasım 2018
Mesajlar
26
Excel Vers. ve Dili
Excel 2010-2013
Evet o yöntemi kullanmayı biliyorum ancak şöyle bir problemim var Excel üzerinde 6 haneli 500 adet farklı kod listesi gelmekte ben her kodu yazıp enter komutunu verdiğimde hücrenin farklı bir renk almasını istiyorum
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Küçük bir örnek dosya ekleyerek dosya içerisinden konuyu detaylı açıklarmısınız.
 
Katılım
10 Kasım 2018
Mesajlar
26
Excel Vers. ve Dili
Excel 2010-2013
Aşağıda görselde belirttiğim gibi ctrl+f komutundan Bul komutunu kullandığımda aratmış olduğum "AA550614" seri numarasının bulunduğu hücre farklı bir renk olmasını istiyorum.


makro çalışması.png
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Makroyu çalıştırıp aradığınız değeri girin.

Kod:
Sub Bul_Renklendir()

    Dim ara As String, c As Range, Adr As String
  
    ara = Application.InputBox("Aranan Değer", "Değer Renklendirme")
  
    If ara = "" Then Exit Sub
  
    Application.ScreenUpdating = False  

    Set c = Cells.Find(ara, , xlValues, xlWhole)
    If Not c Is Nothing Then
        Adr = c.Address
        Do
            c.Interior.ColorIndex = 6
            Set c = Cells.FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Adr
    End If
  
    Application.ScreenUpdating = True
  
End Sub
 
Katılım
10 Kasım 2018
Mesajlar
26
Excel Vers. ve Dili
Excel 2010-2013
çok teşekkür ederim ilginiz ve alakanız için çok çok sağolun
 
Katılım
10 Kasım 2018
Mesajlar
26
Excel Vers. ve Dili
Excel 2010-2013
Bir sorum daha olucak kusura bakmayın sizide sürekli bu şekilde rahatsız ediyorum.
Ancak bir ricam daha var eğer imkanı varsa Seri Kod da yer alan sadece sayıları yazınca bulmasını sağlayabilir miyiz
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Sorunuzu anlayamadım, daha detaylı açıklarmısınız.
 
Katılım
10 Kasım 2018
Mesajlar
26
Excel Vers. ve Dili
Excel 2010-2013
Aşağıda ki görselde de belirttiğimi gibi seri numara sütununda yer alan kodda sadece rakamları yazarak bulmasını sağlayabilir miyiz
makroda gösterdiğim gibi sadece rakamların bulabilmesini sağlamak istiyorum.
makro çalışması 2.png
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Set c = Cells.Find(ara, , xlValues, xlWhole)

yerine;

Set c = Cells.Find(ara)

Kullanabilirsiniz, fakat bu arama yazdığınız sayı aranan bölgede içinde tüm geçenleri işleme sokar.

Sanırım sadece A sütununda arama yapacaksınız. Eğer öyleyse bu tür bir hata alacağınızı sanmam.

Demek istediğim, 1 değerini arattığınızda 1 ve renklenir 13 de renklenir. Fakat sizin veriler ve aranan değer bu kapsamı sağlamadığı için etkilenmez diye düşünüyor. Veri yapınıza göre * ilavesi de yapılabilir.
Eğer bu durumlarda etkilenecek verileriniz varsa farklı çözüm sunmam gerekir.

Eğer arama sadece A sütununda olacaksa,

Set c = Cells. olan 2 bölümdeki Cells yerine [A:A] yazmanız daha doğru olacaktır.
 
Katılım
10 Kasım 2018
Mesajlar
26
Excel Vers. ve Dili
Excel 2010-2013
Şuanda yeni kodu dediğiniz gibi değiştirdim sadece hücre içinde ki sayısal verileri yazmam yeterli oldu birşey daha rica edicem ctrl+f komutunda hücreyi yazıp enter komutunu verdiğimde ekranın hücreye yönelmesini nasıl sağlaya biliriz

2222.png
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
If Not c Is Nothing Then

satırından sonra aşağıdaki satırı ilave edin. Bu şekilde fare aranan değerin bulunduğu ilk hücreye gider.
İstediğiniz bu sanırım.

c.Select

.
 
Katılım
10 Kasım 2018
Mesajlar
26
Excel Vers. ve Dili
Excel 2010-2013
Sub Bul_Renklendir()

Dim ara As String, c As Range, Adr As String

ara = Application.InputBox("Aranan Değer", "Değer Renklendirme")

If ara = "" Then Exit Sub

Application.ScreenUpdating = False

Set c = Cells.Find(ara)
If Not c Is Nothing Then
c.select
Adr = c.Address
Do
c.Interior.ColorIndex = 6
Set c = Cells.FindNext(c)
Loop While Not c Is Nothing And c.Address <> Adr
End If

Application.ScreenUpdating = True

End Sub




kodu yukarıda dediğiniz gibi güncelledim ancak dediğim gibi bulunan hücreyi seçiyor ancak seçili hücreye ekranın gitmesini yani alt+enter komutunu nasıl ekleyebiliriz
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
İstediğiniz bu mu?

Kod:
Sub Bul_Renklendir()

    Dim ara As String, c As Range, Adr As String
 
    ara = Application.InputBox("Aranan Değer", "Değer Renklendirme")
 
    If ara = "" Then Exit Sub
 
    Application.ScreenUpdating = False

    Set c = Cells.Find(ara)
    If Not c Is Nothing Then
        Adr = c.Address
        Do
            c.Interior.ColorIndex = 6
            Set c = Cells.FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Adr
    End If
    c.Select
    SendKeys "{F2}", True
    SendKeys "%{ENTER}", True
    SendKeys "{NUMLOCK}", True
    Application.ScreenUpdating = True
 
End Sub
 
Katılım
10 Kasım 2018
Mesajlar
26
Excel Vers. ve Dili
Excel 2010-2013
Evet teşekkür ederim istemiş olduğum durum tam olarak da bu makroya kısa yol atayıp pratik bir şekilde işimi görmeye başladım peki makro çalıştırdıktan sonra seri numaramı aratıyorum tamam komutuna tıkladığımda makro kendini kapatmasa ctrl+f komutu gibi sürekli açık kalm ihtimali var mı
 

netzone

Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
789
Excel Vers. ve Dili
🅾🅵🅵🅸🅲🅴
⎝2019 32 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝10 64 Bit 𝙏𝙍⎠
Merhaba,

Makronun ilk satırına [Sub Bul_Renklendir() altına] 10: , son satırına [End Sub üstüne] GoTo 10 yazıp deneyiniz.

İyi çalışmalar.
 
Son düzenleme:
Katılım
10 Kasım 2018
Mesajlar
26
Excel Vers. ve Dili
Excel 2010-2013
Merhaba,

Makronun ilk satırına [Sub Bul_Renklendir() altına] 10: , son satırına [End Sub üstüne] GoTo 10 yazıp deneyiniz.

İyi çalışmalar.
teşekkür ederim istediğim durum oldu tek sorun şuanda daha öncede bahsettiğim gibi ekranın yazdığım rakamın bulunduğu hücreye yönelmesini istiyorum bir bilginiz var mı sizin kodlarınız ekleyince o komutu kullanmadım
 
Katılım
10 Kasım 2018
Mesajlar
26
Excel Vers. ve Dili
Excel 2010-2013
Sub Bul_Renklendir()

10:
Dim ara As String, c As Range, Adr As String

ara = Application.InputBox("Aranan Değer", "Değer Renklendirme")

If ara = "" Then Exit Sub

Application.ScreenUpdating = False

Set c = Cells.Find(ara)
If Not c Is Nothing Then
Adr = c.Address
Do
c.Interior.ColorIndex = 6
Set c = Cells.FindNext(c)
Loop While Not c Is Nothing And c.Address <> Adr
End If
c.Select
SendKeys "{F2}", True
SendKeys "%{ENTER}", True
SendKeys "{NUMLOCK}", True
Application.ScreenUpdating = True
GoTo 10

End Sub



Bu şekilde kodları güncelledim 10: ve GoTo 10 komutu makronun sürekli çalışmasını sağladı ancak şuanda sorun şu ki ekran bulunan hücreye gitmiyor :( 10 ve goto 10 eklmeden önce oluyordu
 

netzone

Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
789
Excel Vers. ve Dili
🅾🅵🅵🅸🅲🅴
⎝2019 32 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝10 64 Bit 𝙏𝙍⎠
Merhaba @ernglr,

Evet belirttiğiniz gibi ekranı tekrar çağırdığınızda hücre içinden çıkmaktadır. Hücre içinden çıkıldıktan sonra ekranı çağırması için dinleyici ekledim.

Daha önce eklediğimiz satırları silip, sayfanın kod kısmına aşağıdaki kodları ekleyerek deneyiniz.

Rich (BB code):
Private Sub Worksheet_Change(ByVal Target As Range)
    Call Bul_Renklendir
End Sub
İyi çalışmalar.
 
Son düzenleme:
Üst