Makrolu sayfayı makroyla kopyalama sorunu

[cost27]

merhaba değerli hocalarım ben excelde bir gelir gider programı yaptım bir yerde takıldım yalnız takıldığım bölümü boş bir excel dosyasına ekleyip ekte sunuyorum şimdi fiş 1 deki fatura kese tıklayınca fişteki verileri faturaya kopyalıyor sayfa 3 deki fiş aç butonuna basıncada fiş sayfasını makrosuyla beraber het tıklamamda yani bir fiş kopyalamasını istiyorum ama tıkladığımda fiş dosyasındaki butondaki makroyu iptal ediyor hem yeni fişte hemde kopyalanan fişteki butonlar boşa çıkıyor bunun nedenini siz değerli hocalarımdan öğrene bilirmiyim acaba nerde hata yapıyorum şimdiden teşekkür ederim kolay gelsin.

 

[cost27]

Düzeltme

Pardon bu ikinci dosyayı inceleyiniz size zahmet ilki hatalıydı

 

[raburabu]

Merhaba
her tıkladığında yeni bir sayfası açıyor.

 

[cost27]

Hocam çok teşekkür ederim size sorunumu hallettiniz ama bu sorunun sebebi nedir zahmet olmazsa bana açıklayabilirmisiniz

 

[cost27]

hocam kusura bakmayın zamanınızı alıyorumda birde ben fatura1 ve fiş sayfasına şifreli koruma koyucam formüller görünmez olacak bunu yaptığım zaman
Run-time error '1004':
değiştirmeye çalıştığınız hücre yada grafik korumalı ve bu nedenle salt okunur.

korumalı bir hücreyi yada grafiği değiştirmek için önce sayfa korumasını kaldır komutunu (incele sekmesi değişiklikler grubu)kullanarak korumayı kaldırın bir parola sorulabilir
uyarısı çıkıyor acaba bu uyarıyı nasıl düzeltebilirim yardımcı olursanız sevinirim tşk.

 

[cost27]

DEĞERLİ HOCALARIM İLKSORUNUMU RABURABU ARKADAŞIM SAOLSUN HALLETTİ YALNIZ Bİ SORUNUM DAHA VAR BEN EKTE DOSYAYI TEKRAR VERİYORUM ŞİMDİ BURDA BEN FİŞ SAYFASINA ŞİFRELİ KORUMA KOYDUM FORMÜLLER VS. GÖZÜKMESİN İSTİYORUM BURDA MAKROYU ÇALIŞTIRDIĞIMDA SAYFANIN ŞİFRESİNİ AÇIYOR MAKRO ÇALIŞIYOR AMA İŞLEM BİTİNCE FİŞ SAYFASINDA ŞİFREYLE GERİ KAPATMIYOR BUNU KAPATMAMA SEBEBİDE TAHMİNİMCE EN SON İŞLEM BİTTİĞİNDE EKRAN FATURA KISMINDA KALDIĞINDAN OLABİLİR KODU DEVAM ETTİRİP TEKRAR FİŞ SAYFASINA GEL KİLİTLE DESEM BU SEFER ATIYORUM SADECE FİŞ1 DEKİ SAYFAYI KİLİTLER HER SEFERİNDE FARKLI BİR SAYFA AÇILACAĞI İÇİN BUNU YENİ SAYFALARA DEİŞKEN OLARAK NASIL ATAYABİLİRİZ ACABA BU KONUDA LÜTFEN BANA YARDIMCI OLURSANIZA ÇOK SEVİNİRİM KODU AŞAĞIDA VERİYORUM.

Sub FATURACOP()
'
' FATURACOP Makro
'

'
Range("J7").Select
ActiveSheet.Unprotect "123"
ActiveCell.FormulaR1C1 = "DİKKAT FATURA KESİLDİ"
Range("C99").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.SmallScroll Down:=18
Range("AL22:AS42").Select
Selection.Copy
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-15
Sheets("FATURA (1)").Select
Range("E22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=18
Application.CutCopyMode = False
ActiveSheet.Protect "123"

End Sub

 

[cost27]

Arkadaşlar yokmu bana yardımcı olacak kimse lütfen acil yardımm!!..