DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Exceldestek()
son = Range("A65500").End(3).Row
siir = Range("A1:A" & son)
Range("B1:B" & son).ClearContents
For a = LBound(siir) To UBound(siir) - 1
For b = a + 1 To UBound(siir)
If StrReverse(siir(a, 1)) > StrReverse(siir(b, 1)) Then
değer = siir(a, 1)
siir(a, 1) = siir(b, 1)
siir(b, 1) = değer
End If
Next
Next
Range("B1:B" & son) = siir
End Sub
TEŞEKKÜRLERMETNE dönüştürürseniz istediğiniz şekilde filtre yapabilirsiniz. Sayısal alanlarda bahsettiğiniz şekilde filtreleme olmaz.