hücre aralığını başka sayfaya kopyalama

[senselcuksen]

arkadaşlar,

bir sayfadaki hücre arlığını örneğin başka bir sayfaya makro ile nasıl kopyalarım.

tşk

 

[Orion1]

Merhaba.
Aşaığdaki kodlar Sayfa1 de A1:C10 aralığını Sayfa2'ye A1:C10 aralığına kopyalar.
İyi çalışmalar.

Sub kopyala()
Sheets("Sayfa1").Range("A1:C10").Copy
Sheets("Sayfa2").Range("A1").PasteSpecial
Application.CutCopyMode = False
MsgBox "Kopyalama Yapıldı..!!"
End Sub

 

[senselcuksen]

arkadaşlar söylemeyi unuttum.

kopyalanacağı yer, kopyalanacağı sayfadaki dolu satırın 5 satır aşağısına olacak

tşk

 

[Orion1]

Merhaba.
Aşağıdaki kodlar Sayfa1'de A1:C10 Aralığını Sayfa2'de A sütununda son dolu satırdan sonraki 5nci satırdan itibaren kopyalıyor.

Sub kopyala()
Sheets("Sayfa1").Range("A1:C10").Copy
sat = Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row + 5
Sheets("Sayfa2").Range("A" & sat).PasteSpecial
Application.CutCopyMode = False
MsgBox "Kopyalama Yapıldı..!!"
End Sub

 

[emrexcel123]

copy

ya da bu kodu kullanabilirsin >>
Sub copy()
Sheets("sayfa1").Range("A1:C10").copy
son = Sheets("sayfa2").[a65536].End(3).Row + 5
Sheets("Sayfa2").Cells(son, 1).PasteSpecial xlPasteAll
Application.CutCopyMode = False
End Sub

 

[N.Ziya Hiçdurmaz]

Buda biraz değişik örneği olsun.
Sub TEST()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("Sayfa2")
For i = 1 To 10
say = WorksheetFunction.CountA(s2.[b1:b65000]) + 5
s2.Range("b" & say) = s1.Range("a" & i).Value
Next
End Sub

 

[bilal_akdeniz]

bu aktarma işini başka dosyaya yapabilirmiyim.

 

[eedtr]

Merhaba A1/J10 arasındaki dolu olan hücreleri nasıl kopyalarız.

 

[Mx@Raid]

arkadaşlar özellik güzel ama benim bir sıkıntı var ve oldukçada acil elimde yirmibinin üzerinde kişinin kaydı var ve isimleri ve soy isimleri altalata gelecek şekilde yazılmış bana lazım olan ise soyadların olduğu kısmı kopyalayıp kopyalanan satırında silinebilmesi. Mesela a1 hücresinde isim varsa a2 hücresinde soyisim bu şekilde devam ediyor. a2, a4, a6 vs. hücrelerinin kopyalanarak başka yere taşınması anlayacağınız kopyalarken bir satır atlayacak şekilde kopyalaycak ve boşalttığı satırı silecek. yardımcı olursanız sevinirim.

 

[sevdalinka_61]

merhaba;
Elimde 12 sütundan ve çok sayıda satırdan oluşan ve sürekli güncellenen bir excel tablosu var. ben bu sütunlardan sadece bir tanesindeki (örneğin D sütununa) değerlere bakarak eğer değer negatifse o değerin bulunduğu satırı başka bir sayfaya kopyalamak istiyorum. bu şekilde o sütundaki tüm negatif değerlere ait satırları tek bir sayfaya kopyalayacağım. bu konuda bana yardımcı olursanız çok sevinirim. tşkler...

 

[Mx@Raid]

Sub Kopyala()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s1.Range("A2,A4,A6,A8,A10").Select
Selection.Copy
s2.Select
s2.Range("A1").Select
ActiveSheet.Paste
s1.Select
s1.Range("2:2,4:4,6:6,8:8,10:10").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub


Bu yöntemdeki A2 ile A10 arasındaki hücrelerin hepsini tek tek yazmak yerine satır atlayarak a10'a kadar
nasıl tanımlayabilirim.

Yine 2:2 ile 10:10 arasını tek tek yazmak yerine 2:2 ile 10:10 arasında nasıl
bir uygulmadan sonra 10:10 yazabilirim. Verdiğim bu örnek kısa aralıklar içeriyor.

Aslında D2 ile D3600 arasında değerleri seçmem gerekiyor ki bu da oldukça zor bir iş.

İşlem yapacağım hücre aralığı d2'den d3600'e kadar, Yine 2:2 ile 3600:3600 aralığını
kulanacağım; yalnız örnekte de verdiğim gibi birer satır atlayarak hücre seçmem gerekiyor.(D2: D3600) uygulması
benim işimi çözecek bir sonuç değil çünkü iki aralık içerisinde bütün hücreleri seçmek değil amacım.

Neden bu kadar satır var diyecek olursanız normalde 1800 kişinin listesi mevcut
ama dosyayı hazırlayan arkadaş pdf olarak göndermiş hazırladığı tabloda isim soyisimleri alt alta yazmış Excel'e dönüştürdükten
sonra soyisimlerin yer aldığı hücreleri kopyalayıp başka bir sayfaya aktardıktan sonra boşalan hücreleri silip isimlerinin
yanındaki hücreye aktarmam istendi; e haliyle tek tek o kadar hücreyi seç, kopyala, yapıştır oldukça uzun zaman isteyen işlem bunun
yerine makro nasıl olur düşüncesiyle bu yöntemi uygulamak istiyorum ki, elimde belirttiğim oranda en az 10 dosya var. İşin içinden
çıkamayınca forumdaki arkadaşlardan yardımla çözebilirim umuduyla konu hakkında araştırdım ama ya bilgi yetersizliği ya da tamda benim
isteğim sonuca cevap verecek konuları göremediğim için iki üç gündür debelenip duruyorum.

İşin doğrusu buna en kısa zamanda cevap alabilirsem iyi olacak.
işi veren deyim yerindeyse ensemde boza pişiriyor.

Umarım konu hakkında yardımcı olabilirsiniz.

Teşekkürler.

 

[Mx@Raid]

Bu işi bilen arkadaşlar için zor bir soru olmadığını düşünüyorum.

Henüz cevap alamadım ama nedense. Vakit ayırırsanız sevinirim.
Teşekkürler.

 

[darkedenn]

Arkadaşlar mrb;
Ekte bulunan excel dosyam için aktar butonu yapmak istiyorum. Kayıt kısmında butona tıklandığı anda renkli kısımlardaki veriler liste dölümünde ilgili yerlere yerleşmesini istiyorum ve her yeni kayıtta bir alttaki satıra eklemesi gerekiyor. Bu konu ile ilgili yardımlarınızı bekliyorum. Şimdiden Yardımlarınız için tşk ederim.

 

[cayaso]

Arkadaşlar bir hücreye çift tıklayarak kopyalayıp başka bir sayfadaki hücreye yapıştırma kodunu yazmaya çalıştım, fakat olmadı bu konuda yardım edebilecek arkadaşlara teşekkür ederim.

 

[YUSUF44]

Arkadaşlar bir hücreye çift tıklayarak kopyalayıp başka bir sayfadaki hücreye yapıştırma kodunu yazmaya çalıştım, fakat olmadı bu konuda yardım edebilecek arkadaşlara teşekkür ederim.

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırırsanız A1:A5 aralığındaki herhangi bir hücreye çift tıkladığınızda o hücreyi C sütununa ve B8 hücresine yapıştırır.

İsterseniz kodda farklı değişiklikler yapılabilir. Sizin tam olarak ne aradığınızı bilmeden tam çözüm veremeyiz maalesef:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1:A5]) Is Nothing Then Exit Sub
Target.Copy
Target.Offset(0, 2).PasteSpecial
[B8].PasteSpecial
End Sub

 

[cayaso]

Yusuf bey olmadı şöyle anlatayım. A1:A50 aralığındaki herhangi bir veriyi çift tıklayarak Veri Sayfasındaki C6 hücresine yapıştırmak istiyorum.

 

[cayaso]

Yusuf Bey teşekkür ederim. Sorun çözüldü.

 

[cayaso]

Şimdi de şöyle bir sorun çıktı hedef hücrede veri değilde formül var, değerleri yapıştırmak istiyordum.

 

[qasha]

Merhaba.
Aşaığdaki kodlar Sayfa1 de A1:C10 aralığını Sayfa2'ye A1:C10 aralığına kopyalar.
İyi çalışmalar.

Sub kopyala()
Sheets("Sayfa1").Range("A1:C10").Copy
Sheets("Sayfa2").Range("A1").PasteSpecial
Application.CutCopyMode = False
MsgBox "Kopyalama Yapıldı..!!"
End Sub

peki sayfa1 deki a1 ve a2 yi sayfa2 deki a3 ve a5e nasıl kopyalarız

 

[AdemCan]

Merhabalar Sn. qasha;
Sayfa2 A3 hücresine, Sayfa1 A1 hücre içeriğini;
Sayfa2 A5 hücresine, Sayfa1 A2 hücre içeriğini örnek olarak şu şekilde alabilirsiniz.

Sayfa2.Range("A3").Value = Sayfa1.Range("A1").Value
Sayfa2.Range("A5").Value = Sayfa1.Range("A2").Value