06. september 2007 - 11:23Der er
6 kommentarer og 1 løsning
Makro der henter den nyeste information i et worksheet
Hej, Jeg har to worksheets. Det ene er et indtastningsark (input) og det andet er en log som holder styr på alt hvad er er indtastet. Jeg har oprettet en makro som overfører det som er indtastet i inputarket til logarket og indsætter det på den første tomme række.
Hvis data indtastet i inputarket allerede findes i logarket (ens overskrift, navn, alder etc) men beløb blot er ændret, får den nye linie i logarket automatisk et nyt versionsnr (gammelt nr +1).
Min udfordring er nu at jeg skal bruge en makro som går ind og finder den linie som har det højeste versionsnr blandt linie som ser ens ud.
Eks:
Version Navn Højde Alder 1 Per 180 25 2 Per 180 26 1 Ole 175 22 2 Ole 175 23 1 Ib 190 24
Makroen skal så gå ind og hente linie 2, 4 og 5, idet disse tre er den nyeste version, og indsætte disse i et nyt worksheet.
koden checker kun på navn og højde, alder er ikke fast ?
Sub Version() Set sh1 = Sheets("Ark1"): Set sh2 = Sheets("Ark2") ' ret til aktuelle ark
For x = sh1.Cells(65500, 1).End(xlUp).Row To 2 Step -1 For y = 1 To sh2.Cells(65500, 1).End(xlUp).Row If sh1.Cells(x, 2) = sh2.Cells(y, 2) And sh1.Cells(x, 3) = sh2.Cells(y, 3) Then t = t + 1 Next If t = 0 Then sh1.Range("A" & x & ":D" & x).Copy sh2.Cells(Cells(65500, 1).End(xlUp).Row + 1, 1) End If t = 0 Next
Hej excelent, Tak for dit svar. Jeg får dog "Subcribt out of range" fejlmeddelse. Kan det skyldes at jeg faktisk skal sammenligne kolone A-E og ikke som jeg skrev i eksemplet A-C? Beklager den lange responstid, men har været udenbyes.
:-) havde nu rettet arkene. Jeg har fået hjælp fra en ven. Tror bare jeg skal sige nej til at lave makroer fremover. Tak for hjælpen dog. Du får pointene.
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.
