28. juni 2016 - 13:09Der er
5 kommentarer og 1 løsning
Lav løkke indtil rækken er tom
Hej Jeg har et regneark med en masse oplysninger. Jeg har selv lavet en VBA kodning for lopslag, men mangler nu, at få lavet en løkke, som kører mit lopslag så længe der står noget i rækken i kolonne B. Når der ikke længere står noget, skal lopslaget ikke længere laves. Er der en her inde, der kan hjælpe mig? Jeg må lige skrive, at jeg er temmelig grøn, hvad VBA programmering angår.
På forhånd tak for jeres svar :o) Med venlig hilsen Karin
Hvad mener du med så længe der er noget i rækken? Snakker vi du vil fjerne data når de er behandlet? Eller snakker vi du ønsker at arbejde på de rækker der er noget i og den skal køre fra top til bund, så længe der er data i rækken?
Hvis du sender din nuværende vba kan vi nemmere se hvad der sker og hvor vi skal "sætte ind". Jeg forestiller mig en do while Bx<>"" sådan lidt firkantet sagt, men prøv at vise os din kode.
Det er køre fra top til bund, men kun så længe der er udfyldt i kolonne B, da det drejer sig om en prisliste, hvor produkter bliver oprettet og andre udgår. Min kode ser således ud:
Sub Lopslag() ' ' Lopslag Makro '
Dim iRow As Integer Dim iColumn As Integer iRow = 4 iColumn = 2 Do Until IsEmpty(Cells(iRow, iColumn)) = True
ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-6],'[Vareliste med alt.xlsx]Ark1'!R1C1:R3033C99,8,FALSE)" Range("H5").Select
En lille modifikation: Sub Lopslag() ' ' Lopslag Makro Dim iRow As Integer Dim iColumn As Integer lastrow = Range("A" & Rows.Count).End(xlUp).Row iColumn = 2 For iRow = 4 To lastrow Cells(iRow, iColumn).Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-1],'Aark1'!R1C1:R3033C99,2,FALSE)" Next iRow End Sub
UNDSKYLD kim1a, opdagede lige, at jeg aldrig fik markeret dit forslag som løsningen. Det er hermed gjort!
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.