skok v zadnjo celico,ki je večja od 0

[rick]

pozdravljeni,
no že v naslovu sem poskušal povedati,kaj me teži.
primer:
v stolpcu od a1:a100 imam vrednosti(ki so večje od 1)
od a101:a1000 pa so vrednosti 0.
torej,kako bi z makrom dosegel,da bi me postavilo v celico a100,
torej, to je zadnja celica v stolpcu a , ki je večja od vrednosti 0.
upam, da naloga ni prehuda.
za odgovor se najlepše zahvaljujem.
lp rick

[cedra]

Nekaj takega:

Koda: Izberi vse

Sub isci()
    Dim i
    i = 1
        Do While Not Cells(i, 1).Value < 0
            Cells(i, 1).Select
            i = i + 1
        Loop
End Sub

[admin]

Preprosto; postavite se na zadnjo celico in berete navzgor, dokler je vrednost enaka 0:

Koda: Izberi vse

Sub NajdiCelico()
  Dim vrstica As Long
  vrstica = Range("A65536").End(xlUp).Row
  
  Do While ((Cells(vrstica, 1).Value = 0) And (vrstica > 1))
    vrstica = vrstica - 1
  Loop
  
  If (Cells(vrstica, 1).Value > 0) Then
    MsgBox "Najdena celica A" & vrstica
  Else
    MsgBox "Celice ne najdem!"
  End If
End Sub

[rick]

hvala obema za pomoč
lp rick

[admin]

U poglej no, pa res sva dva... Mnogokrat spregledam, da je kdo pred mano že odgovoril saj od branja vprašanja do časa, da zapišem odgovor včasih preteče kar nekaj vode...