Jeg har lavet mig et loop for første gang nogensinde.
I dette loop skal første del af loopet kun udføres hver gang værdien i kolonne A eller C ændrer sig. Den anden del af loopet udføres så indtil en af de værdier ændrer sig. Min tabel kunne se ud som nedenfor: Rækkenavne Artnr Bogføringsdato LVP Sum af Menge 500148 7413 10.02.2020 29,95 1080 500161 7093 07.02.2020 14,95 970 500228 2116 10.02.2020 7,95 240 500228 7221 10.02.2020 43,75 225
Jeg forestiller mig noget i stil med et statement der siger at hvis værdien i en celle er forskellig fra cellen ovenfor så skal køre første del af loopet ellers skal den fortsætte til anden del af loopet. Men lige hvordan jeg skal skrive det er jeg ret meget i tvivl om.
With Sheets("VI") Lastrow = .Cells(.Rows.Count, 1).End(xlUp).Row
Dim SapGuiAuto As Object Dim SapApplication As Object Dim Connection As Object Dim session As Object Dim VALU1 As String Set SapGuiAuto = GetObject("SAPGUI") Set SapApplication = SapGuiAuto.GetScriptingEngine Set Connection = SapApplication.Children(0) Set session = Connection.Children(0) Application.DisplayAlerts = False
Jeg kan desværre ikke tolke din kode, måske andre kan :-)
Så jeg vil blot lige foreslå, hvis du har tid, at du måske kigger lidt på Excels stærke værktøj til at hente og transformere data (get data and transform). Det er under data menuen i excel og der er mange vejledninger online.
Min kode bogfører data i SAP. Så det er ikke så meget selve koden jeg skal bruge hjælp til. Kun hvordan jeg får lagt det ekstra loop ind før næste del af koden.
Synes godt om
Ny brugerNybegynder
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.
Ny bruger
Nybegynder
Opret
Preview
