tek sütunda arama

[acar6783]

kolay gelsin arkadaşlar...

ctrl-f yapıp makro kaydettim ve aşağıdaki şekilde kullanıyorum fakat bunu sadece b sütununda arama yaptırmamız mümkünmüdür..



kod:

Cells.Find(What:=Selection, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

Cells.FindNext(After:=ActiveCell).Activate

 

[asi_kral]

Merhaba

Range("B:B").Find(What:=Selection, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

şeklinde deneyin.

 

[acar6783]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Rows("2:500").Select

With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Target.Offset(0, -1).Select
Range("a:a").Find(What:=Selection, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate



With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With



hocam kod bu şekilde düzenledim fakat hata alıyorum yanlışım nerede yardımcı olabilirmsiniz..

 

[asi_kral]

Worksheet_Change olayında activecell diye bir kural yok bunun yerine target kullanın.
Not : Kodu denemedim.