İki farklı sayfadaki veriyi üçüncü sayfaya kaydetmek istiyorum.

[power468]

UserForm' da İki farklı sayfadaki veriyi üçüncü sayfada kayıt sırasına göre birleştirmek istiyorum yardımcı olabilir misiniz?

Hata indir

Hata

www.dosyaupload.com

 

[PLİNT]

Merhaba
Ek dosyayı denermisiniz?
https://www.dosyaupload.com/b8cj

Private Sub CommandButton2_Click()
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
Dim x As Long, xx As Long, xc As Long
Set s1 = Sheets("Cezhal")
Set s2 = Sheets("İdPar")
Set s3 = Sheets("Veri")
x = s1.Cells(Rows.Count, "A").End(3).Row
xx = s2.Cells(Rows.Count, "A").End(3).Row
xc = s3.Cells(Rows.Count, "A").End(3).Row
s1.Range("A2:D" & x).Copy s3.Cells(xc + 1, 1)
xc = s3.Cells(Rows.Count, "A").End(3).Row
s2.Range("A2:D" & x).Copy s3.Cells(xc + 1, 1)
xc = s3.Cells(Rows.Count, "A").End(3).Row
s3.Range("A2:D" & xc).Sort Key1:=s3.Cells(2, "C"), Order1:=xlAscending
s3.Cells(2, 1) = 1
s3.Cells(2, 1).AutoFill Destination:=s3.Range("A2:A" & xc), Type:=xlFillSeries
End Sub

 

[power468]

Baktığınız için teşekkürler.
Yalnız butonun üzerine her tıkladığımızda bir önceki yaptığı kayıtları tekrardan çoğaltarak yeniden kopyalıyor buna bir bakabilir misiniz.
Birde her iki sayfadaki UserForm' da bulunan ''Kaydet'' butonuna entegre edebilir miyiz kodları

 

[burhan55]

Bende aynı sorunu yaşadım. Çözümü olan var mı?