Makroyu eklentiye çevirmek

[puslukurt]

Merhaba arkadaşlar;
1-aşağıda kullandığım makroyu eklenti haline çevirebilirmiyiz. çevirebilirsek nasıl olacak ?
2-aşağıdaki kodu her defasında sayfanın koduna yapıştırmak zorunda kalıyorum. thisworkbook yapıştırdığıma kod çalışmıyo yani bir defa kodu yapıştırayım diğer yeni eklediğim sayfalar otomatik makro ile çalışsın istiyorum olabilirmi ?

İlgilenen bütün arkadaşlara teşekkür ederim
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Satır As Range, Sütun As Range

Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 256))
Set Sütun = Range(Cells(1, ActiveCell.Column), Cells(65536, ActiveCell.Column))

Cells.FormatConditions.Delete

With Satır
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 8
End With

With Sütun
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 8
End With

End Sub

 

[kan-nas]

Üstad eklenti ney bilmiyorum ama Kodun tüm sayfalar için çalışmasını istiyorsanız aşağıdaki kod işine yarar.

Sub tara()

For Each sayfa In ActiveWorkbook.Sheets
Sheets(sayfa.Name).Select
.....
......
......
.......

Next

 

[puslukurt]

makroyu eklentiye çevirmek

Üstad eklenti ney bilmiyorum ama Kodun tüm sayfalar için çalışmasını istiyorsanız aşağıdaki kod işine yarar.

Sub tara()

For Each sayfa In ActiveWorkbook.Sheets
Sheets(sayfa.Name).Select
.....
......
......
.......

Next

üstadım senin dediğin gibi yaptım makroyu sayfa 1 de dahi çalışrmadı ? nokta nokta koyduğun yerlere benim makroyu yapıştırdım modül1 kopyaladım olmadı sayfa 2 ye kopyaladım olmadı thisworkbook a kopyaladım gene olmadı ?

 

[halit3]

Kodu thisworkbook ın içene koy ve dene

Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Satır As Range, Sütun As Range
Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 256))
Set Sütun = Range(Cells(1, ActiveCell.Column), Cells(65536, ActiveCell.Column))
Cells.FormatConditions.Delete
With Satır
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 8
End With
With Sütun
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 8
End With
End Sub

 

[puslukurt]

teşekkür

Halitbey teşekkürler oldu. Gayet güzel çalışıyor. ellerinize ve bilginize sağlık.