formül varken sıralama yapmak

[ankara34]

selamlar ,
düşeyara ile tabloya sayılar çekiyorum ama örn: 100 satırlık bir tabloda sayıları büyükten küçüğe sıralayamıyorum.
klasik copy özel yapıştırdan değerleri yapıştırdığım zaman sorun olmuyor ama ben dinamik bir arama yaptıgımdan bu yöntem işime yaramıyor.
yardımcı olabilirmisiniz teşeşkür ederim

 

[Mahir64]

Merhaba,

Örnek dosya ekler misiniz? https://dosyam.org

 

[ankara34]

Merhaba,

Örnek dosya ekler misiniz? https://dosyam.org

Merhaba Mahir bey ,

alakanız için teşekkür ederim
dediğiniz adrese örnek dosya ekledim .

Bilgi Bilgi dosyam.org

 

[Mahir64]

Örnek dosyayı inceleyin.

Silinebilir: https://dosyam.org/Z8d/ankara34.xlsx

B2 hücresine,

=+BÜYÜK(G:G;SATIR(A1))

A2 hücresine,
DİZİ formülüdür.

=İNDİS($F$1:$F$1000;KÜÇÜK(EĞER(B2=$G$1:$G$1000;SATIR($G$1:$G$1000)-SATIR($A$1)+1);EĞERSAY($B$2:$B2;$B2)))

yazarak aşağı yeteri kadar çekin.

 

[ankara34]

Mahir bey, ilgi ve alakanız için çok teşekkür ederim.

 

[Mahir64]

Fikir verecektir.

İyi çalışmalar.

 

[ankara34]

Fikir verecektir.

İyi çalışmalar.

Mahir bey, excelde yeni sayılırım

uğraşarak yapmaya çalışıyorum, akşam formülasyonu deneyeceğim umarım yapabilirim

sizede iyi çalışmalar dilerim kolay gelsin

 

[ankara34]

Fikir verecektir.

İyi çalışmalar.

Mahir bey , sizin gönderdiğiniz formülü diğer kısma adapte edemiyorum

dosyayı yükledim. dosya içerisinde ifade etmeye çalıştım.
ilgilenirseniz sevinirim , iyi çalışmalar dilerim

Bilgi Bilgi dosyam.org

 

[ÖmerFaruk]

ARA Makronuzda bu işi direkt bitirseniz olur mu?

Columns("I:J").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("M7:N8"), CopyToRange:=Range("Q1:R1"), Unique:=True
For i = 2 To Range("Q" & Rows.Count).End(3).Row
    Range("S" & i) = WorksheetFunction.VLookup(Range("Q" & i), Range("V:W"), 2)
Next i
Range("S2:S" & i - 1).NumberFormat = "#,##0.00"
Range("Q2:S" & i - 1).Sort Key1:=Range("S1"), Order1:=xlDescending

 

[ankara34]

ARA Makronuzda bu işi direkt bitirseniz olur mu?

Columns("I:J").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("M7:N8"), CopyToRange:=Range("Q1:R1"), Unique:=True
For i = 2 To Range("Q" & Rows.Count).End(3).Row
    Range("S" & i) = WorksheetFunction.VLookup(Range("Q" & i), Range("V:W"), 2)
Next i
Range("S2:S" & i - 1).NumberFormat = "#,##0.00"
Range("Q2:S" & i - 1).Sort Key1:=Range("S1"), Order1:=xlDescending

Ömer bey , yatmadan foruma bakayım dedim ilgi ve alakanız için teşekür ederim
bu daha güzel oldu sadece bir sıkıntı var onuda makroya ilave ederseniz tam olacak ,



sil butonuna bastıgımda osembol , kez sütunlarını siliyor yüzde sütununu silmiyor . bunu ekleme imkanınız var mı ?

teşekkür ederim.

 

[ÖmerFaruk]

Eliniz alışsın biraz, çok zor değil.
Sil kodlarınızın ilk satırında Hangi sütunların silineceğine dair bir kod var. Onu kendinize göre düzenleyebilirsiniz. Bir tane garf değiştireceksiniz sadece.

 

[ankara34]

Eliniz alışsın biraz, çok zor değil.
Sil kodlarınızın ilk satırında Hangi sütunların silineceğine dair bir kod var. Onu kendinize göre düzenleyebilirsiniz. Bir tane garf değiştireceksiniz sadece.

Ömer bey , teşekkürlerler kendimi Neil Armstrong gibi hissettim.
ilk defa vba da bir işlem yaptım. Öğrenmenin yaşı yok derler artık vakit buldukça birşeyler karalayacağım.

sizin nezdinizde yardımlarını esirgemeyen @Mahir64 beye ve bu ortamı sağlayan forum yönetimine teşekkür ederim .

iyi günler