kopyala yapıştır.

[rustemparlak]

Sub KopYapClick()
Sayfa1.Range("A1:A10").Copy
Sayfa2.Range("A1").PasteSpecial xlPasteValues, xlNone, False, False
Application.CutCopyMode = False
End Sub

böyle bir makro var.

Benim istediğim bu A1 yazan kısım ı Excel sayfası üzerinde sürekli değiştirmek istiyorum yani sayfa1 de A1 hücresine A8 yazdığım zaman Sayfa2 de A8 hücresine yapıştırmasını istiyorum. Her zaman vb açıp değiştirmek gerekiyor buda çok zahmetli ve vb den anlamak gerekiyor. Bu dosyayı benden başka kişilerde kullanacak.

Yapıştırma şeklini ise verileri tek bir satıra yapıştırması mümkün mü?

Yardımcı olacaklara şimdiden teşekkür ederim...

 

[Kemal Demir]

[vb:1:a60585de7a]Sub KopYapClick()
bir = InputBox("kopyalanacak kısım")
iki = InputBox("yapıstırılacak kısım")

Sheets("Sayfa1").Range(bir).Copy
Sheets("Sayfa2").Range(iki).PasteSpecial xlPasteValues, xlNone, False, False
Application.CutCopyMode = False
End Sub[/vb:1:a60585de7a]

Zannedersem işinizi görür

Birinci inputbox örnek a1:a7 yaz
İkinci inputbox örnek a5 yaz


Umarım işinize yarar

 

[rustemparlak]

Bi kaç gündür bu makroyu kullanıyorum ama her defasında InputBox a hücreyi yazıyorum kopyalıyorda bi sorun yok.
Ben daha basitleşsin istiyorum.InputBox a değilde sayfa16 da a1 hücresine kopyalanacak adresi yazdıktan sonra kopyalamak istiyorum mümkünmü?


Sub kopyala()
xyz = InputBox("nerye kopyalansın")
Sayfa16.Range("A66:GU66").Copy
Sayfa14.Range(xyz).PasteSpecial xlPasteValues, xlNone, False, False
Application.CutCopyMode = False
End Sub

 

[rustemparlak]

arkadaşlar yardımlarınızı bekliyorum...

 

[mehmett]

Aşağıdaki kod Sayfa1'in A1 hücresine yazdığınız hücreye kopyalar.

Örneğin Sayfa1'in A1 hücresine D5 yazarsanız, Sayfa1'in B1:C20 alanındaki veriyi Sayfa2'nin D5 hücresine kopyalar.

[vb:1:a8efbf6587]Sub kopyala()
xyz = Sheets("Sayfa1").Range("A1")
Sheets("Sayfa1").Range("B1:C20").Copy
Sheets("Sayfa2").Range(xyz).PasteSpecial xlPasteValues, xlNone, False, False
Application.CutCopyMode = False
End Sub[/vb:1:a8efbf6587]