Soru B SUTUNDA + VE - VERİLER

[hüseyin551]

A SUTUNDA FİRMALAR B SUTUNDA + VE - VERİLER VAR. BEN - VERİLERİN BÜYÜKTEN KÜÇÜĞE DOĞRU EN BAŞA SIRALANMASINI VE + VERİLERİN EN SONDAN BÜYÜKTEN KÜÇÜĞE DOĞRU SIRALANMASINI ISTIYORUM BOŞ FİRMALARIN GÖZÜKMESİNİ İSTEMİYORUM. ŞİMDİDEN İLGİNİZ İÇİN TEŞEKKÜR EDERİM

 

[Ömer]

Merhaba,
Bu şekilde deneyin.
Not: Detaylı deneme yapmadım.

Sub Sartli_Sirala()
    
    Dim son As Long, e As Long, a As Long, s As Long
    
    Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
    
    son = Cells(Rows.Count, "A").End(xlUp).Row
    
    Range("A2:B" & son).Sort Range("B1"), xlAscending
    
    If WorksheetFunction.CountIf([B:B], "<0") > 0 Then
        e = Evaluate("LOOKUP(2,1/(B2:B" & son & "<0),ROW(B2:B" & son & "))")
        Range("A2:B" & e).Sort Range("B1"), xlDescending
    Else
        Range("A2:B" & son).Sort Range("B1"), xlDescending
        e = 1
    End If
    
    If WorksheetFunction.CountIf([B:B], ">0") > 0 Then
        a = Evaluate("LOOKUP(2,1/(B2:B" & son & ">0),ROW(B2:B" & son & "))")
        Range("A" & e + 1 & ":B" & a).Sort Range("B" & e + 1), xlDescending
    End If
    
    If WorksheetFunction.CountIf([B:B], "0") > 0 Then
        s = WorksheetFunction.Match(0, [B:B], 0)
        Rows(s & ":" & son).EntireRow.Hidden = True
    End If
    
    Application.ScreenUpdating = True
    
End Sub

 

[hüseyin551]

formuller ile yaparmısın makroyu bilmiyorum. makroya kopyaladım ama olmadı ilginiz için teşekkür ederim

 

[Ömer]

Ekteki dosyada, makro ve formül olarak 2 ayrı sayfa mevcuttur. Size uygun olanı tercih edersiniz.