PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerVBAVBAKopiera en tabell efter angiven referensKopiera en tabell efter angiven referens
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2017-08-03 09:01
 
 Ändrad av JanneAlbin  på 2017-08-03 09:01:45
Hej! Jag håller på att utveckla ett excel dokument för det företag jag jobbar på. Företag analyserar kort sagt stickprover från asfalt och grus för att sedan kontrollera om de uppfyller vissa krav. Kraven är inskrivna som så kallade "recept" med olika värden. Olika typer av prov har olika typer av krav/recept och därför kan det vara jobbigt att ständigt kopiera och klistra in olika recept för varje prov. Därför har jag börjat med att utveckla en makro där jag skriver en siffra i en cell (exempelvis 1, 2... Varje recept har ett tilldelat till sig ) och sedan trycker på en "OK" knapp. När jag aktiverar makrot letar den efter det inskrivna numret och automatiskt kopierar det receptet som har den siffran tilldelad. Om jag exempelvis skriver "1" i referenscellen kommer den leta efter receptet med siffran 1 på sig och sedan kopiera tabellen med värden till området som visar vilket recept det är. Jag vet inte hur lätt det var att förstå min förklaring ovan... Men kort sagt söker jag efter en funktion som i princip gör detta: Letaupp ett värde som matchar referensvärdet som jag själv skrev, i bladet med alla recept; Kopiera receptet/tabellen som ligger precis under det värdet. (Tabellens storlek är 4x17 celler); Klistra in tabellen i området. Jag hittar ingenstans där jag kan infoga bilder för att göra det mer förståeligt. Hoppas det gick att tyda.
Nytt inlägg
 2017-08-03 09:04
 
 Ändrad av JanneAlbin  på 2017-08-03 12:02:43
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.
Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBAKopiera en tabell efter angiven referensKopiera en tabell efter angiven referens

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter