Çözüldü KTF yi Eklenti olarak kullanmak

[k0081]

Merhaba arkadaşlar;

KTF eklenti olarak kaydedip , Tüm sayfalarda nasıl kullanabilirim ?

Yardımcı arkadaşa şimdiden Teşekkürler.

 

[Muzaffer Ali]

KTF olan dosyanızı farklı kaydet, Kayıt Türü "Excel Eklentisi" seç klasör olarak otomatik
C:\Users\"Oturum Adınız"\AppData\Roaming\Microsoft\AddIns açılır.
Dosyanızı buraya excel eklentisi olarak kaydedin.

Excel Seçenekler/Eklentiler sayfasını açın.
"Yönet" = "Excel Eklentileri" seçili iken Gite tıklatın.
Açılan pencerede dosyanızın yanındaki onay kutusunu işaretleyin.

Artık KTF yi bilgisayarınızdaki bütün dosyalardan çalıştırabilirsiniz.

Ancak şöyle bir sorun var ki KTF formülü kullandığınız dosyayı başka bilgisayara kopyalarsanız o bilgisayarda KTF formüllü eklenti dosyası olmadığından KTF formüller hata verecektir.

 

[k0081]

dalgalikur

Hocam dediğiniz şekilde yaptım. Fakat yinede çalışmadı..

 

[halit3]

Sayın dalgalikur açıklamış

KTF olan dosyanızı farklı kaydet, Kayıt Türü "Excel Eklentisi" seç klasör olarak otomatik
C:\Users\"Oturum Adınız"\AppData\Roaming\Microsoft\AddIns açılır.
Dosyanızı buraya excel eklentisi olarak kaydedin.

Excel Seçenekler/Eklentiler sayfasını açın.
"Yönet" = "Excel Eklentileri" seçili iken Gite tıklatın.
Açılan pencerede dosyanızın yanındaki onay kutusunu işaretleyin.

Açılan pencerede kayıt ettiğiniz dosya adını seçmeniz gerekiyor onun için eklenti dosyasını tikini işaretliyeceksiniz.

 

[k0081]

halit3;

Bunları yaptım hocam. Ama çalışmadı

Eklemek isteğim KTF şu şekilde.;

Function ColorIndexOfCell(rng As Range, _
    Optional OfText As Boolean, _
    Optional DefaultAsIndex As Boolean = True) As Integer
Dim c As Long
If OfText = True Then
    c = rng.Font.ColorIndex
Else
    c = rng.Interior.ColorIndex
End If
If (c < 0) And (DefaultAsIndex = True) Then
    If OfText = True Then
        c = GetBlack(rng.Worksheet.Parent)
    Else
        c = GetWhite(rng.Worksheet.Parent)
    End If
End If
ColorIndexOfCell = c
End Function

Function GetWhite(WB As Workbook) As Long
    Dim Ndx As Long
    For Ndx = 1 To 56
        If WB.Colors(Ndx) = &HFFFFFF Then
            GetWhite = Ndx
            Exit Function
        End If
    Next Ndx
    GetWhite = 0
End Function
Function GetBlack(WB As Workbook) As Long
    Dim Ndx As Long
    For Ndx = 1 To 56
        If WB.Colors(Ndx) = 0& Then
            GetBlack = Ndx
            Exit Function
        End If

 

[Muzaffer Ali]

Eksik yada yanlış yaptığınız bir şey olmalı.
Ekte işlemi yaparken kaydettiğim ekran görüntüsü var inceleyin.


http://dosya.co/x518xxz6mzl9/Capture_01.zip.html

 

[k0081]

Eksik yada yanlış yaptığınız bir şey olmalı.
Ekte işlemi yaparken kaydettiğim ekran görüntüsü var inceleyin.


http://dosya.co/x518xxz6mzl9/Capture_01.zip.html[/QUOTE

PC de değilim... eklenti olarak kaydedip denediniz mi, yani yeni sayfalarda ktf çalışıyor mu ?

 

[Muzaffer Ali]

Lütfen önce kaydettiğim görüntüyü seyret.

 

[k0081]

Lütfen önce kaydettiğim görüntüyü seyret.

Video daki anlatım ile, ilk mesajdaki anlatım harfiyen aynı... Bende ilk mesajdaki gibi yaptığımı belirtiyorum zaten... Yani videoya gerek yoktu... Bu tek bir KTF değil.. bir kaç tane birleşim sözkonusu... Sistemim eski. ofis 2007 tr

ve yine olmadı... Sorunun nereden kaynaklandığını , inşallah bulacağım.!

Teşekkürler.

 

[k0081]

Başka bir Bilgisayarda Ofis 2010 x64 tr de denedim. sorunsuz çalışıyor.

Ofis 2007 tr , malesef çalıştıramadım.

Yardımcı arkadaşlara çok Teşekkürler.

 

[Muzaffer Ali]

"Excel 2003-2007 Eklentisi *.xla" olarak kaydedip dene. Bakalım olacak mı?

 

[k0081]

"Excel 2003-2007 Eklentisi *.xla" olarak kaydedip dene. Bakalım olacak mı?

Denemiştim . Olmadı .. Bu fonksiyonun içeriğinden kaynaklanıyor gibi geldi bana

 

[Muzaffer Ali]

Bir de şöyle dener misin.
Prosedür başlığının en önüne Public ekle

Function ColorIndexOfCell(rng As Range, _
Aşağıdaki gibi
Public Function ColorIndexOfCell(rng As Range, _

 

[k0081]

Bir de şöyle dener misin.
Prosedür başlığının en önüne Public ekle

Function ColorIndexOfCell(rng As Range, _
Aşağıdaki gibi
Public Function ColorIndexOfCell(rng As Range, _

Ofis 2007 kaldırdım. maalesef deneyemem...