Jeg har opretter et excel projekt, hvor jeg - pr. kunde - skal indsætte et eller flere ark, med data som skal konsolideres på et allerede eksisterende ark. Data på de indsatte ark er ikke strukturet ens, men der er indhold i felter i kolonne A, som kan anvendes som "triggere". Processen er at jeg først indsætter det nye ark med data. På det eksisterende ark, skal der være en sammentælling af enheder. Enhederne er listet i kolonne A. der er en overskrift "Enhed A" og derefter er der angivet 1,2,3... osv til den rammer et blankt felt. Derefter kommer "Enhed B" som også er angivet med 1,2,3... (for antallet af enheder.) Derefter indsætter jeg det næste ark - hvor der skal ske det samme osv. Arkene er navngivet ud fra data der er indhentet - jeg har ikke indflydelse på denne navngivning.
Slutteligt skal jeg ende op med en sammentælling der viser antallet af "Enhed A", "Enhed B", "Enhed C" op til 7 forskellige enheder.
Håber jeg har formålet at formulere spørgsmålet rimelig klart.
Nej det har jeg ikke - har lige set på den. Vil det kræve en manuel handling, hvergang jeg indsætter et nye ark - eller kan den sættes op til at se på et specifikt antal ark?
Jeg kender ikke funktionen i detaljer, men jeg kunne forestille mig, at den gemte opsætningen, hvis du gemte regnearket efter at have foretaget konsolideringen. Herefter vil du kunne tilføje nye ark relativt nemt. Men, ja, det skal nok foretages manuelt.
Jeg har prøvet forskellige ting - og jeg kan ikke umiddelbart finde en løsning, som helt holder. Så jeg vælger den manuelle vej. Tak for inspirationen. Er det normal praksis at tildele point, hvis der ikke fremkommer et svar?
Det afgør du helt suverænt! Pointene er en kvittering for, om de forslag, du har fået, enten har løst dit problem eller inspireret dig i din videre søgning eller til en alternativ løsning.
Jeg er her ikke for pointenes skyld.
Du får et svar her. Og så er afgørelsen ellers din. Læg selv et svar og fordel så evt. pointene efter et skøn - eller afvis blot mit svar og accepter dit eget.
Ved ikke om det er helt det du efterspørger. Denne makro løber alle ark i en workbook igennem på nær det første ark, hvor tallene konsolideres. Den tager værdierne i cellerne i kolonne A. Hvis det istedet er antallet af celler med indhold, kan det nemt tilrettes.
Sub konsolider() Dim værdier() Set ws = ActiveWorkbook.Worksheets wscount = ws.Count betegnelse = Array("A", "B", "C", "D", "E", "F", "G") ReDim værdier(UBound(betegnelse)) For arr = 0 To UBound(betegnelse) For i = 2 To wscount myrow = ws(i).Range("a65536").End(xlUp).Row myarr = ws(i).Range("a1:a" & myrow + 1).Value For x = 1 To UBound(myarr, 1) If myarr(x, 1) = "Enhed " & betegnelse(arr) Then Do While myarr(x + z + 1, 1) <> "" z = z + 1 værdi = værdi + myarr(x + z, 1) Loop Exit For End If Next x z = 0 Next i værdier(arr) = værdi værdi = 0 Next arr Sheets(1).Range("a1:a7") = Application.Transpose(værdier) End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
