Otomatik Yenileme

[barbar5454]

Merhabalar,

Bir çalışma içerisindeyim ve bunu excel ile yapmam istendi. Mantıken kafama yatıyor ama uygulama kısmında excel de biraz sıkıntı yaşadım ve sizlerle paylaşmak sizlerden yardım almak istedim.

Bir puan tablomuz var 100 satırlı liste ve 20 sütunlu değer girişli, yapmak istediğim şey değer girdikçe otomatik yenilenmesi ve tabloda da görüldüğü gibi sağ kısımda TOP 5 kısmı olması. Yani değer girdikçe en yüksek toplam puana ulaşan satır en üstte gözükmesini istiyorum. Bu konuda bana acil yarım edermisiniz? Olursa birde 20 sütun içinde en yüksek değeri girilen satır ı da ayrı bir yerde tek başına görmek istiyorum. Tablo örneği ektedir.

Diğer bir değişle tablo üzerinden de örnek vereyim.. C3-C102 / V3-V102 aralığına girilen değerler W3-W102 satırında toplanıyor. W sütunundaki en yüksek değere ulaşan satırı en üstte otomatik filtrelenmesini istiyorum.(ama nasıl yapacağımı bilmiyorum). En yüksek değeri alan hücre ve satırında Y14 ve değerinin AB14 hücresinde görmek istiyorum.



Yardımlarınız için şimdiden teşekkür ediyorum.
Saygılar..

 

[ASLAN7410]

Merhaba.

Aşağıdaki kodu alt kısımda Puan Tablosu'na sağ klik kod görüntüle yapın, açılan boş sayfaya aşağıdaki kodu yapıştırın, isteğiniz olacak galiba.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B3:V102")) Is Nothing Then
    Application.Calculation = xlAutomatic
    Range("B3:W" & Sheets(1).[B65536].End(3).Row).Sort Key1:=[W3], Order1:=xlDescending
End If
End Sub

Ayrıca

Y14 hücresine =B3, AB14 hücresine =W3 yazın.

bu hücrele yazın.

 

[barbar5454]

Ekli dosyayı görüntüle 208792

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B3:V102")) Is Nothing Then, Application.Calculation = xlAutomatic Range("B3:W" & Sheets(1).[B65536].End(3).Row).Sort Key1:=[W3], Order1:=xlDescending End If End Sub

Hocam denedim ama değer girdiğimde böyle bir hata alıyorum

 

[ASLAN7410]

Bende hata vermiyor.

 

[barbar5454]

Çok teşekkür ederim son inceleme ve kontrolleri yapıyorum çok sağolun.

 

[ASLAN7410]

Sayın barbar5454 then yazan kısmın sonundaki virgül işaretinden dolayı hata veriyordu galiba.

 

[ASLAN7410]

Excel dosyasını yeniden yükledim.

 

[ASLAN7410]

Çok teşekkür ederim son inceleme ve kontrolleri yapıyorum çok sağolun.

Geri dönüş için, teşekkürler. Hayırlı geceler.

 

[barbar5454]

Geri dönüş için, teşekkürler. Hayırlı geceler.

Hocam bişey daha soracağım AB14 hücresinde sıkıntımız var W3 hücresini değilde diğer değer girdiğimiz hücrelerden en yüksek girilen hangisiyse onu gösterme şansımız varmı?

 

[ASLAN7410]

Bu soru beni aşıyor, bekleyin başka arkadaşlar yardımcı olabilir.

 

[barbar5454]

Tamam tekrar çok teşekkür ediyorum sizlere.

 

[ASLAN7410]

İstediğiniz bu galiba,

AB14 hücresine =MAK(C3:V102) bunu yazın.

 

[barbar5454]

İstediğiniz bu galiba,

AB14 hücresine =MAK(C3:V102) bunu yazın.

evet hocam AB14 hücresi için oldu ama kaçırdığım bişey AB14 de yazan satırın B satırı neresi olacak yanı takım adı (Y14 hücresi)

 

[ASLAN7410]

Y14 hücresine =B3 bunu yazın, istediğiniz oluyor galiba.

 

[barbar5454]

Yok o zaman olmuyor hocam. Mesela B5 takımı için yer alan değerler sırayla 50-55-60 diyelim ama B40 takımının tek değeri var 70 diyelim. AB14 hücresi 70 değerini algılıyor fakat Y14 hücresi B40 takımı demiyor

 

[ASLAN7410]

Benden bu kadar, başka arkadaşlar İnşaAllah ilgilenir.

 

[barbar5454]

Tekrar tekrar teşekkür ediyorum size en azından siz sordukça ben sıkıntımı daha açık anlatabildim. İnşallah bu sıkıntıyı da çözebiliriz

 

[ASLAN7410]

AB14 hücresine =MAK(0;C3:V102) bu şekilde yazın.

Y14 hücrenin çözümü için indis ve kaçıncı formülünü uyguluyorum, ama hep hata veriyor.

 

[ASLAN7410]

Yardımcı sütun ile sorun çözüldü gibi, o sütunun rengini beyaz yapar yada gizlerseniz olur.

 

[barbar5454]

Yardımcı sütun ile sorun çözüldü gibi, o sütunun rengini beyaz yapar yada gizlerseniz olur.

Ne diyeceğimi bilemedim hocam. Çok ama çok teşekkür ederim. Ellerinize sağlık gece gece çok uğraştınız. Allah razı olsun sizden..