24. januar 2011 - 14:39Der er
4 kommentarer og 1 løsning
Knap med macro, til at flytte tal mellem ark
Jeg har lavet et ark(1) med en masse udregninger, og så har jeg 8 felter hvor de er summeret. Disse tal vil jeg gerne have flyttet til et nyt ark(2), men de skal flytte til en bestemt række udfra en dato som er indtastet i ark1, ved hjælp af en knap. Eksempel
A B C D E F 1 01-01-11 2 02-01-11 25 87 26 35 45 3 03-01-11
Ark 1 vil blivet ændret dag for dag men ark 2 skal kunne huske på tallene. Er ikke helt ind i det med makroer, så håber der er nogle der kan hjælpe. Bare skriv hvis jeg ikke har forklaret mig godt nok. På forhånd tak
Du skriver at der er data i 8 felter der skal flyttes men i dit eksempel har du kun 5 datafelter?
Men ellers for at få præciseret:
De data der skal flyttes står altid i A1:A5 (eller A1:A8)? Der står en dato i et andet felt (hvilket?) I ark 2: står der datoer i kolonne A, og i den række hvor datoen fra ark 1 findes, skal data fra ark 1 flyttes til kolonne B-F (eller B-I)?
Altså grunden til 5 stk. data er ren dovenskab :). Mit regneark er meget mere kompliseret end det jeg har skitset ovenover.
Men hele humlen er at jeg har 8 celler som jeg får nogle sum i, som jeg vil have flyttet over på et andet ark. På ark2 har jeg datoerne fra december månede f.eks. På ark1 kan man skrive værdier ind og får resultat i de 8 celler og man skriver dato i et andet. Det jeg vil have er en knap der kan flytte de 8 resultater over på ark2 under den rigtig dato. Så har jeg nemlig også en knap der renser ark1 for indtastede tal.
Håber det hjælper, hvis ikke kan jeg da sende mit excelark så du kan se hvad jeg mener
Grunden til at jeg spørger er at jeg er nødt til at vide præcis, hvorfra og hvortil der skal flyttes data for at kunne lave en stump kode der gør det du gerne vil.
Så send gerne dit ark, så ser jeg på det i morgen aften. Hvis ikke det er tidsnok, kan det være der er en anden der har tid før. Jeg sender dig lige en privat besked med min email.
For en god ordens skyld viser kommer den stump kode der løste opgaven lige her, så alle kan se løsningen:
Sub Overføretal_Klik() Dim rMatch As Range
Set rMatch = wsArk2.Range("A:A").Find(wsArk1.Range("B5").Value) If Not rMatch Is Nothing Then wsArk1.Range("P9:P16").Copy rMatch.Offset(0, 1).PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True End If 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.
