Eğer fonksiyonu kullanarak sıralamada hata

[tigerali950]

eğer formülünü kullanarak liste üzerinde sıralama yapmak istiyorum. Koşula bağlı yani ancak koşul içermeyen boş hücreye gelince en son sıra tekrarlasın istiyorum. ekteki dosyada olayı anlattım
İlgilenen arkadaşlara şimdiden teşekkür ederim....

 

[tigerali950]

Ustalar hallettim beyin hücrelerim ölmüş sağlıklı düşünüce buldum

 

[Milady Meriç]

Selam,

Bu makroyu belki seversin. Yıllardır kullanıyorum, alıntıdır.

Kolay gelsin.

Sub doldur()

Dim wks As Worksheet
Dim Rng As Range
Dim LastRow As Long
Dim col As Long

Set wks = ActiveSheet
With wks
   col = ActiveCell.Column


   Set Rng = .UsedRange  
   LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
   Set Rng = Nothing
   On Error Resume Next
   Set Rng = .Range(.Cells(2, col), .Cells(LastRow, col)) _
                  .Cells.SpecialCells(xlCellTypeBlanks)
   On Error GoTo 0

   If Rng Is Nothing Then
       MsgBox "Bos hücre yok"
       Exit Sub
   Else
       Rng.FormulaR1C1 = "=R[-1]C"
   End If

   With .Cells(1, col).EntireColumn
       .Value = .Value
   End With

End With

End Sub

 

[tigerali950]

Milady Meriç ilgi ve alakana teşekkür ederim. Şimdilik formulle çözümünü buldum.