Gün değiştikçe Kopyalama yapılan yer değişecek ?

[feratlar]

1 - Ana bir veri giriş sayfası oluşturacağım
2 - Bu veri giriş sayfasında bir sablon olacak aynı sablon makronun kopyalama yapacağı sheet te de olacak.
3- Veri giriş sayfasındaki tarihi değiştirdikçe makro kopyalama yapacağı sayfada seçilen tarihe değerleri kopyalayacak.
4- bu kopyalama işlemini yapan makro bu işlemi yavaş yavaş yapacak diğer kullanıcılarda nasıl işlediğini görebilsin diye.


Mümkün müdür ?
Teşekkür ederim.

 

[veyselemre]

işlemlerin arasına boş döngü koyabilirsin
for x=1 to 500:next
gibi

 

[feratlar]

Range("E3:E126").Select
Selection.COPY
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
End Sub

hocam olay bu benım bu ıslemı yaparken yavaslatmam lazım kullananalr grsun dıye burada yardımcı olursan sevinirim.

 

[veyselemre]

[vb:1:396def9972]Range("E3:E126").Select
Selection.COPY
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
for x=1 to 500:next ' şeklide dene 500 rakamını isteğine göre artır veya azalt
Range("C2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
End Sub[/vb:1:396def9972]

 

[feratlar]

yavaslamadı acaba sebebı copyalanacak hucreye aralık vermemden mı kaynaklanıyor

 

[veyselemre]

şöyle dene şimdiki makinalar çık hızlı

Range("E3:E126").Select
Selection.Copy
For x = 1 To 9000000: Next
Sheets("sayfa2").Select
For x = 1 To 9000000: Next ' şeklide dene 500 rakamını isteğine göre artır veya azalt
Range("C2").Select
For x = 1 To 9000000: Next
ActiveSheet.Paste
For x = 1 To 9000000: Next
Application.CutCopyMode = False
For x = 1 To 9000000: Next
Sheets("Sayfa1").Select

 

[feratlar]

PEKI deneyceğim yukarıda belirttiğim konuyla ilgili yardımcı olabilirmisiniz ?

 

[feratlar]

Yardım edecekler için su anda kullandığım makronun kodunu eklıyorum.
İstediğim bu mevcut koda ilave olarak "Sayfa1" sayfasının B1 Nolu hücresinde kullanıcı tarafından değiştirilecek olan tarihle
"Bilgileri Kaydediyoruz" sayfasındaki C1 den baslayıp AG1 e kadar devam eden satırdakı tarihleri karsılastırıp "Sayfa1" de B1 nolu hücresinde kullanıcı tarafından manuel değiştirilen tarihe göre kayıt yapmasını sağlayacak kod.( yani "Sayfa1" de B1 nolu hücresinde tarih 01/08/05 ise girilen verileri bilgileri kaydediyoruz sayfasınındakı 01/08/05 hücresine kopyalayacak)

Sub copy()

Range("E3").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E4").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C3").Select
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E5").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E6").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E7").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E8").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E9").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E10").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C9").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E11").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E12").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E13").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E14").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C13").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E15").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C14").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E16").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C15").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E17").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C16").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E18").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C17").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E19").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C18").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E20").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C19").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E21").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C20").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E22").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C21").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E24").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C23").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E23").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C22").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("E25").Select
Selection.copy
Sheets("BİLGİLERİ KAYDEDİYORUZ").Select
Range("C24").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub