geçici kayıt yaptığım bir sayfadaki verileri kalıcı kayıt yapacağım sayfanın altına

[millis]

Sayın üstadlar ve arkadaşlar; geçici kayıt yaptığım ber sayfardaki verileri kalıcı kayıt yapacağım sayfanın en son verilerin altına devam edecek şekilde makro kollanarak ve bu makroyu bir CommandButton kullanarak kayıt yapmak istiyorum. Bununla ilgili yardımlarınızı bekliyorum. Açıklayıcı örnek dosya ektedir.

 

[N.Ziya Hiçdurmaz]

yanıt

Bir örnek yaptım bakınız.

Sub aktar()
Set s1 = Sheets("ANLIKSATIS")
Set s2 = Sheets("SATIS")
For sut = 1 To s1.[b65536].End(3).Row
s1.Range("b" & sut + 2).EntireRow.Copy
s = WorksheetFunction.CountA(s2.[a1:a65536])
s2.Range("a" & s + 1).PasteSpecial
Next
Application.CutCopyMode = False
End Sub

 

[altanson]

Sayın V.Basic For Applications

aktarma işleminin her tekrarlandığında ilk boş olan satıra eklenmesini bu kod da nasıl sağladınız.

 

[kulomer46]

Bende hazır dosya olarak gönderiyorum, inceleyiniz..

 

[N.Ziya Hiçdurmaz]

Sayın kulomer46 Kod zaten dediğiniz gibi çalışmakta.

 

[kulomer46]

Sorunuza V. Basic For Application kodlu arkadaşın müsadesiyle ben cevap vereyim

s = WorksheetFunction.CountA(s2.[a1:a65536]) ' Bu kodla satış sayfasında A sütunundaki dolu hücre sayısını buluyoruz.

s2.Range("a" & s + 1).PasteSpecial ' Buradada (A sütununda etiketler bir satırlık yer kapladığı için) ekleyeceğimiz satır için s + 1 diyoruz.
İyi Çalışmalar..

 

[altanson]

Sorunuza V. Basic For Application kodlu arkadaşın müsadesiyle ben cevap vereyim

s = WorksheetFunction.CountA(s2.[a1:a65536]) ' Bu kodla satış sayfasında A sütunundaki dolu hücre sayısını buluyoruz.

s2.Range("a" & s + 1).PasteSpecial ' Buradada (A sütununda etiketler bir satırlık yer kapladığı için) ekleyeceğimiz satır için s + 1 diyoruz.
İyi Çalışmalar..

çok teşekkürler elinize sağlık.

 

[kulomer46]

Sayın V. Basic For Application
Gönderdiğiniz dosyayı ben dosyayı gönderdikten sonra farkettim. Artı olarak sizin makro kodu Anlıksatış sayfasındaki verileri olduğu gibi aktarıyor oysa satış sayfasına tüm sütunları değil bazı sütunları aktarmak gerekiyor.

 

[kulomer46]

Ben teşekkür ederim, faydalı olduysak ne mutlu..

 

[faruk66]

Sayın V.Basic For Applications

aktarma işleminin her tekrarlandığında ilk boş olan satıra eklenmesini bu kod da nasıl sağladınız.

Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop