Boşlukları otomatik sıralama

[lovecaroline]

Örnek dosyada da belirttiğim gibi B sütunundaki boşluklar 1'den başlayarak diğer dolu hücreye kadar sıralansın istiyorum. (Formülle veya makroyla olabilir)
Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

 

[ccuneyt13]

Merhaba,
Çok basit ve kullanışlı bir yöntemle bunu yapabilirsiniz.
B sütununu seçin, ardından F5 tuşuna basıp çıkan menüden Özel butonuna tıklayın, oradanda "Boşluklar" seçin, B sütunundaki tüm boşlukları seçtikten sonra formül çubuğunu tıklayıp =B1+1 formülünü yazıp CRTL+ENTER yapıp istediğiniz sonucu alabilirsiniz.

 

[veyselemre]

Sub test()
    Dim area
    With Range("A1:A" & Cells(Rows.Count, 1).End(3).Row).Offset(, 1)
        If WorksheetFunction.CountBlank(.Cells) > 0 Then
            For Each area In .SpecialCells(xlCellTypeBlanks).Areas
                With area.Offset(-1).Resize(area.Cells.Count + 1)
                    .Cells(1).AutoFill Destination:=Range(.Address), Type:=2
                End With
            Next area
        End If
    End With
End Sub

 

[HücrelereFısıldayanAdam]

Ben de bu tarz şeyleri kullanıyorum, öğrenmek amacıyla..soruyorum. Amacınız nedir? Ne işinize yarayacak.