Bir satırı başka bir sayfaya kopyalama (öncekini ezmeden)

[sacide44]

Değerli arkadaşlar,
Aşağıdaki kod ile, "Giriş Ekranı" isimli sayfadaki bir satırı; "Sayfa1" isimli sayfaya kopyalamak istiyorum. Bunun için bir buton oluşturdum. Ancak, giriş sayfasındaki veriler değiştikçe; yeni bilgiler kopyaladığım sütunun bir alt satırına gelmeli.. Yani, önceki girilen değerleri ezmemesi lazım..
Bunun için aşağıdaki kod'a ne ilave etmem gerektiğini belirtirseniz memnun olurum..
--------------------------------

Sub KOPYALA_MAKRO()
'
' KOPYALA_MAKRO Makro
'

'
Rows("3:3").Select
Selection.Copy
Sheets("Sayfa1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Giriş Ekranı").Select
Application.CutCopyMode = False
End Sub

 

[dEdE]

Merhaba,
Aşağıdaki şekilde dener misiniz?

Sub KOPYALA_MAKRO()
Rows("3:3").Select
Selection.Copy
Sheets("Sayfa1").Select
ss = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(ss, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Giriş Ekranı").Select
Application.CutCopyMode = False
End Sub

 

[sacide44]

Çok teşekkür ederim, oldu..
Elinize sağlık..

 

[sacide44]

Örnek dosya eklenmiştir.

Çok özür dileyerek bir yardım daha talep edebilir miyim?
"Giriş Ekranı" sayfasındaki bilgiler "Sayfa1" isimli sayfaya kopyalandıktan sonra, (formüller aynen kalmak kaydıyla) giriş yapılan satır boşaltılabilir mi? Yani, aslında kopyala değil, kes-yapıştır gibi bir işlem yapmak lazım.. Ancak, mevcut hücrelerdeki formüllerin yerinde kalması gerek..
Şimdiden çok teşekkür ederim..

 

[dEdE]

Merhaba,
Kodunuzu aşağıdaki ile değiştirerek dener misiniz?

Sub KOPYALA_MAKRO()
    ss = Sheets("ARSİV").Cells(Rows.Count, 1).End(3).Row + 1
    Sheets("ARSİV").Rows(ss).Value = Rows(3).Value
    Rows(3).ClearContents
End Sub

 

[sacide44]

Teşekkür..

Tam istediğim gibi oldu, tekrar teşekkür ederim.

 

[slmnkc]

Merhaba,
Kodunuzu aşağıdaki ile değiştirerek dener misiniz?

Sub KOPYALA_MAKRO()
    ss = Sheets("ARSİV").Cells(Rows.Count, 1).End(3).Row + 1
    Sheets("ARSİV").Rows(ss).Value = Rows(3).Value
    Rows(3).ClearContents
End Sub

hocam bunu bir alt satıra değilde 5satır alta aktarabilirmiyiz ne gibi değişiklik yapmak gerekir.

 

[dEdE]

hocam bunu bir alt satıra değilde 5satır alta aktarabilirmiyiz ne gibi değişiklik yapmak gerekir.

Merhaba,
Aktarılan her kayıt beş satır ara ile mi aktarılacak, yoksa baştan beş satır sonra başlayıp yine alt alta mı aktarılacak? Eğer ikincisi ise ilk kayıt kaçıncı satıra yapılacak?

 

[slmnkc]

ikinci seçenek hocam 10. satıra aktasın vesonra 11 12 diye devam edecek

 

[dEdE]

ikinci seçenek hocam 10. satıra aktasın vesonra 11 12 diye devam edecek

Merhaba,
Bu durumda yukarıdaki koda kırmızı satırı eklemek yeterli olacaktır.

Sub KOPYALA_MAKRO()
    ss = Sheets("ARSİV").Cells(Rows.Count, 1).End(3).Row + 1
  [COLOR="Red"]  If ss < 10 Then ss = 10[/COLOR]
    Sheets("ARSİV").Rows(ss).Value = Rows(3).Value
    Rows(3).ClearContents
End Sub

 

[slmnkc]

hocam çalıştıramadım

 

[dEdE]

hocam çalıştıramadım

Merhaba,
Neyi yapamadığınızı/yapmak istediğinizi anlamadım. Dosyanızda hiçbir açıklama yok.

 

[slmnkc]

Tamam oldu hocam çok teşekkür ederim.

 

[gokanozkan]

Üzerinde çalıştığım dosyada veri girilmiş her satırdan sonra üç boş satır var. Bu veri girilmiş satırı alttaki 3 boş satıra kopyalamak istiyorum. VBA konusunda çok yeni olduğum için çözüm geliştiremedim. Yardımcı olabilirmisiniz? Teşekkür ederiz.

 

[yolcu50]

hocam benzer bir çalışmam var. veri sayfasındaki d5:d500 aralığını yedek sayfasında b sütununa kopyalanmasını istiyorum. ikinci kopyalanan c sütununa diğeri d ve bu şekilde devam edecek. Yardımınız için şimdiden teşekkürler

 

[YUSUF44]

Üzerinde çalıştığım dosyada veri girilmiş her satırdan sonra üç boş satır var. Bu veri girilmiş satırı alttaki 3 boş satıra kopyalamak istiyorum. VBA konusunda çok yeni olduğum için çözüm geliştiremedim. Yardımcı olabilirmisiniz? Teşekkür ederiz.

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Kodlar, 1. satırı 2,3,4. satırlara, 5. satırı 6,7,8. satırlara .... kopyalar.:

Sub üçkopya()
For i = 1 To Cells(Rows.Count, 1).End(3).Row Step 4
Rows(i).Select
Selection.Copy
Rows(i + 1).Select
ActiveSheet.Paste
Rows(i + 2).Select
ActiveSheet.Paste
Rows(i + 3).Select
ActiveSheet.Paste
Next
Application.CutCopyMode = False
[a1].Select

End Sub

 

[YUSUF44]

hocam benzer bir çalışmam var. veri sayfasındaki d5:d500 aralığını yedek sayfasında b sütununa kopyalanmasını istiyorum. ikinci kopyalanan c sütununa diğeri d ve bu şekilde devam edecek. Yardımınız için şimdiden teşekkürler

Yedek sayfasında hangi satıra yapıştırılacak?

 

[yolcu50]

Yedek sayfasında hangi satıra yapıştırılacak?

Hocam yedek sayfasında b5:b500 aralığına yapıştırılacak, daha sonra c5:c500 ve d,e,f .... Devam edecek

 

[YUSUF44]

Hocam yedek sayfasında b5:b500 aralığına yapıştırılacak, daha sonra c5:c500 ve d,e,f .... Devam edecek

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub d5b5()
Set v = Sheets("veri")
Set y = Sheets("yedek")
If y.[b5] = "" Then
yeni = 2
Else
yeni = WorksheetFunction.Max(2, y.Cells(5, Columns.Count).End(xlToLeft).Column + 1)
End If
v.[d5:d500].Copy
y.Select
Cells(5, yeni).Select
ActiveSheet.Paste
Cells(5, yeni + 1).Select
v.Select
Application.CutCopyMode = False
[a1].Select
End Sub

 

[yolcu50]

hocam kodu denedim ancak hep aynı sütuna yapıştırıyor. yan sütuna geçmiyor.