Veri Kaydetme

[opossum]

Arkadaşlar merhaba;
5 sütunlu excel dosyasına verileri girip kaydetmek istediğimde, yeni girilen verilerin sayfa 2deki diğer verilerin altına kayıt olması ayrıca bu yeni verilerin farklı bir sayfada kaydedilmesini istiyorum.
iyi çalışmalar.

 

[uzmanamele]

merhaba

bu kodlar işinizi görür mü?

Sub sayfalaradagit()
    tvss = Sheets("TOPLAM VERİ").Range("a65536").End(3).Row
Sheets("VERİ GİRİŞİ").Range("A2:E2").Copy Sheets("TOPLAM VERİ").Range("A" & tvss + 1)
    
    Sheets.Add After:=Sheets(Sheets.Count)
    x = Worksheets.Count
   Sheets(Sheets.Count).Name = "VERİ " & x - 2
Sheets("VERİ GİRİŞİ").Range("A1:E2").Copy Sheets(Sheets.Count).Range("A1")

Application.CutCopyMode = False
Sheets("VERİ GİRİŞİ").Range("A2:E2").ClearContents  'opsiyonel satır
End Sub

 

[opossum]

Bu mudur Budur eline sağlık