Ara bul makrosu

[yavuz829]

Arkadaşlar çok basit bir ara bul makrosu lazım bana örneğin bir excel sayfasındaki kişilerin adını sayadını adresini ve sıra numarasını bulacak bir makro kişinin tek adı veya soyadı yazıldığı zaman adını soyadını ve adresini bulsun. Yardımlarınız için şimdiden teşekürler.

 

[ECYavuz]

Hemen bir üst satırdaki "TextBox da yazılı Kelimeye Göre ListBox Oluştur" konusunda bakınız. Sayın Uzman arkadaşımız 5 dakika da halletti benim sorunumu.. sanırım sizinki de aynı konu...

 

[N.Ziya Hiçdurmaz]

yanıt

Sub BUL()
Dim DEG As String
On Error GoTo HATA
Range("a1:C1000").Interior.ColorIndex = xlNone
DEG = InputBox("Aranacak veriyi giriniz.")
Range("a1:a1000").Find(DEG).Select
Range(Selection, Selection.Offset(0, 2)).Interior.ColorIndex = 6
HATA:
End Sub

Tam isme göre aramak için.
Sub BUL()
Dim DEG As String
On Error GoTo HATA
Range("a1:C1000").Interior.ColorIndex = xlNone
DEG = InputBox("Aranacak veriyi giriniz.")
Range("a1:a1000").Find(DEG, LookIn:=xlValues, lookat:=xlWhole).Select
Range(Selection, Selection.Offset(0, 2)).Interior.ColorIndex = 6
HATA:
End Sub

 

[sonottoman]

Merhaba aşağıdaki kod düzgün bir şekilde çalışıyor ben kod şunları değiştirmek istiyorum aranan yeri sarı yapıyor ama tekrar aramada orası sarı kalıyor o kısmın tekrar aynı haline gelmesini istiyorum yardımcı olacaklara şimdiden teşekkürler...


Sub BUL()
Dim DEG As String
On Error GoTo HATA
DEG = InputBox("Aranacak veriyi giriniz.")
Range("a1:d100").Find(DEG).Select
Range(Selection, Selection.Offset(0, 0)).Interior.ColorIndex = 6
HATA:
End Sub

 

[Seyit Tiken]

Sub Düğme1_Tıklat()
[a1:d100].Interior.ColorIndex = xlNone
DEG = InputBox("Aranacak veriyi giriniz.")
If DEG = "" Then Exit Sub
Range("a1:d100").Find(DEG).Select
ActiveCell.Interior.ColorIndex = 6
End Sub

Veya

Sub Düğme1_Tıklat()
[a1:d100].Interior.ColorIndex = xlNone
DEG = InputBox("Aranacak veriyi giriniz.")
If DEG = "" Then Exit Sub
Range("a1:d100").Find(DEG).Interior.ColorIndex = 6
End Sub

 

[sonottoman]

Kod düzgün çalışıyorda sorunum şu ;
Listenin renklerini etkilemsini istemiyorum. Beyaz renk oluyor komple. Sağolun