Yalnız Mesajı Göster
Eski 03-01-2018, 20:04  
numan şamil
Destek Ekibi
 
Giriş: 27/01/2011
Şehir: çorum
Mesaj: 1,090
Excel Vers. ve Dili:
Ofis 2010 Türkçe
Varsayılan

Merhaba
Makro ile isterseniz
aşağıdaki kodları dener misiniz
E1 hücresine tekrarlanacak rakamı yazarsınız
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Numan()
    Dim x, k, Satır As Long
     Range("D1:D" & Rows.Count).ClearContents
    sat = Cells(Rows.Count, "B").End(3).Row
    Application.ScreenUpdating = False
    Satır = 1
    For x = 1 To sat
    For k = 1 To Range("E1").Value
    Range("D" & Satır) = Range("B" & x)
    sat = sat + 1
    Satır = Satır + 1
   Next k
  Next x
  Application.ScreenUpdating = True
End Sub
numan şamil Çevrimdışı   Alıntı Yaparak Cevapla