kopyala yapıştır

[Yesilyurtlu]

Üstadlarım
Makro ile en basitinden

A sayfasındaki E3 hücresini B sayfasında ki L5 hücresine kopyalayacak bir makro

Birde
A Sayfasında ki E3 E4 E5 yani çoğul hücreleri B Sayfasında ki U9 U10 U11 gibi çoğul hücrelere hücre belirterek kopyalayıp yapıştıracak makro kodunu paylaşabilir misiniz?

 

[acolkesen1]

Merhaba,
Aşağdaki kodu kullanabilirsiniz. daha farklı birşeyler istiyorsanız bir örnek çalışma ekleyiniz. İyi çalışmalar.
Sub kopyala()
Sheets("A").Range("e3").Copy Sheets("B").Range("L5")
End sub

 

[Orion1]

Üstadlarım
Makro ile en basitinden

A sayfasındaki E3 hücresini B sayfasında ki L5 hücresine kopyalayacak bir makro

Birde
A Sayfasında ki E3 E4 E5 yani çoğul hücreleri B Sayfasında ki U9 U10 U11 gibi çoğul hücrelere hücre belirterek kopyalayıp yapıştıracak makro kodunu paylaşabilir misiniz?

sheets("A").range("E3").copy sheets("B").range("L5")
sheets("A").range("E3:E5").copy sheets("B").range("U9")

 

[Yesilyurtlu]

Evren Abim ve sayın acolkesen1 ellerinize sağlık.
Teşekkür Ederim

 

[Yesilyurtlu]

Selamün Aleyküm;
Üstadlarımdan sayfa1 sekmesinde A1:A100 hücrelerinde ki değerleri B1:B100'e 1'ncisi keserek üstüste 2'nciside kesmeden üstüste toplayacak makro kodunu rica etsem paylaşabilir misiniz? Ama en basidinden olacak.. İlk olduğu için anlayabileceğim şekilde olmalı.

Teşekkür Ederim

 

[Muhammet Okumuş]

Sub Düğme1_Tıklat()
Sayfa1.Range("E&h1:f&ı1").Copy Sayfa1.Range("n&h1&ı1")
End Sub

yukarıdaki makroda satır sayısını h1 ve ı1 deki değerlere göre belirlemek için yaptım.ancak hata veriyor.Nasıl bir düzenleme yaparsak sorunu çözebiliriz

 

[Muhammet Okumuş]

Sayfa1.Range("E" & [a1]).Copy Sayfa1.Range("5" & [b1])
cevabı buldum

 

[Muhammet Okumuş]

Sayfa1.Range("E" & [a1]:"E" & [a2]).Copy Sayfa1.Range("L" & [b1]:"L" & [a2])
arkadaşlar bu makroda hata veriyor.sanırım bunu düzeltemeyeceğim.burda nerde hata yapmışım.

 

[Muhammet Okumuş]

Sayfa1.Range("E" & [a1]:"E" & [a2]).Copy Sayfa1.Range("L" & [a1]:"L" & [a2])

bu kısımda hata veriyor

 

[Muhammet Okumuş]

Sayfa1.Range("E" & [a1], "E" & [a2]).Copy Sayfa1.Range("c3")

1 saattir uğraştım buldum sonunda

 

[XExcel]

ben denedim gayet güzel çalışıyor

 

[svorm]

Ben olsam uzun yoldan da olsa söyle yapardım,

sheets("A").select
Range("E3").select
Selection copy
sheets("B").select
Range("L5").select
Activesheet Paste