• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Ctrl+F komutu

ernglr

Altın Üye
Katılım
10 Kasım 2018
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
Excel 2010-2013
#1
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
19,251
Beğeniler
33
Excel Vers. ve Dili
2010-Türkçe
#2
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.
 

ernglr

Altın Üye
Katılım
10 Kasım 2018
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
Excel 2010-2013
#3
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
19,251
Beğeniler
33
Excel Vers. ve Dili
2010-Türkçe
#4
Küçük bir örnek dosya ekleyerek dosya içerisinden konuyu detaylı açıklarmısınız.
 

ernglr

Altın Üye
Katılım
10 Kasım 2018
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
Excel 2010-2013
#5
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
19,251
Beğeniler
33
Excel Vers. ve Dili
2010-Türkçe
#6
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
 

ernglr

Altın Üye
Katılım
10 Kasım 2018
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
Excel 2010-2013
#7
çok teşekkür ederim ilginiz ve alakanız için çok çok sağolun
 

ernglr

Altın Üye
Katılım
10 Kasım 2018
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
Excel 2010-2013
#8
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
19,251
Beğeniler
33
Excel Vers. ve Dili
2010-Türkçe
#9
Sorunuzu anlayamadım, daha detaylı açıklarmısınız.
 

ernglr

Altın Üye
Katılım
10 Kasım 2018
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
Excel 2010-2013
#10
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
19,251
Beğeniler
33
Excel Vers. ve Dili
2010-Türkçe
#11
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.
 

ernglr

Altın Üye
Katılım
10 Kasım 2018
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
Excel 2010-2013
#12
Ş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
19,251
Beğeniler
33
Excel Vers. ve Dili
2010-Türkçe
#13
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

.
 

ernglr

Altın Üye
Katılım
10 Kasım 2018
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
Excel 2010-2013
#14
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
19,251
Beğeniler
33
Excel Vers. ve Dili
2010-Türkçe
#15
İ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
 

ernglr

Altın Üye
Katılım
10 Kasım 2018
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
Excel 2010-2013
#16
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
Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
385
Beğeniler
76
Excel Vers. ve Dili
Office 2016 64 Bit TR
Windows 10 64 Bit TR
#17
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:

ernglr

Altın Üye
Katılım
10 Kasım 2018
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
Excel 2010-2013
#18
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
 

ernglr

Altın Üye
Katılım
10 Kasım 2018
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
Excel 2010-2013
#19
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
Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
385
Beğeniler
76
Excel Vers. ve Dili
Office 2016 64 Bit TR
Windows 10 64 Bit TR
#20
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