Ctrl+F komutu

[ernglr]

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.

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

 

[netzone]

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

 

[ernglr]

dediğiniz gibi işlem yaptım ancak yine hata alıyorum

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

 

[Ömer BARAN]

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
.

 

[ernglr]

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

 

[ernglr]

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]

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.

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.

Private Sub Worksheet_Change(ByVal Target As Range)
    Call Bul_Renklendir
End Sub

İyi çalışmalar.

 

[ernglr]

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]

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.