Hej alla kunniga.
Jag har ett exelark jag fyller på med data från ett annat program, och kan sortera med filterfunktionen.
Jag har hårdkodat ett macro som hämtar ut statistik, men skulle vilja göra samma sak med annan input.
För varje artikel i kolumn D, så har jag gjort en ny macro för att få med informationen.

      Sheets("Input 2016").Select
    ActiveSheet.Range("$A$2:$M$160").AutoFilter Field:=4, Criteria1:="31278427"
    Range("H1").Select
    Selection.Copy
    Sheets("Output").Select
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Nu till frågan: Går det att göra ett macro där det själv gör en lop och hittar alla criteria som finns med i kolumn D?
och samtidigt lägga in informationen den får i en ny cell under varannat?.
Som ovan kod är så hämtar den informationen om artikel: 31278427 och lägger in den i output fliken i cell D3.
Om nästa artikel heter 31278428, så ska den ligga i cell D4. OSV.
Skulle det komma någon ny artikel, så måste jag gå in och lägga till den i koden som jag har det nu. Men kan macrot själv loopa igenom alla kriterier, så kommer eventuellt alla ny artiklar också med.
Hopas ni förstår vad jag vill åstakomma med detta.
MVH/ Jocke

Jag löste det själv med följande kod :)

Sub Macro2()
    
    Sheets("output").Select
    Range("c1").Select
    antal = ActiveCell.Value

    
    Sheets("output").Select
  
Dim X As Integer
    For X = 3 To antal + 2
        Range("c" & X).Select  'väljer art nr:
        Val = ActiveCell.Value


    Sheets("Input").Select
    ActiveSheet.Range("$A$2:$M$160").AutoFilter Field:=4, Criteria1:=Val
    Range("H1").Select
    Selection.Copy
    Sheets("Output").Select
    Range("d" & X).Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Next X
    

    
End Sub