en düşük ve en yüksek bulup biçimlendirme

[thekinger]

ekli excel dosyasının içindede detaylı sordum zaten, bazı sütunlarda en küçük ve en büyük değerlerin bulunmasını, renk değiştirmesini ve yeni formüle adapte olup sıralama yapmasını istiyorum. Yardımcı olursanız sevinirim.

 

[bzace]

Merhaba,
Sıralama hariç diğerlerine bakınız. Çıkmam lazım sıralama hakkında araştırma yaparak sonuca ulaşabilirsiniz.
Açıklamaları sayfa içinde değilde burdan yapsanız daha iyi olur.
Koşullu biçimlendirmeler için eki inceleyiniz.
Minumum değeri bulmak için;

=F10=MİN($F$10:$F$24)

Maksimum değeri bulmak için;

=F10=MAK($F$10:$F$24)

Maksimum değerin F: karşılığı için;

=İNDİS(B10:B24;KAÇINCI(I19;F10:F24;);1)

Diğer sonuca siz ulaşabilirsiniz.
Sıralama yapmak için ;

Sub sırala()
Application.ScreenUpdating = False
Range([COLOR="Red"][B]"B10[/B][/COLOR]:H23").Select
Selection.Sort Key1:=Range("H10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("H10").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Application.ScreenUpdating = True
End Sub

Bir butona atayınız.

 

[acar6783]

1. sorduğunuzu yapmışsınız sanırım ,
2. sorununuzu biraz daha acıklarmısnız?
h sütununda formuller var zaten. sormul olduğunuz formul hangi hücreye yapılacak?

 

[thekinger]

1. sorduğunuzu yapmışsınız sanırım ,
2. sorununuzu biraz daha acıklarmısnız?
h sütununda formuller var zaten. sormul olduğunuz formul hangi hücreye yapılacak?

Şöyle izah edeyim;
F sütunundaki en yüksek puan hangi satırda ise (burda B11 de) o satırı renkli biçimlendirsin veya sayıları tenklendirsin.
Sonra B sütununda en yüksek puanın satırında denk gelen fiyatı (B11 i yani) H sütunundaki formülde kullansın. Bunu yaptıktan sonra H sütununu küçükten büyüğe doğru sıralasın.
Sıralamayı yaparken yerler karışmamalı, yani H15 deki sonuç en küçükse ve en başa çıkacaksa, F,E,D ve B sütunlarındaki aynı satırlarda onunla beraber en üste çıkmalı.
Bilmem anlatabildimmi meramı mı

 

[thekinger]

[QUOTESıralama yapmak için ;

Sub sırala()
Application.ScreenUpdating = False
Range("F10:H23").Select
Selection.Sort Key1:=Range("H10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("H10").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Application.ScreenUpdating = True
End Sub

Bir butona atayınız.[/QUOTE]

Bu yukardaki kısmı kullanmam gerekiyormu? nasıl kullanacağımı bilmiyorum biraz açıklayabilirmisiniz?

 

[acar6783]

peki formül neden b11 ve h8 e bağlı bir formül
f11:f24 deki veriler ne işe yarıyorlar?

 

[bzace]

Yeniden merhaba,

Sıralama işlemini yapan kodu görmek için herhangi bir sayfa üzerine gelip sağ tuş / kod görüntüle yada ALT + F 11 tuşuna basınız ben bir butonun içine ekledim sayfanızda buton görünmesini istemiyorsanız , butonu silip Geliştirici / Makrolar seçeneğinden SIRALA'yı seçip çalıştır diyiniz.
Saat 10:27 #2 numaralı mesajdaki doyayı yeniden indirip deneme yapınız.

Not :#2 numaralı mesajda hücre aralığını yanlış yazmışım ben düzeltiyorum sizde alıntı yaptığınız yerde gerekli düzeltmeyi yapınız.

 

[thekinger]

Yeniden merhaba,

Sıralama işlemini yapan kodu görmek için herhangi bir sayfa üzerine gelip sağ tuş / kod görüntüle yada ALT + F 11 tuşuna basınız ben bir butonun içine ekledim sayfanızda buton görünmesini istemiyorsanız , butonu silip Geliştirici / Makrolar seçeneğinden SIRALA'yı seçip çalıştır diyiniz.
Saat 10:27 #2 numaralı mesajdaki doyayı yeniden indirip deneme yapınız.

Not :#2 numaralı mesajda hücre aralığını yanlış yazmışım ben düzeltiyorum sizde alıntı yaptığınız yerde gerekli düzeltmeyi yapınız.

Dosyayı yeniden indirdim. Sırala butonunu gördüm, üzerine basınca; sırala makrosu çalıştırılamıyor, makro bu çalışma kitabında olmayabilir veya tüm makrolar devre dışı bırakılmış olabilir, mesajı çıkıyor.
Ben sizlere göre çok amatörüm kusura bakmayın
Geliştirici/makrolar seçeneğini bulamadım ofis 2007 kullanıyorum.

 

[acar6783]

makro güvenlik ayarlarına girip oradan güvenlik seviyesi düşük olanını seçiniz
kaydedip kapatıp tekardan acıp deneyiniz

 

[bzace]

Forumda az arama yaparsanız böyle şeyleri bulabilirsiniz.
Geliştirici sekmesibni açmak için resimdeki uygulamayı izleyiniz ve tamam tuşuna basıp ilgili yerden ayrıınız.

 

[thekinger]

Geliştirici sekmesini falan açtım ama makroları serbest bırakmalımıyım? güvenlik nedeniyle kapalı. Açılmasının ne gibi mahsuru olabilirki?
eski excel dosyalarımı olumsuz etkilermi?