sayfalar arası kontrollü bilgi aktarımı

[felat]

aşağıda yine sizlerden yardım alarak yaptığım bir sayfa var
yardımlarınızı bekliyorum

burada aşağıdaki dosyaile ilgili ön bilgi versem çok yer kaplar

çok teşekkür ederim şimdiden

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:9cdf96d345]Sub kopyala()
Set s1 = Sheets("saklanan sayfa")
Rows("4:5").Copy
sonsat = s1.[a65536].End(3).Row + 1
s1.Rows(sonsat).PasteSpecial
Application.CutCopyMode = False
Rows("4:5").ClearContents
End Sub
[/vb:1:9cdf96d345]

 

[felat]

çok teşekkür ederim. bilgileriniz çok işime yarıyor. her defasında üzerinde düşünüp yeni şeyler buluyorum... yakında geliştirmeye çalıştığım dosyayı burada paylaşacağım...çünkü sizler de esirgemiyorsunuz...

kolay gelsin. saygılar

 

[felat]

sayın leventm

girilen sayfada 4. satırdan kopyalıyor. ama saklanan sayfada direkt 1. satıra kopyalıyor. yani sütunların açıklamalarını kaybediyorum. kod üzerinde birkaç değişiklik denedim ama başaramadım..