satırı çoğaltarak kopyalama

[ibrahimnur]

sayfa1'de 200 satırlık bir listem var. Bunu her satırdan 8 tane çoğaltarak sayfa2'ye kopyalamak istiyorum. ustaların yardımlarını bekliyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Listenizin "A" sütununda olduğunu varsayarak kodu hazırladım.

Option Explicit
 
Sub SEKİZLİ_LİSTELE()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Long, Satır As Long
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    Satır = 1
    
    S2.Columns(1).ClearContents
    
    For X = 1 To S1.Range("A65536").End(3).Row
        S2.Range("A" & Satır & ":A" & Satır + 7).Value = S1.Cells(X, "A")
        Satır = Satır + 8
    Next
    
    S2.Select
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ibrahimnur]

korhan bey kod için teşekkürler. A sutunun 8 tane çoğalttı ama benim liste x sutununa kadar devam ediyor. birde 4 satırdan aşağısını istiyorum. ilk üç satır başlık satırı.

 

[Korhan Ayhan]

Selamlar,

Ben ilk mesajınızda ne "x" diye bir ifade, ne de "ilk üç satır başlık" diye bir ifade gördüm.

Açıklamalarınıza göre (yetersiz) basit mantıkla "A" sütununu baz alarak size yardımcı olmak maksadıyla bir kod hazırladım. Ne hikmetse bizler kod hazırlayıp sorularınızı yanıtladıktan sonra sizler tabiri caizse (alınmayın lütfen) bülbül gibi şakımaya başlıyorsunuz. Eski bir üyemiz olarak nasıl soru sormanız gerektiğini biliyor olmanız gerekiyor.

LÜTFEN SORULARINIZI NET VE AÇIK ŞEKİLDE İFADE EDİNİZ.

 

[ibrahimnur]

üstad doğru söylüyorsun. özür dilerim. ancak yukarıda a sutunu diyede birşey yazmıyor. 200 adet satır var demiştim. neyse ben hallederim. genede yardımlarınız için teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Ben neden "A" sütununu baz alarak çözüm hazırladığımı mesajımda açıkladım.

"...size yardımcı olmak maksadıyla..."

Son dönemlerde sorulan sorular hep bu yönde oluyor. Ben bunun sebebini anlamaya çalışıyorum.

Soru soruluyor.
Cevap veriliyor.
Sonra benim şu şartım vardı, verilerim şu satırdan itibaren başlıyordu diye istekler başlıyor.

Bunları ilk mesajda açıklayıcı bir şekilde yazmak çokmu zor?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu deneyiniz.

Option Explicit
 
Sub SEKİZLİ_LİSTELE()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Long, Satır As Long
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    Satır = 4
    
    S2.Columns("A:X").ClearContents
    S1.Range("A1:X3").Copy S2.Range("A1")
    
    For X = 4 To S1.Range("A65536").End(3).Row
        S2.Range("A" & Satır & ":X" & Satır + 7).Value = S1.Cells(X, "A")
        Satır = Satır + 8
    Next
    
    S2.Select
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ibrahimnur]

Teşekkür ederim.