Excel - Lopeta macro kun tyhjä solu

Oletan, että ko. makro kävisi läpi A-saraketta rivi riviltä.
Lisää silmukkaan ennen Laske-makron kutsua:
if cells(i,1)="" then exit sub

Miksi loopata 300 kertaa ja kutsua makroa kun sen voi kutsua vain kerran ja tehdä jutut?

Itse asiassa tuon Laske macron takana on monta eri macroa, tuo tekee niin että taulukkoon tulee epämääräisesti dataa päivittäin, se voi olla esim 10 solua tai se voi olla 1000 solua mutta kaikki on sidottu päivämäärään, eli jokainen sama päivämäärä voi olla 50 solua = aina yksi laskenta erä jonka jälkeen se siirtelee laskennat toisille välilehdille ja palaa takaisin tuohon LoopMacroon, mikäli siellä ei ole enää dataa niin tuo oma tekele jatkaa silti sen 299kertaa laskien tyhjiä taulukoita.

Kokeilin ExitSub nimimerkin ehdotusta mutta se ei pysäytä tuota omaa macroa vaan jatkaa silti sen 300 kertaa tai mitä siihen on limiitiksi asetettu. Varmasti se toimii mutta jotain en nyt vaan tajua.

Joo no tehoton se on mutta kun yritin tehdä kerran Do While loopin niin se oli niin tehokas että jos olisin tehnyt sen viime vuonna niin se ajaisi vieläkin sitä samaa looppia, se ei koskaan pysähtynyt. Kun tämä tekele täytyy jättää oman onnensa nojaan ja pelästyin kun se vaan jatkoi ja jatkoi niin siksi tein tuohon limiitin 300 että varmasti pysähtyy viimeistään 300:n ajon jälkeen.

Määräävä solu on A-sarakkeessa ja kun A-sarake on täysin tyhjä niin sitten pitäisi myös makro lopettaa ja data alkaa A1 solusta loppu on määräämätön määrä, en voi sitä ennakolta tietää.

Mutta sain teiltä kummaltakin ison kopin, kiitos molemmille. Sovelsin sen näin ja tuntuisi toimivan.

Sub LoopMacro_one()
Dim i As Integer
For i = 1 To 300
dev = Worksheets("Data").Range("A" & i)
If dev = "" Then Exit For
Laske '<--kutsuu Laske macron ja ajaa sen 300 kertaa
Next i
End Sub

Paitsi että se ei aja viimeistä solua/soluja tyhjäksi pitäisi olla joku i i tai x x tai joku? Onko ideoita, en osaa.

Sub LoopMacro_one()
Dim i As Integer
For i = 1 To 300
dev = Worksheets("Data").Range("A" & i)
If dev = "" Then Exit For
Laske '<--kutsuu Laske macron ja ajaa sen 300 kertaa ( siis ajaa nyt tässä tapauksessa max 300 kertaa ) mutta kyllähän te sen tiesitte tietenkin.
Next i
End Sub

Paitsi että se ei aja viimeistä solua/soluja tyhjäksi pitäisi olla joku i i tai x x tai joku? Onko ideoita, en osaa.

----------------------------------------------------------------------------------

Soluissa A on päivämäärä joka on muutettu digitaaliseksi = DATEVALUE() ja sitten ne Sort:taan ja tuo datevalue määrää aina yhden ajokerran on niitä soluissa 1 tai 120 samaa numeroa se on aina yksi ajokerta ( tai loop).

Sarake A

Ensimmäinen ajo jonka jälkeen Laske makro poistaa nämä rivit kun on tehnyt muita toimintoja ja nostaa seuraavat valuet alkaen A1 soluun
42505
42505
42505

Toinen ajo jonka jälkeen Laske makro poistaa nämä rivit kun on tehnyt muita toimintoja ja nostaa seuraavat valuet alkaen A1 soluun
42504
42504
42504
42504
42504
42504
Kolmas ajo jne.
42503
Neläs ajo jne
42501
42501
42501
42501
Viides ajo jne.
42500
Mutta nämä viimeiset valuet jää syystä jostain ajamatta, ne pitäisi saada myös mukaan looppiin ja vasta kun A sarake on täysin tyhjä niin sitten Macro lopetetaan.
42498
42498
42498

Muutoin Sub LoopMacro_one() toimii eikä aja sitä enää 300 kertaa turhaan.