[ÇÖZÜLDÜ] aktif satırı takip etme

[pablo_76]

merhaba excelde aktif satırı takip edecek şekilde şerit yapmak mümkünmüdür?

 

[uzmanamele]

merhaba

şeritden kastınız nedir?
sayfanın kod bölümüne yazarak dener misiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo son
Cells.Interior.ColorIndex = xlNone
Range(Cells(1, Target.Column), Cells(65536, Target.Column)).Interior.ColorIndex = 3
Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 5
son:
End Sub

 

[pablo_76]

aslında tam olarak şöyle bir şey kodunuzu denedim ama çalıştıramadım
örnek dosyayı ekledim.

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

not:
sorularınıza tatminedici cevap aldığınızı düşünüyorsanız;
konu araçları / bu soruyu [ÇÖZÜLDÜ] olarak işaretle'yiniz.

 

[pablo_76]

tam istediğim gibi ama bunu diğer sayfalarda nasıl kullanabilirim?

 

[Eser Gökay]

Bunun için Süleyman Bey'in sayfa1 kod bölümüne yazdığı kodları diğer sayfalara kopyalamanız gerekiyor.

 

[uzmanamele]

merhaba

mevcut kodları ya her sayfanın kod bölümüne yazarsınız ya da
ThisWorkbook bölümüne aşağıdaki şekilde yazarsınız.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo son
Cells.Interior.ColorIndex = xlNone
'Range(Cells(1, Target.Column), Cells(65536, Target.Column)).Interior.ColorIndex = 3
Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 43
son:
End Sub

 

[Eser Gökay]

Bu konuda ben de teşekkür ediyorum. Sizin kodların ilk halini Thisworkbook kısmına kopyalayarak denedim olumsuz olunca diğer sayfalara kopyalayın şeklinde cevap yazdım sayın Pablo'ya. Öğrenmiş oldum teşekkür ediyorum.

"Workbook_SheetSelectionChange"

 

[pablo_76]

sayın uzmanmale ve sayın eser gökay çok teşekkürler.