Satırları istedigimiz sayıda kopyalama

[salem]

Selam arkadaslar. Ben 2 excel sayfasinda calisiyorum. ilk sayfadan bir satiri alip 2. sayfaya bir hücre icerisinde yazan miktar kadar kopyalamak istiyorum.

Yani bir satirdan adet 3 ise 3 tane 2. sayfaya kopyalamak istiyorum. Bunu manuel yapmak kopyala,seç yapistir çok uzun zaman aliyor.

Bunu fonksiyonlarla yapmam mümkün mü acaba, bilen var mi?

 

[Necdet]

Merhaba,

Sorunuzu örnek bir dosya ile destekleyiniz lütfen. Daha çabuk yanıt alırsınız.

 

[salem]

Selam arkadaslar. Ben 2 excel sayfasinda calisiyorum. ilk sayfadan bir satiri alip 2. sayfaya bir hücre icerisinde yazan miktar kadar kopyalamak istiyorum.

Yani bir satirdan adet 3 ise 3 tane 2. sayfaya kopyalamak istiyorum. Bunu manuel yapmak kopyala,seç yapistir çok uzun zaman aliyor.

Bunu fonksiyonlarla yapmam mümkün mü acaba, bilen var mi?

Ekledim ama oldu mu bilmiyorum.

 

[salem]

ilk sayfadaki BB1 yazan satiri ve altindekileri 2. sayfaya karsisinda yazan adet kadar kopyalamak istiyorum.Bunu formulle yapabilir miyim. Makro kullanmayi çok iyi bilmiyorum.

Saygilar.

 

[salem]

Cevap yok mu?

 

[salem]

Tamam makro da kabulum ama bu probleme b1r cozum alabilir miyim?
En azindan bir yol gösterecek yok mu?

 

[veyselemre]

Sub AdetliAktar()
    Application.ScreenUpdating = False
    Set s1 = Sheets("sayfa1")
    Set s2 = Sheets("sayfa2")
    s1.Select
    s2.[a:c].ClearContents
    sons2 = 1
    For x = 1 To [a65536].End(3).Row
        If Cells(x, 1) <> "" And Cells(x, 3) > 0 Then
            son = Cells(x, 1).End(xlDown).Row
            If son <> 65536 Then
                son = son - 1
            Else
                son = Cells(x + 1, 2).End(xlDown).Row
            End If
                s1.Range(Cells(x, 1), Cells(son, 3)).Copy s2.Range("a" & sons2 & ":c" & (sons2 - 1 + (son - x + 1) * s1.Cells(x, 3)))
                sons2 = s2.[B65536].End(3).Row + 1
        End If
    Next x
    s2.Select
End Sub

 

[salem]

Tesekkurler Veysel Bey, kodu denicem.