yazdıklarımı başka bir yere öncekileri silmeden kaydetme

[flash1907]

arkadaşlar selam. şöyle bir şey istiyorum mümkünmü bilmiyorum ama.

mesala;
a1, a2, a3 hücresine birşeler yazdım(ad,soyad, yaş) tuşa bastığımda bunu başka bir sayfada sütün değilde satır olarak (a1,b1,c1) olarak kaydetsin. daha sonra sayfa1 deki verileri değiştirdiğimde safya2 dekiler değişmesin tuşa bastığımda yeni verileri alttaki satıra kaydetsin bu şekilde ilk sayfaya 10 defa veri girdiğimde ikinci sayfada on satır veriler kaydedilmiş olsun. inşallah anlatabilmişimdir.

 

[sbayyigit]

bu kod ile sayfa1 deki abc sütunlarının 1,2,3 satırlarını kopyalayıp sayfa2 nin aynı bölgelerini satırları sütunlara çevirerek yapıştırır. sanırım bunu baz alarak işini görebilirsin. kolay gelsin

Sub cevir()
Sheets("Sayfa1").Select
Range("A1:C3").Select
Selection.Copy
Sheets("Sayfa2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

 

[flash1907]

cevap için teşekkürler. ama şuan deneyemiyorum. yalnız kod bana az gibi geldi.
benim sayfa1 deki üç hücrenin içerisini değiştirip kaydet dediğimde sayfa2 ye satır ekleyerek alt alta kaydetmesi yani

yani a1,a2,a3 hücrelirinin içine ne yazarsam kaydet dediğimde sayfa2 ye yan yana kaydetmesi daha sonra a1,a2,a3 içine başka birşey yazdığımda kaydet düğmesine tekrar bastığımda bir alt satıra yazdıklarımı kaydetmesi. şu an excell yüklü olmadığından deneyemiyorum.