Macroyu Eklentiye Çevirme

[webuzmani]

Merhaba arkadaşlar yazmış olduğum macroyu eklenti olarak kaydettiğimde
makrom iş görmez hale geliyor. Nasıl düzeltebilirim ?? acil yardımlarınızı bekliyorum...



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim kopyaal As String, kopyayolla As String, dosyam As String
dosyam = ActiveWorkbook.Name
kopyaal = ActiveWorkbook.FullName
kopyayolla = "\\192.0.2.200\D\" & dosyam
ActiveWorkbook.SaveCopyAs kopyayolla
kopyaal = vbNullString
dosyam = vbNullString
kopyayolla = vbNullString
End Sub

 

[Erdem Akdemir]

Merhaba,

Eklentileri çalıştırabilmek için modül içinde kod olması gerekir diye biliyorum. Sayfa olaylarına yazdığınız bir kodu herhangi bir tuşa yada nesneye atayamazsınız.

 

[webuzmani]

Merhaba,

Eklentileri çalıştırabilmek için modül içinde kod olması gerekir diye biliyorum. Sayfa olaylarına yazdığınız bir kodu herhangi bir tuşa yada nesneye atayamazsınız.

Modül içine yazınca çalışmıyor. çalışacak şekilde kodu nasıl düzenleyebiliriz.

 

[Erdem Akdemir]

Merhaba,

Sayfa olayını modüle kopyalarsanız çalışmaz.Aşağıdaki gibi modülde deneyin.

Sub Auto_Close()
Dim kopyaal As String, kopyayolla As String, dosyam As String
dosyam = ActiveWorkbook.Name
kopyaal = ActiveWorkbook.FullName
kopyayolla = "\\192.0.2.200\D\" & dosyam
ActiveWorkbook.SaveCopyAs kopyayolla
kopyaal = vbNullString
dosyam = vbNullString
kopyayolla = vbNullString
End Sub

 

[webuzmani]

Merhaba,

Sayfa olayını modüle kopyalarsanız çalışmaz.Aşağıdaki gibi modülde deneyin.

Sub Auto_Close()
Dim kopyaal As String, kopyayolla As String, dosyam As String
dosyam = ActiveWorkbook.Name
kopyaal = ActiveWorkbook.FullName
kopyayolla = "\\192.0.2.200\D\" & dosyam
ActiveWorkbook.SaveCopyAs kopyayolla
kopyaal = vbNullString
dosyam = vbNullString
kopyayolla = vbNullString
End Sub

Teşekkürler Kuvari çalışıyor. ancak dosyadan çıkınca kayıt yapıyor
ben kaydet dediğimde çalışmasını istiyorum.

 

[sametguler]

Bir butana aşağıdaki kodları ekleyiniz?

Sub Makro1()
Dim kopyaal As String, kopyayolla As String, dosyam As String
dosyam = ActiveWorkbook.Name
kopyaal = ActiveWorkbook.FullName
kopyayolla = "\\192.0.2.200\D\" & dosyam
ActiveWorkbook.SaveCopyAs kopyayolla
kopyaal = vbNullString
dosyam = vbNullString
kopyayolla = vbNullString
End Sub

 

[webuzmani]

Bir butana aşağıdaki kodları ekleyiniz?

Sub Makro1()
Dim kopyaal As String, kopyayolla As String, dosyam As String
dosyam = ActiveWorkbook.Name
kopyaal = ActiveWorkbook.FullName
kopyayolla = "\\192.0.2.200\D\" & dosyam
ActiveWorkbook.SaveCopyAs kopyayolla
kopyaal = vbNullString
dosyam = vbNullString
kopyayolla = vbNullString
End Sub

Butona değil. Kaydet (CTRL + S) dediğimde işlem yapmasını istiyorum.

 

[Erdem Akdemir]

Eklenti ile sayfa olayına kod yazdırma karmaşık bir işlem ve forumda daha öncede pek işlendiğini görmedim. Hiç bu işlerle uğraşmayın, araç çubuğuna tuş ekleyip eklentide ki makroyu ona atayın.Kaydet yerine tuşa basarsınız.

 

[webuzmani]

konuyu tam olarak çözmüş değiliz fikirleri olan arkadaşlarımızdan destek bekliyorum.

 

[Emir Hüseyin Çoban]

Butona değil. Kaydet (CTRL + S) dediğimde işlem yapmasını istiyorum.

. . .

Kodları modüle yazdıktan sonra.
Excel tablonuza geçin
Görünüm > Makrolar > Makroları Görüntüle >
Açılan ekrandan makronuzu seçin > Seçenekler >
Kısayol tuşu olarak Ctrl + S tanımlayıp > kaydedin.

. . .

 

[webuzmani]

. . .

Kodları modüle yazdıktan sonra.
Excel tablonuza geçin
Görünüm > Makrolar > Makroları Görüntüle >
Açılan ekrandan makronuzu seçin > Seçenekler >
Kısayol tuşu olarak Ctrl + S tanımlayıp > kaydedin.

. . .

Yardımınız için çok teşekkür ederim Hüseyin bey
Bu kodu eklenti haline çevirebilir miyiz? Birde saatte bir defa kendini çalıştıracak şekilde kodu nasıl düzenleyebiliriz.