Bulup Boyama

[Karanlik1]

Aşağıdaki kodda "g80000" 'i bulduktan sonra, bulduğu hücreyi değilde o satırı veya H'a kadar olan bütün satırları nasıl boyatabilirim?

Saygılar, Teşekkürler

        Range("A1").Select
        Cells.Find(What:="G800000", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With

 

[miss_pert]

...

With ... end with kısımını kaldırıp yerine verdiğim kodu yazarsan bulunduğu satırın tamamını kırmızıya boyar.
satir = ActiveCell.Row
Rows(satir & ":" & satir).Interior.Color = vbRed

 

[Kemal Demir]

Selam,

Kullanıcı rumuzunuz baya değişik geldi.Neyse Sizin işinize yarayacak kucuk bir kod yazıyorum,umarım işinizi görür.

Sub BulSariYap()
On Error Resume Next
kelime = InputBox("Kelimeyi Giriniz")
[b]'Sayfa İsmini arama olarak belirledim.Siz istedıgınıze göre değiştiriniz[/b]
Set k1 = Sheets("arama")
For x = 1 To 7
sira = k1.Columns(x).Find(kelime).Row
Rows(sira).Interior.ColorIndex = 6
Next
k1.Cells(sira, 1).Select
End Sub

Yukarıdaki kodda arama a:g kolonları arasında çalışmaktadır.

 

[Orion1]

Merhaba.
Aşağıdaki kodu denermisiniz.G800000 için,a sütunu ile h sütunu arasını boyar.

Range("A1").Select
    Cells.Find(What:="G800000", After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=False, SearchFormat:=False).Activate
    Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row, "H")).Interior.ColorIndex = 6
    Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row, "H")).Interior.Pattern = xlSolid

 

[Karanlik1]

Hepinize çok teşekkür ederim arkadaşlar, bişeyler daha öğrenmiş olduk sayenizde, saolun