Plugin olarak kaydetmek

[k0081]

Merhaba arkadaşlar;

Private Sub CommandButton1_Click()

Dim i       As Long, _
        Satir   As String, _
        yol     As String, _
        Dosya   As String
        Dim son_k As String
        
son_k = Worksheets(ActiveSheet.Name).Range("A65536").End(xlUp).Row
    
d_name = InputBox("Dosya Adını giriniz : ")
 yol = CreateObject("WScript.Shell").SpecialFolders("Desktop")
 Dosya = yol & "\" & d_name & ".txt"

    
    Open Dosya For Output As #1
    
    For i = 1 To son_k
        Satir = Cells(i, "A") & vbTab & Cells(i, "B") & vbTab & Cells(i, "C") & vbTab & Cells(i, "D")
        'Satir = Replace(Satir, ",", ".")
        Print #1, Satir
    Next i
    
    Close #1
    MsgBox "Kayıt işleminiz tamamlandı. " & vbNewLine & _
    "Lütfen kontrol ediniz    ", vbInformation, "K a y ı t   B i l g i "
End Sub

bu kodu her excel sayfasında kullanmak için, Plugin olarak yada başka bir yol ile nasıl kayıt yapabilirim ? plugin (*.xla ) denemeleri yaptım. olumlu bir sonuç alamadım.

Teşekkürler..

*********************** BU KONU ÇÖZÜMLENMİŞTİR.. ************************************

 

[systran]

boş bir excel dosyası açın,
Makro kaydeti tıklayın
Makro adını yazın ve "Makronun saklanacağı yer" i Kişisel Makro çalışma kitabı olarak seçin.
isteğe bağlı olarak Makro için kısayol tuşu ve açıklama ekleyebilirsiniz.

Tamam tıkalayın ve sonra "Kaydı durdu" düğmesine basın.
Alt + F11 ile VBA editörüne geçin.
"Sol taraftan (project Penceresi CTRL + R) PERSONAL.XLSB dosyasında Modüllerin içinden Modül 1 (büyük ihtimal) bulun ve onu çift tıklayın.
Şöyle birşey görmeniz lazım

Sub Makro1()
'
' Makro1 Makro
'


End Sub

aşağıdaki kodlarınızı bunun arasına yapıştırın.

Dim i       As Long, _
        Satir   As String, _
        yol     As String, _
        Dosya   As String
        Dim son_k As String
        
son_k = Worksheets(ActiveSheet.Name).Range("A65536").End(xlUp).Row
    
d_name = InputBox("Dosya Adını giriniz : ")
 yol = CreateObject("WScript.Shell").SpecialFolders("Desktop")
 Dosya = yol & "\" & d_name & ".txt"

    
    Open Dosya For Output As #1
    
    For i = 1 To son_k
        Satir = Cells(i, "A") & vbTab & Cells(i, "B") & vbTab & Cells(i, "C") & vbTab & Cells(i, "D")
        'Satir = Replace(Satir, ",", ".")
        Print #1, Satir
    Next i
    
    Close #1
    MsgBox "Kayıt işleminiz tamamlandı. " & vbNewLine & _
    "Lütfen kontrol ediniz    ", vbInformation, "K a y ı t   B i l g i "

Modülü kayıt etmeyi unutmayın.

 

[k0081]

systran;

Hocam cevap için çok teşekkürler. Soruyu sorduktan kısa bir zaman sonra, anlattığınız yöntem ile çözmüştüm. Ek olarak "Eklentiler" kısmından işaretlemeyi unutmuşum o yüzden çalıştıramamıştım.. :icelim: