veri aktarma ile ilgili(sayfadan başka sayfaya)

[mustafa7691]

sn dostlar forumdan şimdiye dek çok faydalandım ve herkese şimdiden teşekkürlerimi sunmakla başlamak isterim.Öncelikle forumda çok arama yaptım ve genelde çeşitli koşullara bağlı yada kısa tabirle biraz komplike olan sayfadan başka sayfaya aktarma çalışmalarını buldum ama ben anlamadığımdan kendime uyarlayamadım.Benim başitçe aylık bir aşı kayıt sayfam var ve her ay kaydettiğim aşıları data sayfa olarak kullanacağım diğer sayfaya bir butonla aktarmak ve kayıttaki verileri silmek istiyorum.data sayfası sürekli aktarılan bilgileri tabi altalta boş satırdan kaydedecek.yani yıllık olarak kullanılacak.mümkün ise ve vakti olan dostlar yardımcı olursa çok sevinirim.teşekkür ve saygılarımla.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub aktar()
Dim a, sat1 As Long, sat2 As Long
Sheets("Sayfa1").Select
sat1 = Cells(65536, "B").End(xlUp).Row
sat2 = Sheets("Data").Cells(65536, "B").End(xlUp).Row + 1
If sat1 < 5 Then Exit Sub
Application.ScreenUpdating = False
a = Range(Cells(5, "B"), Cells(sat1, "Q"))
Sheets("Data").Cells(sat2, "B").Resize(sat1 - 4, 16) = a
Range("A5:M65536").ClearContents
Application.ScreenUpdating = True
MsgBox "Aktarma İşlemi Tamamlandı..!!", vbOKOnly + vbInformation, "KAYIT"
End Sub

 

[mustafa7691]

sn orion2 elinize sağlık teşekkürler.yalnız sanırım küçük bir sorun var.yeni bir kayıt yapıp aktarmak istediğimde eski aktardıklarıyla arasında 3-5 satır boşluk bırakıyor.bu formda normalde ben her ay değişik zamanlarda yaptığım aşıları kayıt sayfasından data sayfasına aktararak yıllık bir veri sayfası oluşturmak istiyorum takip açısından.aslen aktarma işlemi şu an gerçekleşiyor.ancak dediğim gibi her yeni kayıt aktarmada eski kayıtlarla arasında boş satır bırakıyor.çözebilirsek sevinirim.Eğer tabi vaktiniz varsa .yoksa bunada şükür işimi görür.teşekkürlerimi sunuyorum.saygılarımla

 

[mustafa7691]

sn orıon2 sorun çözüldü.kod yazamıyorum ama kodlarınızda biraz oynadım affınıza sığınarak sorun halloldu teşekkür diyorum saygılarımla