Soru Kopyalama Macrosu

67kanka67

Altın Üye
Katılım
30 Aralık 2020
Mesajlar
18
Excel Vers. ve Dili
Excel 2016 - Türkçe
Altın Üyelik Bitiş Tarihi
24-08-2025
Kod:
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

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,181
Excel Vers. ve Dili
Excel-2003 Türkçe
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

Altın Üye
Katılım
30 Aralık 2020
Mesajlar
18
Excel Vers. ve Dili
Excel 2016 - Türkçe
Altın Üyelik Bitiş Tarihi
24-08-2025
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
 

67kanka67

Altın Üye
Katılım
30 Aralık 2020
Mesajlar
18
Excel Vers. ve Dili
Excel 2016 - Türkçe
Altın Üyelik Bitiş Tarihi
24-08-2025
Bende sorun gözükmüyor.
Simdi oldu diger sayfada ustte basliklar vardi mactoda a yazdigindan gormuyormus. Ust satiri sildim duzeldi
 
Üst