Bir sayfadaki bilgileri başka sayfaya yatay olarak Kaydetmek

[yenilik025]

Merhabalar

Sayfa 1 de girilen verileri sayfa 2'ye yatay olarak 1 er artırarak nasıl kaydedebiliriz.

Yardımcı olursanız çok sevineceğim.

 

[Orion1]

Buyurun.

Sub yapistir()
Dim sat As Long
sat = Sheets("Sayfa2").Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("Sayfa1").Select
    Range("D3:D24").Select
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("A" & sat).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Sayfa1").Select
    Range("G3:G24").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("W" & sat).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=True
End Sub

 

[yenilik025]

Hocam çok teşekkür ederim. Aradığım bu idi user form olmadan direk sayfadan başka sayfaya kayıt gerçekten bilgisayarım işte olduğundan yeni cevap yazabiliyorum anket sorularına cevap olarak kullanacağım. Mükemmel olmuş.
sadece sonuna şunu ekledim.

Sheets("Sayfa2").Range("A2").Select

Sheets("Sayfa1").Select
[D324].Clear
[G3:G24].Clear


Çok teşekkür ederim.

 

[Orion1]

Bu kodları makro kaydet metodu ile aldım.
Sizde makro kaydet yöntemi ile kolaylıkla yeni makrolar oluşturabilirsiniz.
Forumda makro kaydet diye gelişmiş arama yaparsanız,sanırım bu konuda bilgiler bulursunuz.Kolay gelsin.