Min nuvarande kod är:
If Vald_box = 1 Then Sheets("Rec LMK").Select Range("A5:D24").Select Selection.Copy Sheets("Reg,Bh,Kk").Select Range("A19").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ElseIf Vald_box = 2 Then Sheets("Rec LMK").Select Range("E5:H24").Select Selection.Copy Sheets("Reg,Bh,Kk").Select Range("A19").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
osv för alla olika recept. Men då jag har över 100 recept letar jag efter en kod som gör att jag inte behöver skriva koden 100 gånger. Om programmet t.ex. hittar referensvärdet i cell B4 så vill jag att den ska returnera allt som står i cellerna A5:D24.
|
|