Çoğaltarak alt alta yapıştırma

[adainsaat]

Merhaba,

1500 veri olan bir listem var. Bu listeyi başka bir sayfaya alt alta ve her veriyi x10 adet olacak şekilde yapıştırmak istiyorum.

Örneğin;

1 nolu dosyada A1 hücresinde "Elma" varsa, 2 nolu dosyanın A1:A10 tamamı Elma dolsun,
1 nolu dosyada A2 hücresinde "Armut" varsa, 2 nolu dosyanın A11:A20 tamamı Armut dolsun,

ve bu 1500 veriyi bu şekilde çoğaltarak başka bir sayfaya aktarabileyim.

Yardımcı olacaklara şimdiden teşekkürler...

 

[Ömer]

Merhaba,

Aynı dosyada farklı sayfa mı, farklı Excel dosyası mı?

 

[Muzaffer Ali]

Merhaba.
Sayfa1 den Sayfa2 ye aktarır

Sub Test()
    Dim Bak As Integer, Sira As Integer
    Sira = 2
    With Worksheets("Sayfa1")
        For Bak = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
            .Cells(Bak, "A").Copy Worksheets("Sayfa2").Range("A" & Sira & ":A" & Sira + 9)
            Sira = 10 + Sira
        Next
    End With
End Sub

 

[adainsaat]

Merhaba,

Aynı dosyada farklı sayfa mı, farklı Excel dosyası mı?

farklı dosyadan aslında ama farketmez o dosyayı yeni sekme (sayfa) olarak birleştirebilirim..

 

[adainsaat]

Merhaba.
Sayfa1 den Sayfa2 ye aktarır

Sub Test()
    Dim Bak As Integer, Sira As Integer
    Sira = 2
    With Worksheets("Sayfa1")
        For Bak = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
            .Cells(Bak, "A").Copy Worksheets("Sayfa2").Range("A" & Sira & ":A" & Sira + 9)
            Sira = 10 + Sira
        Next
    End With
End Sub

hocam teşekkürler işe yaradı ama overflow diyerek tamamını yapıştırmadan işlemi sonlandırıyor.. %80'i geliyor kalanlar gelmiyor..
(toplam 2916 verim varmış.. 14 kere çoğaltıyorum.. 2916*14=40.824 veri oluyor.)

 

[yanginci34]

Denermisiniz

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[ÖmerFaruk]

Değişken tanımlamanızı düzeltin olacaktır.
Dim Bak As Integer, Sira As Long

Integer değişken maksimum +32767 değerini alabilir.

 

[adainsaat]

Değişken tanımlamanızı düzeltin olacaktır.
Dim Bak As Integer, Sira As Long

Integer değişken maksimum +32767 değerini alabilir.

tamamdır çok teşekkürler..

 

[adainsaat]

Merhaba.
Sayfa1 den Sayfa2 ye aktarır

Sub Test()
    Dim Bak As Integer, Sira As Integer
    Sira = 2
    With Worksheets("Sayfa1")
        For Bak = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
            .Cells(Bak, "A").Copy Worksheets("Sayfa2").Range("A" & Sira & ":A" & Sira + 9)
            Sira = 10 + Sira
        Next
    End With
End Sub

ÖmerFaruk hocamın yardımıyla kitlenme sorunu da çözdüm tekrar teşekkürler..

 

[adainsaat]

Denermisiniz

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

halloldu hocam teşekkür ederim..