VBA variabel har "forkert" værdi
Jeg har en længere VBA som kort fortalt importerer et txt til Excel. Arket er timeregistreringer for flere steder. Derefter laver jeg et opslag mod en liste og sletter via filterfunktionen dem som ikke tilhører det sted brugeren har valgt.Så skal jeg lave yderligere opslag på den tilbageværende mængde, og her går det så galt.
Jeg er en smule novice og derfor er min proces for at skabe opslag som følger:
Cells(1, 14).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-10],'" & "Opslag'!R1C7:R14C8,2,FALSE)"
Selection.Copy
Selection.AutoFill Destination:=Range(Selection, Selection.Offset(IntsidsterækkenrKon1 - 2, 0))
Columns(14).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Altså vælg celle, skriv en formel, kopier formlen og indsæt den så fra cellen jeg står i, til et celle nr defineret af en variabel - i dette tilfælde IntSidsteRækkenrKon1. Den variabel er skabt af:
Do
x = x + 1
Loop Until Worksheets("kontrolfil").Cells(x, 16) = ""
IntsidsterækkenrKon1 = x - 1
Problemet er at denne variabel først skal udregnes efter jeg har slettet som forklaret ovenstående, og af en eller anden grund udregnes den før sletningen.
Er der en måde at sikre variablen først udregnes efter sletningen?
Lang forklaring for måske simpelt spørgsmål - jeg håber det er forståeligt.
Udfordringen er at jeg har prøvet at køre denne del på arket efter jeg manuelt skaber dokumentet ud fra txt, og her fungerer den fint - og txt-importdelen er skabt af en anden, så jeg kan ikke rette i det.
