25. august 2008 - 20:42Der er
5 kommentarer og 1 løsning
VBA: Loop skal starte i en specificeret celle og arbejde sig ned
Jeg skal i nedenstående script starte i cellerne B4 og E4, og arbejde mig ned i rækkerne indtil sidste række.
Loopet fungerer udmærket, men bruger selvfølgelig kun dataen i B4 og E4, hvor den skulle gå B4 og E4, B5 og E5, og så fremdeles.
Mit script: -------------------------------- Sub Loop1() Open "C:\test.txt" For Append As #1 Dim i As Integer For i = 1 To Selection.CurrentRegion.Rows.Count - 1
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Sub Loop1() Open "C:\test.txt" For Append As #1 Print #1, "Test" Dim i As Integer For i = 1 To Selection.CurrentRegion.Rows.Count - 1
' tjekker om begge celler er tal, hvis ja, koden køres If IsNumeric(Worksheets("Ark1").Cells(i + 3, 2)) And IsNumeric(Worksheets("Ark1").Cells(i + 3, 5)) Then
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.
