sıfırdan büyük son dolu hücreyi bulmak

[zevki.sefali]

arkadaşlar h12:h41 hücreleri arasındaki sıfırdan büyük son dolu hücreyi makro ile a1 hücresine nasıl yazdıra bilirim.
Not:h12 den önceki ve h42 den sonraki hücrelerin bazıları boş bazıları dolu

 

[bmutlu966]

Sub bul()
Range("A1").Select
ActiveCell.FormulaR1C1 = "=MAX(R[9]C[7]:R[39]C[7])"
Range("A1").Select
End Sub

 

[bmutlu966]

Pardon sorunuzu yanlış anlamışım.

 

[zevki.sefali]

ben sıfırdan büyük son dolu hücreyi yazdırmak istiyorum.

 

[zevki.sefali]

arkadaşlar bu konuda yardım edebilirmisiniz ?

 

[halit3]

Bu kod işinizi görür herhalde

Sub son_dolu_hücre()
Dim i As Long
For i = 41 To 12 Step -1
If IsNumeric(Cells(i, "h")) = True Then
If Val(Cells(i, "h")) > 0 Then
Cells(1, "a").Value = Cells(i, "h").Value
Exit For
End If
End If
Next i
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Option Explicit
 
Sub BUL()
    Range("A1") = Evaluate("=INDEX(H:H,LARGE(IF(H12:H41>0,ROW(H12:H41),""""),1))")
End Sub

 

[zevki.sefali]

sn halit3 ve sn korhan ayhan yardımlarınız için teşekkürler..

 

[merakli_72]

Sayın Korhan bey;
bir yerde hatamı yapıyorum anlamadım ama sizin formülünüzde
0 dikkate alınmıyo fakat hücrelerdeki metinsel ifadeler dikkate alıyor son hücrede metinsel bir iafde varsa onu gösteriyor, metinsel ifadelein dikkate alınmaması sağlanabilirmi

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub BUL()
    Range("A1") = Evaluate("=INDEX(H:H,LARGE(IF(H12:H41>0,IF(ISNUMBER(H12:H41),ROW(H12:H41),"""")),1))")
End Sub

 

[merakli_72]

Teşekkürler