VBA: Udfylde huller i en tabel med variabel længde
Jeg sidder og arbejder på en automatisering af noget indlæsning. Jeg laver et udtræk af data, når jeg skal ligge det over i en indlæsnings-template er det vigtigt at der er tre kolonner som ikke har huller. Det har jeg når udtrækket laves.Hvordan udfylder man det nemmest? Dataen der skal stå deri er ens, så det er egentlig blot at identificere de huller der er.
Jeg tænkte først at jeg ville bruge autofilter, men hvordan ved jeg så hvor langt ned den skal indsætte (om der er 6 eller 18 linjer der mangler udfyldelse). Jeg gik således igang:
Sheets("Udtræk omsætning").Activate
Dim rngOmsArt As Range
rngOmsArt = _Application.WorksheetFunction.Match("OMSART", _Range("A1:S1"), 0)
Rows("1:1").Select
Selection.AutoFilter Field:=rngOmsArt, Criteria1:=""
Jeg vælger den omstændige vej til at definere kolonnen - men konkret er det altid kolonne K.
Men hvordan gør jeg det så nemmest - skal jeg have en variabel der sætter stop ved rækken hvor data slipper op?
Alternativt kunne jeg lave et loop som kontrollerer hver linje og sætter ind hvis den er tom - men der er omkring 10000 linjer, så måske det bliver for langsomt?
Slutteligt kan jeg måske programmere en form for ctrl pil ned løsning, og så lade den stoppe når den rammer bunden af antal rækker muligt.