Hvordan kan en macro optage en værdi fra regnearket, til brug for filtrering af data?
Jeg har prøvet at skrive en lille macro, der laver data udtræk i et bestemt område. Det virker fint. Men jeg ønsker at kunne erstatte kriteriet i macroen med et kriterie der indtastes i regnearket. Der vil kunne være op til 100 kriterier, så listen bliver lang hvis kriteriet skal findes på vanlig måde.Her er en kopi af macroen
Sub b_lav_liste()
'
' b_lav_liste Makro
' her skal laves en kommando der opsamler Art_konto nummeret fra fanebladet.
Dim krit As Integer
krit = Range("N25")
Range("B25:G1055").Select
Selection.AutoFilter
' krit er det criterial der skal erstatt "2091" i neden stående llinje
ActiveSheet.Range("$B$25:$G$55").AutoFilter Field:=1, Criteria1:="2091"
Range("C26").Select
End Sub
Macroen er lavet i Exel 2010. Ved hjælp af funktionen: "Indspil macro"
