• DİKKAT

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

Sütunlardaki verileri alt alta sıralama

Katılım
13 Ocak 2010
Mesajlar
46
Excel Vers. ve Dili
Office2007
Merhaba
Forumdan aldığım örnek kodlar ile sayfadaki satırlar arasında boş satır oluşturdum ancak A sütununda aradaki boş satırlara B sütunundaki verileri nasıl taşıyacağımı çözemedim.

Mesajım açıklayıcı olmayabilir. Dosyamı ekliyorum daha net anlaşılacaktır.
Yardımlarınız için teşekkürler.
 

Ekli dosyalar

Buna benzer bir çalışma vardı, kodlar şöyle olmalı.

Kod:
Sub ayır()
    Dim alan As Range, sat As Long
    Application.ScreenUpdating = False
    Range("V2:V" & Rows.Count).ClearContents
    sat = 2
    For Each alan In Range("A2:B40")
        If alan.Column Mod 1 = 0 And alan <> "" And _
            alan.Offset(0, 0) <> 0 Then
            Cells(sat, "E") = alan
            sat = sat + 1
        End If
    Next alan
End Sub
 
Geri
Üst