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
skok v zadnjo celico,ki je večja od 0
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
lp,
cedra
cedra
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
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator