DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EĞERSAY(B2:B20;">2500")
=EĞER(SATIRSAY($F$2:F2)>$E$1;"";İNDİS($A$2:$A$20;KÜÇÜK(EĞER($B$2:$B$20>2500
;SATIR($A$2:$A$20)-SATIR($A$2)+1);SATIRSAY($F$2:F2))))
Sub ikiyuzelliyigecenler()
'coder:evrengizlen@hotmail.com
Range("A1").AutoFilter
Range("F2:F" & Rows.Count).Clear
Range("A1").AutoFilter field:=2, Criteria1:=">2500"
Range("A1").CurrentRegion.Offset(1, 0).Copy Range("F2")
Range("A1").AutoFilter
End Sub