Soru Sayfadan sayfaya veri aktarma / kopyalama

[Korhan Ayhan]

Forumda Userform yönetimi uygulamaları var. Bu tarz işleri kendiniz yapmalısınız. Benim buna ayıracak maalesef vaktim yok.

Linklerden uygulamalara erişebilirsiniz.

Userform ve Nesnelere Yönelik uygulamalar

Bu başlıkta, userform ve nesnelerinin özelliklerini değiştirme, yeni özellikler ilave etme gibi nesneye yönelik uygulamaları bulabilirsiniz.

www.excel.web.tr

Veri Yönetimi Uygulamaları

Bu başlıkta, Veri kaydetme, değiştirme, silme gibi özellikleri içeren veri yönetimi uygulamalarını bulabilirsiniz.

www.excel.web.tr

 

[reosman]

Öğrenince elbet yapacağız hocam. Eywallah.

 

[denese]

Korhan Bey, kod harika çalışıyor, çok fayda sağladı bana. Teşekkür etmek istedim. Kolay gelsin.

 

[denese]

Korhan Bey,

Kodu kendime uyarlamaya çalışıyorum fakat bir yerde takılıyorum. Aktarımı bir türlü düzgün yapamadım. "Listele" sayfasındaki verileri, "Arsiv" sayfasındaki şekilde aktarmaya çalışıyorum. Rica etsem yardımcı olabilir misiniz? Dosya ekte yer alıyor.

 

[denese]

Korhan Bey,

Kodu kendime uyarlamaya çalışıyorum fakat bir yerde takılıyorum. Aktarımı bir türlü düzgün yapamadım. "Listele" sayfasındaki verileri, "Arsiv" sayfasındaki şekilde aktarmaya çalışıyorum. Rica etsem yardımcı olabilir misiniz? Dosya ekte yer alıyor.

Destek olabilecek var mı?

 

[Korhan Ayhan]

Merhaba,

Buradaki aktarımın detayı nedir?

 

[denese]

Merhaba Korhan Bey,

Forumda aşağıdaki linkte, 24 numaralı mesaj ekinde, aradığım şekilde bir kod buldum ve kendime uyarladım.
https://www.excel.web.tr/threads/verilerin-alt-alta-ve-huecre-bicimlerini-koruyarak-aktarma.211641/#post-1186484

Kod aşağıda yer alıyor.

Sub Aktar()

Set S1 = ThisWorkbook.Worksheets("Cevrim")
Set S2 = ThisWorkbook.Worksheets("Arsiv")

If WorksheetFunction.CountIf(S2.Range("H:H"), S1.Range("T5")) > 0 Then
    For j = 1 To WorksheetFunction.CountIf(S2.Range("H:H"), S1.Range("T5"))
    S2.Rows(WorksheetFunction.Match(S1.Range("T5").Value, S2.Range("H:H"), 0)).Delete Shift:=xlUp
    Next j
End If

ss = WorksheetFunction.Max(S2.Range("H" & Rows.Count).End(xlUp).Row + 1)

For i = 5 To 10000
    For Y = 1 To 12
    If S1.Cells(i, Y) = "" Then GoTo atla
S2.Cells(ss, Y) = S1.Cells(i, Y)
atla:
    Next Y
    ss = ss + 1
Next i

End Sub

Yapmak istediğim;

"Cevrim" sayfasında yer alan her satırdaki veriyi, tablo aralığına göre "Arsiv" sayfasına eklemek istiyorum. Amacım, "Cevrim" sayfasında arşive eklemek istediğim veriler (satır) "Arsiv" sayfasında varsa eklemesin, olmayan satırlar eklensin.

Sizin kodlamanızı, kendi çalışmama uyarlamak istedim fakat yapamadım.