Seçilen kolonların en son satırını bulmak hk.

[mumugul]

Merhaba,

Örnek olarak, 25 kolon içeren bir sayfanın bitişik herhangi 5 kolonunun son satırını nasıl bulabiliriz?
Bu 5 satıra tek tek bakıp en büyüğünü bulmak olası ama daha kolay bir yolu var mı?

Yardımcı olur musunuz?

Saygılarımla...

 

[çıtır]

Formülle aşağıdaki şekilde bulunur.Dizi formülleri .Formülünden ctrl+shift ve enter tuşlayarak çıkınız.

=BÜYÜK(EĞER($A$1:$E$1000<>"";SATIR($A$1:$E$1000));1)

=BÜYÜK(EĞER($F$1:$J$1000<>"";SATIR($F$1:$J$1000));1)

=BÜYÜK(EĞER($K$1:$O$1000<>"";SATIR($K$1:$O$1000));1)

 

[muygun]

Merhaba;
Örnek olmadan ne istediğiniz belli değil.
Verdiğim kod satırlarını döngü içinde yada lokal kullanabilirsiniz.

'maksimumm = WorksheetFunction.Max(Range(Cells(1, 1), Cells(1, 26)))
sonsütun = Cells(1, 256).End(xlToLeft).Column
maksimumm = WorksheetFunction.Max(Range("a1:z1"))
minimumm = WorksheetFunction.Min(Range("a1:z1"))
MsgBox (sonsütun & " son sütun")
MsgBox (maksimumm & " en büyük")
MsgBox (minimumm & " en küçük")

İyi çalışmalar.

 

[mumugul]

Merhaba,

Örnek dosya yükledim.

 

[çıtır]

Dosyanızın çözümü.

 

[Ziynettin]

Alternatif,

Sub Son_Satir()
    An_sat = Range("A:E").Find("?", , , , xlByRows, xlPrevious).Row
    İs_sat = Range("F:J").Find("?", , , , xlByRows, xlPrevious).Row
    İz_sat = Range("K:O").Find("?", , , , xlByRows, xlPrevious).Row
    MsgBox "Akarara :  " & An_sat & vbLf & _
                "İstanbul :  " & İs_sat & vbLf & _
                    "İzmir :  " & İz_sat, vbInformation
End Sub

 

[mumugul]

Hepinize çok Teşekkürler...

 

[çıtır]

Hepinize çok Teşekkürler...

Rica ederim.Dönüş yaptığınız için teşekkür ederim.