Belirli bir sayıdan büyük olan hücreleri listeleme

Katılım
28 Aralık 2007
Mesajlar
85
Excel Vers. ve Dili
M Excel
Altın Üyelik Bitiş Tarihi
05-12-2024
Arkadaşlar benim merak ettiğim soru bir sütunda örneğin 2600 ve üstünde olan sayı değerlerine ait kişileri başka bir tabloda sıralamak..Ekteki resimde görüldüğü gibi..
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Mümkündür. Sorunuzu küçük bir örnek dosya ekleyerek detaylı açıklarmısınız.
 
Katılım
28 Aralık 2007
Mesajlar
85
Excel Vers. ve Dili
M Excel
Altın Üyelik Bitiş Tarihi
05-12-2024
daha ayrıntılı olarak anlatmaya çalıştım. resim ektedir. teşekkürler.
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Resim değil, örnek bir excel dosyası ekleyerek açıklayınız.
 
Katılım
28 Aralık 2007
Mesajlar
85
Excel Vers. ve Dili
M Excel
Altın Üyelik Bitiş Tarihi
05-12-2024
örnek excel belgesi ektedir
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
2500 den büyük olanların sayısını E1 hücresinde hesaplayalım.

Kod:
=EĞERSAY(B2:B20;">2500")
Daha sonra aşağıdaki formülü F2 hücresine yazın ve dizi formülüne çevirdikten sonra alt satırlara kopyalayın.

Kod:
=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))))
Dizi formülü: Formülü hücreye yazdıktan sonra entera basmadan ctrl shift enter tuş kombinasyonu ile girişini tamamlayınız. Bu işlemden sonra formülün başına ve sonuna { } ayıraçları otomatik eklenecektir.

.
 

Ekli dosyalar

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,248
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Dosyanız ektedir.
VBA kodlama yaptım.:cool:
Kod:
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
 

Ekli dosyalar

Katılım
28 Aralık 2007
Mesajlar
85
Excel Vers. ve Dili
M Excel
Altın Üyelik Bitiş Tarihi
05-12-2024
ÇOK TEşekkürler arkadaşlar..
 
Üst