• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

makro ile belli sayıda tekrar yaz

  • Konbuyu başlatan Konbuyu başlatan can-can
  • Başlangıç tarihi Başlangıç tarihi
Merhaba,

Bu şekilde deneyin.
Kod:
Sub Tekrar_Yaz()
    
    Dim i As Long, s1 As Long, s2 As Long
    
    Range("K:K").ClearContents
    
    s1 = 2 'tekrar sayısı
    s2 = 1 'verilerin yazılacağı ilk satır
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(s2, "K").Resize(s1, 1) = Cells(i, "A")
        s2 = s1 + s2
    Next i
    
End Sub

.
 
Geri
Üst