Soru Kopyalama Macrosu

[67kanka67]

Sub musterikayit()
    Range("A14:E14").Select
    Selection.Copy
    Sheets("STOK HAREKETİ").Select
Range("A" & Range("A65536").End(3).Row + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Veri Girişi").Select
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

Bu macroyu kullanıyorum veri girişinden sorunsuz şekilde STOK HAREKETİ bölmesine sorunsuz kopyalama işlemini yapıyor. Lakin ben veri girişi bölümünden baska bir veri çektirdiğimde o satırda değişin bilgileri STOK hareketinin 2.ci satırına yapıştırarak ilerlemesini istiyorum.

Sürekli üst üste yapıştırıyor. nerde hata yaptık anlamadım

 

[muygun]

Merhaba;
Boş bir modüle;

Sub musterikayit()
Range("A14:E14").Select
Selection.Copy
Sheets("STOK HAREKETİ").Select
sonsatir = Sheets("STOK HAREKETİ").Range("A65536").End(xlUp).Row + 1
Range("A" & sonsatir).Select
ActiveSheet.Paste
Sheets("Sayfa1").Select
Range("B19").Select
Application.CutCopyMode = False
Range("A14").Select
End Sub

Kodlarını yerleştirerek deneyin.
İyi çalışmalar.

 

[67kanka67]

Merhaba;
Boş bir modüle;

Sub musterikayit()
Range("A14:E14").Select
Selection.Copy
Sheets("STOK HAREKETİ").Select
sonsatir = Sheets("STOK HAREKETİ").Range("A65536").End(xlUp).Row + 1
Range("A" & sonsatir).Select
ActiveSheet.Paste
Sheets("Sayfa1").Select
Range("B19").Select
Application.CutCopyMode = False
Range("A14").Select
End Sub

Kodlarını yerleştirerek deneyin.
İyi çalışmalar.

Yardimin icin tesekkurler ama birsey degismedi alt alta kayit etmiyor

 

[muygun]

Bende sorun gözükmüyor.

 

[67kanka67]

Bende sorun gözükmüyor.

Simdi oldu diger sayfada ustte basliklar vardi mactoda a yazdigindan gormuyormus. Ust satiri sildim duzeldi