Eklenti oluşturmak

[hamitcan]

Arkadaşlar, aşağıdaki kodu nasıl eklenti haline dönüştürebilirim acaba? Bir şeyleri gözden mi kaçırdım bilemiyorum, bir türlü yapamadım. Yardımlarınız için şimdiden teşekkürler.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Interior.ColorIndex = 6 Then
Range("A" & Target.Row & ":H" & Target.Row).Interior.ColorIndex = xlNone
Target.Offset(1, 0).Select
Else
Range("A" & Target.Row & ":H" & Target.Row).Interior.ColorIndex = 6
Target.Offset(1, 0).Select
End If
End Sub

 

[Levent Menteşoğlu]

Arkadaşlar, aşağıdaki kodu nasıl eklenti haline dönüştürebilirim acaba? Bir şeyleri gözden mi kaçırdım bilemiyorum, bir türlü yapamadım. Yardımlarınız için şimdiden teşekkürler.

Kodu bu şekliyle eklentiye dönüştüremezsiniz. Ancak kod, application nesnesine yani excelin kendisine yazılırsa eklenti haline getirilebilir, bunun içinde class module kullanmak gerekecektir. Aşağıdaki kodları ilgili modüllere kopyalayıp dosyayı xla (eklenti) olarak kaydederseniz istediğiniz sonucu elde edersiniz.

Bir class module oluşturun ve aşağıdaki kodları bu sayfaya kopyalayın.

Public WithEvents eklenti As Application
 
Private Sub eklenti_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Interior.ColorIndex = 6 Then
Range("A" & Target.Row & ":H" & Target.Row).Interior.ColorIndex = xlNone
Target.Offset(1, 0).Select
Else
Range("A" & Target.Row & ":H" & Target.Row).Interior.ColorIndex = 6
Target.Offset(1, 0).Select
End If
End Sub

Thisworkbook modulünede aşağıdaki kodu kopyalayın.

Dim eklenti() As New Class1
 
Private Sub Workbook_Open()
ReDim Preserve eklenti(1)
Set eklenti(1).eklenti = Excel.Application
End Sub

 

[hamitcan]

Sayın Leventm üstadım, eline sağlık, gerçekten çok değerli bilgiler. Galiba gözümden kaçan bir şey yokmuş, bilmediğim şeyler varmış. Tekrar teşekkürler...