CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

trajkovski Nybegynder

20. juli 2009 - 12:12 Der er 4 kommentarer

Loops i VBA

Hej

Jeg har et loop der ser således ud:
Do
Sheets("Forhandlingsenhed U+H sorteret").Activate
range("J" & start_celle_forhandling).Activate

ActiveCell.offset(1, 0).Select

start_celle_loensam = start_celle_loensam + 1
start_celle_forhandling = start_celle_forhandling + 1

Loop Until IsEmpty(ActiveCell.offset(1, 0))

Men jeg har det problem, at jeg ikke kan få den til at lave kørslen for den sidste celle - den stopper ved den næstsidste.

Hvad gør jeg forkert?

Synes godt om

Slettet bruger

20. juli 2009 - 12:29 #1

Nu kender jeg ikke rigtig noget til vba, men er det ikke muligt at udskifte:
Loop Until IsEmpty(ActiveCell.offset(1, 0))

Med noget ala:
Loop While Not ActiveCell.offset(1, 0) EOF

Synes godt om

Slettet bruger

20. juli 2009 - 12:48 #2

Nu har jeg leget en smule med loop, efter inspirationer fra personer her på side der er meget bedre
end mig, men jeg vil mene at du skal prøve noget i denne retning

Loop Until IsEmpty(ActiveCell) eller Loop until ActiveCell = 0

Du skal regne med at når du når til den sidste celle der skal beregnes, har du samtidig bedt den om at stoppe når cellen efter den der skal beregnes er tom, derfor beregnes cellen ikke.

Synes godt om

trajkovski Nybegynder

20. juli 2009 - 13:23 #3

Tak for jeres hurtige svar.

Nu har jeg prøvet at udskfite "Do" ud med "Do While Not IsEmpty(ActiveCell.offset(1, 0))" og "Do While Not IsEmpty(ActiveCell)". Stadig uden held. Jeg har også prøvet "Loop Until IsEmpty(ActiveCell)", men det hjalp heller ikke.

Jeg kan se, at den vælger den sidste celle, men den udfører ikke loopet for den sidste celle. Den vælger bare den sidste celle med indhold, og så stopper loopet.

Synes godt om

Slettet bruger

20. juli 2009 - 13:35 #4

Har du prøvet: Loop until ActiveCell = 0 eller Loop until ActiveCell = ""

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Ændre navn på folder Af bsn i VBscript	12	07/07/202312:45	09/07/202307:04
Outlook makro Af Webnoob i VBscript	6	09/02/202313:32	16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript	10	07/10/202200:43	07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript	2	22/04/202213:23	22/04/202214:55
Batch fil Af BDV i VBscript	1	12/01/202210:00	12/01/202210:05

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS