kopyalama

[erdemyazgan]

ekteki gibi bir kopyalama yapmak istiyorum. örnek tabiki gerçegimn cok daha kücügü. bunun için bir fonksiyon var mı acaba? yardımcı olursanız sevinirim.

 

[hamitcan]

Sub arttir()
    c = 1
    For i = 1 To Sayfa1.[a65536].End(3).Row
        Sayfa2.Range(Cells(c, 1), Cells(c + 2, 1)) = Sayfa1.Cells(i, 1).Value
        c = c + 3
    Next
End Sub

 

[Ayhan Ercan]

Alternatif

Private Sub CommandButton1_Click()
i = 1
    For j = 1 To [a65536].End(3).Row
        Sayfa2.Cells(i, 1) = Cells(j, 1)
        Sayfa2.Cells(i + 1, 1) = Cells(j, 1)
        Sayfa2.Cells(i + 2, 1) = Cells(j, 1)
        i = i + 3
    Next j
End Sub

 

[leumruk]

peki kopyalama işlemini ekteki gibi yapabilir miyiz?

 

[Ayhan Ercan]

peki kopyalama işlemini ekteki gibi yapabilir miyiz?

Bu kopyalamadaki mantık nedir?

 

[leumruk]

şıkları karıştıran bir test programı hazırlıyorum. ÖSS'deki gibi

 

[leumruk]

Syn. Ayhan hocam, ekte bir soru sormuştum. Soruyu buraya alıyorum. A sütununda aşağı doğru sıralanmış verileri belirlenen ölçülere göre karıştırarak nasıl kopyalarız. Biraz daha açıyorum: A1:A5 aralığındaki verilerimiz sırasıyla 1,2,3,4,5 olsun. Ben bu verileri misal sayfa2'nin B1:B5 aralığına şu şekilde belirlediğim (3,2,4,5,1) sıralamaya kopyalamasını istiyorum. Metin olarak ifade edersek A1:A5 aralığındaki veri sırasıyla A,B,C,D,E olsun. Ben bunları sayfa2'nin B1:B5 aralığına C,B,D,E,A şeklinde tek hamlede kopyalama yapmasını istiyorum.
internetten bulduğum bir dosyayı ekliyorum. Bir arkadaş sanırım bu işlemi yapmış. Çok inceledim, ama makrolar arasından ayırt edemedim. Sizler tecrübelisiniz, dosyadan hareketle bana uygun makroyu oluşturabilir misiniz? Söz konusu dosyayı ekliyorum.
Bu arada hitap Ayhan Bey'e oldu ama, başka arkadaşlar da cevaplayabilirler.

 

[leumruk]

Olumlu ya da olumsuz bir cevap, lütfen...

 

[leumruk]

İstediğim şey biraz karışık olduğu için, farklı ve daha açık bir şekilde izah etmek istedim ve uygun bir ek hazırladım. Ekteki dosyayı açtığınızda butona tıkladığınızda sorum daha net anlaşılacaktır. İyi geceler...