• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

S

sacide44

Katılım
3 Mayıs 2012
Mesajlar
9
Excel Vers. ve Dili
Excel 2010 Türkçe
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
 
Merhaba,
Aşağıdaki şekilde dener misiniz?
Kod: 
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
 
Çok teşekkür ederim, oldu..
Elinize sağlık..
 
Ö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..
 

Ekli dosyalar

Son düzenleme:
Merhaba,
Kodunuzu aşağıdaki ile değiştirerek dener misiniz?
Kod: 
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
 
Son düzenleme:
Teşekkür..

Tam istediğim gibi oldu, tekrar teşekkür ederim.
 
dEdE' Alıntı:
Merhaba,
Kodunuzu aşağıdaki ile değiştirerek dener misiniz?
Kod: 
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
Genişletmek için tıkla ...
hocam bunu bir alt satıra değilde 5satır alta aktarabilirmiyiz ne gibi değişiklik yapmak gerekir.
 
Son düzenleme:
slmnkc' Alıntı:
hocam bunu bir alt satıra değilde 5satır alta aktarabilirmiyiz ne gibi değişiklik yapmak gerekir.
Genişletmek için tıkla ...

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?
 
ikinci seçenek hocam 10. satıra aktasın vesonra 11 12 diye devam edecek
 
slmnkc' Alıntı:
ikinci seçenek hocam 10. satıra aktasın vesonra 11 12 diye devam edecek
Genişletmek için tıkla ...

Merhaba,
Bu durumda yukarıdaki koda kırmızı satırı eklemek yeterli olacaktır.
Kod: 
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
 
Ü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.
 
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
 
gokanozkan' Alıntı:
Ü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.
Genişletmek için tıkla ...

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.:

Kod: 
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
 
yolcu50' Alıntı:
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
Genişletmek için tıkla ...

Yedek sayfasında hangi satıra yapıştırılacak?
 
yolcu50' Alıntı:
Hocam yedek sayfasında b5:b500 aralığına yapıştırılacak, daha sonra c5:c500 ve d,e,f .... Devam edecek
Genişletmek için tıkla ...

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

Kod: 
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
 
hocam kodu denedim ancak hep aynı sütuna yapıştırıyor. yan sütuna geçmiyor.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst