Yazdırma Alanı

[kemalkazan]

sizlere minnettarım

Sayın ferhat bey,
yazmış olduğunuz şeyler benim gibi bu konuya yeni başlayanlara bir itici güç olacaktır kanaatindeyim.Sizi yanlış anladığım için de özürlerimi lütfen kabul buyurunuz.

İlginize, emeğinize ve ayırdığınız zaman için şükranlarımı arz eder,saygılar sunarım.

 

[kemalkazan]

yazdırma alanı

arkadaşlar,
sorunuma hala cevap alamadım,lütfen bu konuda yardımlarınızı bekliyorum.
teşekkürlerimle

 

[Ferhat Pazarçevirdi]

Kemal bey,

17.mesajınızdaki dosyanın "Sayfa1" adlı sheet'i için yazdığımız kodların diğer sayfalarda da çalışmasını istiyorsanız, alttaki sayfa sekmesinin üzerine gelin, sağ mouse tuşuna basıp, "Taşı veya Kopyala" deyin ve bir kopyasını yaratın. Yeni oluşan sayfadaki buton; bu sayfaya göre otomatikman çalışacaktır.

 

[kemalkazan]

yazdırma alanı

Sayın Ferhat bey,
"bir sayfayı KOPYALAMAK için, Sheets("Sayfa1").Copy After:=Sheets("Sayfa2) veya Before:=Sheets("Sayfa3") kullanılabilir. Sayfayı TAŞIMAK için ise, Sheets("Sayfa1").Move After:=Sheets("Sayfa2") komutlarını kullanabilirsiniz. "
bu alıntıyı sizin mesajın altından aldım.Acaba bu da aynı görevi mi görmektedir.
Verdiğiniz bilgiler için şükranlarımı sunarım.
Saygılarımla

 

[Ferhat Pazarçevirdi]

Evet, aynen öyledir.

Benim size 23.mesajda manuel olarak (elle) yapmanızı tarif ettiğim şeyin, VBA koduna dönüştürülmüş ve otomatize edilmiş halidir.