Maksimum değeri taşıyan satırı bul

[tanayhan]

Herkese selam,

Forumda yeniyim ve bu ilk sorum. 15 Satır ve 15 kolondan oluşan (A17:O31) bir listem var. Bu listede I17:I31 alanında bulunan değerler arasından maksimum değeri buluyorum ve koşullu biçimlendirmeyle maksimum değeri taşıyan hücrenin bulunduğu sırayı sarı ile renklendiriyorum. Buraya kadar herşeyi yapabildim. Ancak; Maksimum değeri taşıyan hücrenin bulunduğu satırın otomatik olarak seçilmesini ve bu satırdaki A, C, D, F, H, J, K, L, M, N, O hücrelerindeki değerlerin B3:B13 hücrelerine otomatik olarak aktarılmasını istiyorum. Sanırım bunun için VBA koduna gereksinim var ve bu konuda henüz çok acemiyim. Yardımcı olacak arkadaşlara şimdiden çok teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aramıza hoşgeldiniz.

Ekteki örnek dosyayı incelermisiniz.

 

[tanayhan]

Teşekkürler Sayın Korhan Ayhan

 

[cashuacos]

kodu biraz açıklarmısınız
If Not EN_BÜYÜK Is Nothing Then
Range("A" & EN_BÜYÜK.Row & ":O" & EN_BÜYÜK.Row).Select

özellikle if den sonraki kısmı açıklarsanız sevinirim.tam olarak anlayamadım.ilginiz için teşekkürler...

 

[cashuacos]

Niçin if not kullanıldı acaba?açıklarmısnız..

 

[Korhan Ayhan]

Selamlar,

Sn. cashuacos,

Bu işlemi yaparken FIND (BUL) komutunu kullandım. Bu komut aranan değeri bulamadığı zaman Set ibaresini kullanmadığınız zaman hata mesajı verir. Bu hata mesajını ortadan kaldırmak amacıyla Set komutu ile tanımlanır. Eğer bu komut ilede aranan değer yoksa sonuç NOTHING (YOK) olarak gerçekleşir. İşte işin püf noktası bundan sonra başlıyor.

Bizim kullandığımız komut If Not EN_BÜYÜK Is Nothing Then komutudur. Bu komutun sözdizimini açarsak;

If (eğer)
Not (olumsuzluk önekidir)
EN_BÜYÜK (bizim tanımladığımız değerdir)
Is Nothing (sonucun yok ile sonuçlandığını kontrol ediyoruz)
Then (ise)

Yani tam türkçesi ile sonuç aşağıdaki şekilde olacaktır.

Eğer (If) aradığım değer (EN_BÜYÜK) yok sonucu ile (Is Nothing) sonuçlanmadıysa (Then) istediğim işlemi yap.

Umarım açıklayıcı olmuştur.