makroyu makro ile değiştirmek nasıl yapılır?

[turan1971]

Bir dosyada makro yapıp 70 adet kullanıcılara dağıtılmıştı... Dosyalar şu anda kullanımda. Ve içlerinde veriler mevcut. Dosyaların güncellenmesi gerekti. Ara bir makro barındıran excel dosyası yaptım ve kullanıcılara gönderdim. Sorun ise o dosyalarda birde sanal klavyem var. Bir userform, sık kullanılan karakterleri oradan yazdırılıyor.
Mesela K butonuna basılınca hücreye K değerini girip 2 hücre sağa kayıyor. Yeni düzende bu 3 sütun kayması gerek...

Formun adı: frmgiris
kod ise şu...

Private Sub btnK_Click()
On Error Resume Next
Activecell.Value = "K"
Activecell.Offset(0, 2).Select
End Sub


Şimdi kullanıcılardaki bu kodu nasıl değiştirebilirim. Yazacağım kod ne olmalı?

 

[halit3]

ekli dosyada komut düğmesine tıkladığınız zaman açılan userfom1 de 4 sıradaki makronuza ait kodu değiştirecek sizin kodunuz ayrı satırda ise kendiniz satır numarasını değiştiriniz.

klasörün içindeki bütün dosyalara ait kodları değiştiriyor

 

[turan1971]

ekli dosyada komut düğmesine tıkladığınız zaman açılan userfom1 de 4 sıradaki makronuza ait kodu değiştirecek sizin kodunuz ayrı satırda ise kendiniz satır numarasını değiştiriniz.

klasörün içindeki bütün dosyalara ait kodları değiştiriyor

Çok teşekkür ederim...

Bu iki satır çoookkk işime yaradııı

ActiveWorkbook.VBProject.VBComponents("frmgiris").CodeModule.DeleteLines 23
ActiveWorkbook.VBProject.VBComponents("frmgiris").CodeModule.InsertLines 23, kod

İyi çalışmalar...

 

[halit3]

Çok teşekkür ederim...

Bu iki satır çoookkk işime yaradııı

ActiveWorkbook.VBProject.VBComponents("frmgiris").CodeModule.DeleteLines 23
ActiveWorkbook.VBProject.VBComponents("frmgiris").CodeModule.InsertLines 23, kod

İyi çalışmalar...

iyi çalışmalar

 

[turan1971]

kullanıcı bilgisayarında hata

Merhaba arkadaşlar...
Dosyayı deneme amaçlı bir arkadaşıma gönderdim. Fakat benim bilgisayarımda çalışan kod, diğer kullanıcının ekranında çalışmadı...

Hata şudur:
Run-time error '1004':
Visual Basic Projesi'ne programlı olarak erişim güvenli değil
...
Debug dendiğinde hata:
ActiveWorkbook.VBProject.VBComponents("frmgiris").CodeModule.ReplaceLine 23, kod1
satırında durmaktadır...
...
Kullanıcılar nasıl bir ayar yapması gerekirki ilgili program işlemin güvenli olduğunu anlasın?

 

[halit3]

referanslarınızı kontrol ediniz çalışan dosyanın referanslarıyla aynı olması lazım.

 

[turan1971]

referanslarınızı kontrol ediniz çalışan dosyanın referanslarıyla aynı olması lazım.

Merhaba Hocam,
Neden hata verdiğini buldum. Excel 2007 kullanıyorum.
Excel seçenekleri >> Güven merezi >> Güven Merkezi ayarları >> Makro ayarları
bölümünde "-VBA projesi nesne modeli erişimine güven" kutucuğu seçili değilmiş arkadaşta. O kutucuğu seçili durumuna getirince makroyla makroyu değiştirme başarıyla sonuçlandı...
Tekrar ellerinize sağlık. Allah razı olsun...
Herkese iyi çalışmalar...

 

[halit3]

Merhaba Hocam,
Neden hata verdiğini buldum. Excel 2007 kullanıyorum.
Excel seçenekleri >> Güven merezi >> Güven Merkezi ayarları >> Makro ayarları
bölümünde "-VBA projesi nesne modeli erişimine güven" kutucuğu seçili değilmiş arkadaşta. O kutucuğu seçili durumuna getirince makroyla makroyu değiştirme başarıyla sonuçlandı...
Tekrar ellerinize sağlık. Allah razı olsun...
Herkese iyi çalışmalar...

sorununuzu kendiniz çözmüşsünüz.
iyi çalışmalar