Bilgi Aktarma

[ozcanya]

Arkadaşlar eklediğim dosyayı sayın excel üstatları tarafından yapıldı ama benim yaapmak istediğim bilgileri toptan göndermek.Eklediğim dosyada bilgileri tek tek gönderiyor.Çalışırken bazen göndermeyi unutuyorum.O yüzden toptan göndermek istiyorum
örn:beş tane kayıt yaptım Beş tanesini
veya iki tane kayıt yaptım iki tanesini

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub ARŞİVE_AKTAR()
Set s1 = Sheets("çalışma sayfası")
Set s2 = Sheets("arşiv")
Application.ScreenUpdating = False
s2.Range("B7:K65536").ClearContents
sat = s1.Cells(65536, "B").End(xlUp).Row
adr = Range(Cells(7, "A"), Cells(sat, "K")).Address
s2.Range(adr).Value = s1.Range(adr).Value
Application.ScreenUpdating = True
MsgBox "AKTARMA TAMAMLANDI..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[ozcanya]

teşekkür ederim üstat ama sorun var

Üstat bilgiler arşive gittiğinde daha önceki gönderdiğim verşleri siliyor.oysa altına eklenesi gerekir.yani arşiv oluşacak.
ilk sayfaki bilgiler sadece çıktısı alındıktan sonra silinecek(daha sonraki yeni veri girişi için)

 

[Orion1]

Sizin yolladığınız dosya zaten o işi yapıyordu.Başkada nasıl olur bilemem.

 

[ozcanya]

size teşekkür ederim
ben sadece bu bilgileri yazdıktan sonra toplu veya te tek göndermek istedim(çalışma kolaylığı açısından)teşekkür ederim

 

[Orion1]

Aklıma şöyle bir şey geldi.Bir UserForm hazırlayıp verileri UserForm'dan girmek.
İsterseniz bu şekilde deneyin.