Verileri Tek Tek Kopyalasın

[baydeniro]

Merhaba Arkadaşlar,
KAYIT sayfasında A2:A8 aralığındaki verileri RAPOR sayfası E5 hücresinden itibaren yine yukarıdan aşağıya doğru ama birer birer kopyalaması mümkün müdür ?
* önce C3 hücresini RAPOR E5 hücresine kopyalanması
* Veri sayısı değişebileceğinden veri adedi bitince durması

Örnek Dosya ektedir

 

[AdemCan]

Merhaba, bu kodlar ile kopyalama işlemi yapabilirsiniz.

Sub kopyala()
son = Sheets(1).Range("C" & Rows.Count).End(3).Row
Sheets(1).Range("C2:C" & son).Copy Sheets(2).Range("E5")
End Sub

 

[baydeniro]

Merhaba, bu kodlar ile kopyalama işlemi yapabilirsiniz.

Sub kopyala()
son = Sheets(1).Range("C" & Rows.Count).End(3).Row
Sheets(1).Range("C2:C" & son).Copy Sheets(2).Range("E5")
End Sub

faye_efsane yardımın için çok teşekkür ediyorum. Sağlıcakla kal

 

[Korhan Ayhan]

Siz tek tek diye talep etmiştiniz. Verilen çözüm blok halinde kopyalama yapıyor.

 

[AdemCan]

Teşekkürler sizde sağlıcakla kalın.

 

[baydeniro]

Siz tek tek diye talep etmiştiniz. Verilen çözüm blok halinde kopyalama yapıyor.

Evet üstad haklısınız, ben de uygulama yapınca farkettim. Sağolsun emek vermiş kardeşimiz.

 

[Korhan Ayhan]

Peki tek tek kopyalamakta ki amaç nedir? Blok halinde kopyalamak neden işinize yaramıyor?

Ayrıca görselde belirttiğiniz hücre aralığı A2:A8 olarak görünüyor.

 

[baydeniro]

Peki tek tek kopyalamakta ki amaç nedir? Blok halinde kopyalamak neden işinize yaramıyor?

Ayrıca görselde belirttiğiniz hücre aralığı A2:A8 olarak görünüyor.

İlginizr teşekkürler üstad. Aklıma bir uygulama geldi, onu denemek amacıyla. Tek tek kopyalanınca tetiklenen işlemler planlıyorum. Aslında blok halinde kopyalama da olur. Temel sorun şu : veriler kopyalanınca her satırda çalışacak ayrı ayrı makrolar var. Blok kopyalanabilir ama her satırı tetikleyecek bir yöntem lazım

 

[Korhan Ayhan]

Ne yapmak istediğiniz somut örneklerle detaylandırırsanız daha net cevaplar alabilirsiniz.

 

[baydeniro]

Ne yapmak istediğiniz somut örneklerle detaylandırırsanız daha net cevaplar alabilirsiniz.

Üstad çok teşekkür ederim. Örnek hazırlıcam kesinlikle. Merak ettim, örneğin A2:A8 alanında topluca YERİNEKOY uygulanabilir mi ?

 

[Korhan Ayhan]

REPLACE komutunu araştırınız.