• DİKKAT

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

döngü

Katılım
2 Temmuz 2008
Mesajlar
60
Excel Vers. ve Dili
Excel 2010
merhaba,
b stunundaki sayı kadar a stunundaki veri alt alta gelip, bittiği yerden diğer veri devam etsin. Listem ektedir. Yardımlarınız için şimdiden teşekkür ederim.
 

Ekli dosyalar

şöle deneyiniz..

Sub daylihgt()
Range("e1:e10000").ClearContents
For x = 1 To [a10000].End(3).Row
ben = [e10000].End(3).Row + 1
For y = ben To Cells(x, 2) + ben - 1
Cells(y, 5) = Cells(x, 1)
Next y
Next x
End Sub
 
rica ederim..
 
Geri
Üst