Har två cellområden def. som tabeller. I kolumnerna efter tabellerna finns färdiga formler. När jag manuellt drar ut tabellen så att ytterligare en kolumn ingår finns formlerna kvar i det utvidgade tabellområdet samtidigt som grafer över tabellerna uppdateras.

Men eftersom detta ska göras ofta vill jag göra ett mackro. Hur kan jag referera till sista kolumnen i tabellen, så att makrot fungerar även gång 2, 10 och 50?

Ett alternativ är att makrot infoga en kolumn sist i tabellen, men då finns inte formlerna. Finns det en funktion som kan dra över formlerna från fåregående kolumn kanske?

Sub test1()

'

' test1 Makro

'

    ActiveSheet.ListObjects("CVLåg").Resize Range("$A$31:I$51")

    ActiveCell.Select

    ActiveSheet.ListObjects("BiasL").Resize Range("$A$54:I$75")

    ActiveCell.Select

End Sub

Försöker förklara lite tydligare. 

Jag har ett ark med data med flera tabeller

Lägst ned en tabell med "rådata" för i detta fall analysen ALAT  och de kontroller som analyserats på olika analysinstrument. Dessa ska jämföras så vi ser att alla analysinstrument ligger lika i vår region. Tabellen med rådata uppdateras med ny data varje kvartal.

När data för ett nytt kvartal har lagts in i den nedre tabellen, så skriver man in på rad 5 vilket lotnummer som kontrollmaterialet har och benämningen på kvatalet för det lotnumret läggs in på rad 4. På rad 6 räknas medelvärdet för samtliga instrument under aktuellt kvartal ut.

När detta är gjort vill får jag manuellt dra ut tabellen för CV% och %Bias så att den nya kvartalet inkluderad i dessa tabeller. Det är detta som jag vill ha ett makro för.

Som du ser på bilden så ligger det redan formler i kolumnerna efter sista kolumnen för tabelll CV% och %Bias. Fördelen med det är att i rubrikraden där det står 0 ligger hänvisning till cellen för kvartalet, så att rätt kvartal automatiskt skrivs in i rubriken (hittade inget sätt att göra det i själva tabellen som automatiskt skriver in en rubrik som inte stämmer). 

Jag har spelat in ett makro när jag drar ut tabellerna, men makrot blir för ett specifikt tabellområde. Nästa gång som makrot ska köras så slutar inte tabellen på tex G51 utan F51 och inget nytt händer därför med tabellen. Så hur kan jag skriva i makrot för att det ska veta vilken den sista cellen är i tabellen?

Det är en lite uppgift som kan göras manuellt, men då det förutom denna analysen ALAT finns 90 analyser till och varje analys har 2 olika kontrollnivåer så hade det varit till hjälp med ett makro.

Formeln i tabell CV% ska hämta CV% för ett specifikt instrument&lotnummer&kvartal från tabellen med "rådata" längst ned i arket. I cell G32 står =INDEX(RådataL[[%CV]:[%CV]];PASSA(G$4&G$5&$A32;RådataL[[Kvartal]:[Kvartal]]&RådataL[[Lot number]:[Lot number]]&RådataL[[Analyser]:[Analyser]];0))

Formeln i tabell för %Bias ska räkna ut biasen mellan medelvärdet för samtliga instrument medelvärdet för kontrollkörningarna på ett specifikt instrument i G55 står =(G10-G$6)/G$6