27. august 2007 - 12:37Der er
5 kommentarer og 1 løsning
Hvis/Lopslag i en Makro
Hej. Jeg har en lille udfordring som jeg håbede der var nogen der kunne hjælpe mig med.
Jeg skal have lavet følgende som en Makro.
Jeg har et regneark ”Renter mellemregning”. I denne fil findes der et ark der hedder ”eksport” (dette er grunddata filen).
Her udover har jeg et andet regneark ”Deldata PI”. I denne fil er der et ark der hedder ”rettelser” (dette er modtager filen).
Jeg skal have kopieret nogle data fra arket ”eksport” til arket ”rettelser”. Mere bestemt skal jeg have kopieret et beløb der står i kolonne K i ”eksport-arket” til kolonne E i ”rettelser-arket”. Det jeg i bund og grund behøver er at lave en Hvis-sætning/Lopslag i en makro der hedder:
Hvis produktnummeret i kolonne A i arket ”eksport” stemmer overens med produktnummeret i kolonne A i arket ”Rettelser”, skal beløbet der fra kolonne K (i eksport filen) kopieres til kolonne E i arket ”rettelser” udfor det rigtige produktnummer.
Hej Innoteck. Tak for dit svar det virker fint :-). Jeg har dog lige et lille spørgsmål. Hvordan sikre jeg mig at de steder der bliver søgt i "Eksport" arket, kun er i rækkerne 4 til 19, mens at de rækker der bliver søgt i, i "Rettelser" arket er fra 2 til 2875??
Antallet af rækker som gennemløbes (samt startrækken) bestemmes af løkkestrukturen "For ... Next", hvor 'For i = 4 To Antalraekker1' (Antalraekker1 = 19) vil gennemløbe rækkerne 4 til 19. (Tilsvarende for 'For x...')
Koden tilrettes som følgende: -----------------------------
Sub FlytData() Dim Belob As Integer Dim ProdNr As String
AntalRaekker1 = 19 'antal rækker med data i 'eksport' AntalRaekker2 = 2875 'antal rækker med data i 'rettelser'
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.
