• 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

Katılım
10 Kasım 2018
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
Excel 2010-2013
#21
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.
kodları eklaim ancak böyle bir hata alıyorum yardımcı olabilir misiniz

1.png
 

netzone

Altın Üye
Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
384
Beğeniler
76
Excel Vers. ve Dili
Office 2016 64 Bit TR
Windows 10 64 Bit TR
#22
Merhaba @erngl
Kodları sol tarafta gördüğünüz modül içinde bulunan kodlarınıza değil sol tarafta göreceğiniz sayfa1 e tıkladığınızda açılan pencereye yazınız.

İyi çalışmalar
 
Katılım
8 Mart 2011
Mesajlar
11,707
Beğeniler
236
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
#24
Merhaba.

-- Aldığınız hata:
Ekran görüntüsünü verdiğiniz kısımda, kırmızı çerçeveye aldığınız satırdaki False ibaresini True olarak değiştirmişsiniz, bu tamam.
O satırın sonunda ENTER tuşuna basarak satır başına geçin ve End Sub yazıp, bir kez daha ENTER tuşuna basın.

Böylece, eklediğiniz End Sub satırı ile Private Sub Worksheet_Change.... satırı arasında bir çizgi oluşur.
Artık makrodan beklenen işlem gerçekleşecektir, Excel sayfasına geçip denemeler yapabilirsiniz.

Ancak ekran görüntüsünden anladığım kadarıyla, excel sayfasında yapacağınız her işlemin ardından ARAMA kutucuğu
açılacağından; bu yöntemin, bana pek kullanışlı gelmediğini de belirteyim.


-- Aranan verinin bulunduğu hücreye gitmeyi sağlamak üzere aşağıdaki işlemi yapın (umarım yanlış anlamadım).
Ekran görüntüsündeki kod blokundaki c.Select satırı ve devamındaki 3 adet Sendkeys.... satırını silip yerine aşağıdaki kod satırını yapıştırın.
Application.Goto Cells(c.Row, "A"), Scroll = False
.
 
Katılım
10 Kasım 2018
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
Excel 2010-2013
#25
Merhaba.

-- Aldığınız hata:
Ekran görüntüsünü verdiğiniz kısımda, kırmızı çerçeveye aldığınız satırdaki False ibaresini True olarak değiştirmişsiniz, bu tamam.
O satırın sonunda ENTER tuşuna basarak satır başına geçin ve End Sub yazıp, bir kez daha ENTER tuşuna basın.

Böylece, eklediğiniz End Sub satırı ile Private Sub Worksheet_Change.... satırı arasında bir çizgi oluşur.
Artık makrodan beklenen işlem gerçekleşecektir, Excel sayfasına geçip denemeler yapabilirsiniz.

Ancak ekran görüntüsünden anladığım kadarıyla, excel sayfasında yapacağınız her işlemin ardından ARAMA kutucuğu
açılacağından; bu yöntemin, bana pek kullanışlı gelmediğini de belirteyim.


-- Aranan verinin bulunduğu hücreye gitmeyi sağlamak üzere aşağıdaki işlemi yapın (umarım yanlış anlamadım).
Ekran görüntüsündeki kod blokundaki c.Select satırı ve devamındaki 3 adet Sendkeys.... satırını silip yerine aşağıdaki kod satırını yapıştırın.
Application.Goto Cells(c.Row, "A"), Scroll = False
.
SANIRIM YANLIŞ YAPTIĞIM BAŞKA BİRŞEY DAHA VAR ÇÜNKÜ YİNE BİR HATA DAHA ALDIM


Screenshot_1.png
 
Katılım
10 Kasım 2018
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
Excel 2010-2013
#26
son mesajınızda alttaki
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
Application.Goto Cells(c.Row, "A"), Scroll = False
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call Bul_Renklendir


End Sub




bunu oluşturdum ancak makronun tekrar çalışmasını nasıl sağlayabilirim
 

netzone

Altın Üye
Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
384
Beğeniler
76
Excel Vers. ve Dili
Office 2016 64 Bit TR
Windows 10 64 Bit TR
#27
Merhaba @ernglr,

Sanırım yönlendirmede yanlış anlaşılmaya sebep verdim.

Söz konusu Ömer Bey'in vermiş olduğu kodları daha önceden çalıştırdığınız gibi modül içersine kopyalayın.
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
Daha sonra Aşağıdaki kodu sayfa1 in içine yapıştırınız.
Rich (BB code):
Private Sub Worksheet_Change(ByVal Target As Range)
    Call Bul_Renklendir
End Sub
İyi çalışmalar.
2018-12-05_21-02-21.png
 
Katılım
10 Kasım 2018
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
Excel 2010-2013
#28
kodları dediğiniz gibi yükledim ancak bu seferde makro hücreyi bulduktan sonra kapanıyor tekrar ekranda kalmıyor tekrar tekrar makroyu açmam gerekiyor
 

netzone

Altın Üye
Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
384
Beğeniler
76
Excel Vers. ve Dili
Office 2016 64 Bit TR
Windows 10 64 Bit TR
#29
Merhaba @ernglr
Makroyu çalıştırdığınızda yada çalıştırmadan herhangi bir hücrenin içine girş yaptığıınızda o hücreden çıkılması ile birlikte pencere tekrardan ekranda belirmesi gerek doğru yerlere yaptıysanız.
Lütfen tekrar kontrol ediniz.

İyi çalışmalar.
 
Üst