Veri Sayfasındaki Kayıtlardan Bazılarının aktarılması

[htsumer]

Kütük adlı bir sayfam var ve bu sayfaya makro ile kayıt edilerek girdi sağlanıyor.
Bu sayfadaki veriler çok fazla olduğundan yazıcıda gereksiz verileri almamak için veri sayfasındaki BAZI verileri "üye döküm" sayfasına Seçilmiş olanları aktarmak istiyorum.
Üye Döküme alınacak verilerle daha iyi çıktı alabilmek için..

kütük sayfasında 18 sütun bulunuyor.Üye Döküm sayfasına bu sütün ve verilerden 11 sütunu aktarmak istiyorum.

Örnek Dosya ekledim..Makro olarak mümkünse;
(Not:Üye Döküm sayfasına makro ile atama yaptığımdan güncellemelerde bu sayfaya (üye döküm) ayrı bir güncelleme yapmak gerekiyor..Bu nedenle veri aktarı kulanacağım...)

Tşk..

 

[halit3]

Kütük adlı bir sayfam var ve bu sayfaya makro ile kayıt edilerek girdi sağlanıyor.
Bu sayfadaki veriler çok fazla olduğundan yazıcıda gereksiz verileri almamak için veri sayfasındaki BAZI verileri "üye döküm" sayfasına Seçilmiş olanları aktarmak istiyorum.
Üye Döküme alınacak verilerle daha iyi çıktı alabilmek için..

kütük sayfasında 18 sütun bulunuyor.Üye Döküm sayfasına bu sütün ve verilerden 11 sütunu aktarmak istiyorum.

Örnek Dosya ekledim..Makro olarak mümkünse;
(Not:Üye Döküm sayfasına makro ile atama yaptığımdan güncellemelerde bu sayfaya (üye döküm) ayrı bir güncelleme yapmak gerekiyor..Bu nedenle veri aktarı kulanacağım...)

Tşk..

ekli dosyay bir bakınız.

Private Sub CommandButton1_Click()
Worksheets("üye döküm").Range("A2:K5000").ClearContents
sat = Worksheets("üye döküm").[a65536].End(3).Row + 1
For i = 2 To Worksheets("kütük").[a65536].End(3).Row
For j = 1 To 8
Worksheets("üye döküm").Cells(sat, j).Value = Worksheets("kütük").Cells(i, j).Value
Next
Worksheets("üye döküm").Cells(sat, 9).Value = Worksheets("kütük").Cells(i, 15).Value
Worksheets("üye döküm").Cells(sat, 10).Value = Worksheets("kütük").Cells(i, 16).Value
Worksheets("üye döküm").Cells(sat, 11).Value = Worksheets("kütük").Cells(i, 17).Value
sat = sat + 1
Next
MsgBox "işlem tamam"
End Sub

 

[htsumer]

Çok teşekkür ederim Halit bey...Elinize sağlık istediğim gibi..
Kolay gelsin..

 

[halit3]

Çok teşekkür ederim Halit bey...Elinize sağlık istediğim gibi..
Kolay gelsin..

iyi çalışmalar