bul makro

[alicanxy58]

Bir excell dosyam var. sayfa içerisinde bul(ctrl+f) komutunu makro ile butonla yapmak istiyorum. yardımcı olursanız sevinirim.

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Sub Makro1()
On Error Resume Next
bul = Application.InputBox("Aranılan Kelimeyi Yazın", Application.UserName)
Cells.Find([bul]).Select
End Sub

 

[1Al2Ver]

Aşağıdaki kodu deneyiniz.

Sub Makro1()
On Error Resume Next
bul = Application.InputBox("Aranılan Kelimeyi Yazın", Application.UserName)
Cells.Find([bul]).Select
End Sub

Sayın Seyin Tiken, bulduğu hücreyi yanıp söndürse veya geçici olarak renklendirse hoş olmaz mı, ne dersiniz, kod nasıl olur? Teşekkür ederim.

 

[Seyit Tiken]

Sürekli yanıp sönen renkli bir hücre sorunlara yolaçtığı diye biliyorum. Aklıma şöyle bir çözüm geldi. Ne denli işe yarayacaksa?

Sub Düğme1_Tıklat()
On Error Resume Next
bul = Application.InputBox("Aranılan Kelimeyi Yazın", Application.UserName)
Cells.Find([bul]).Select
For s = 1 To 4000
ActiveCell.Interior.ColorIndex = 40
Next
ActiveCell.Interior.ColorIndex = 0
End Sub

4000 yazan yeri değiştirebilirsiniz.

 

[alicanxy58]

bul-makro

Cevaplariniz İÇİn TeŞekkÜr Ederİm. Ancak AradiĞim Verİlerden Sadece Bİr Tanesİnİ Buluyor Ctrl+f Tekİ Gİbİ Arama Yapabİlİrmİyİm. Bİrde AradiĞim Kelİmeye Aİt Satirlari SeÇebİlİrmİyİm?

 

[1Al2Ver]

Sürekli yanıp sönen renkli bir hücre sorunlara yolaçtığı diye biliyorum. Aklıma şöyle bir çözüm geldi. Ne denli işe yarayacaksa?

Sub Düğme1_Tıklat()
On Error Resume Next
bul = Application.InputBox("Aranılan Kelimeyi Yazın", Application.UserName)
Cells.Find([bul]).Select
For s = 1 To 4000
ActiveCell.Interior.ColorIndex = 40
Next
ActiveCell.Interior.ColorIndex = 0
End Sub

4000 yazan yeri değiştirebilirsiniz.

Sayın Seyit Tiken, teşekkür ederim, sağolun, saygılar.

 

[alicanxy58]

Soruma Cevap Alamadim