16. december 2009 - 10:54Der er
9 kommentarer og 1 løsning
Hjælp til makro kode
Hej alle Jeg har en projekt mappe jeg skal bruge til kladde,tilbuds skrivning og matriale bestilling. Mappen består af 3 ark. Kladde, tilbud og matrialer. Jeg har brug for hjælp til følgende kode jeg kan kører fra arket kladde. Hvis der i arket Kladde kolonne A er et tal, skal denne række kopires (kun cellene A;B;C;D;F)og indsættes i arket tilbud fra række 23 og ned efter. Koden skal gælde for hele arket Kladde Derudover skal koden gøre følgende Hvis der i arket Kladde kolonne I er et tal, skal denne række kopires (Kun cellerne I;J;K;L)til arket matrialer og indsættes fra række 10 og nedefter. Koden her skal også gælde for alle rækkerne i kladde arket.
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
Sub KopierTilAndreArk() 'Koper fra A-kolonne til Tilbud For Each c In Sheets("Kladde").Range("A:A").Cells If IsEmpty(c.Value) Then GoTo hertil: If IsNumeric(c.Value) Then rk = c.Row Range("A" & rk & ":F" & rk).Copy Sheets("Tilbud").Select If ActiveSheet.Range("A23").Value = "" Then Range("a23").Select ActiveSheet.Paste Else Range("A65536").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste End If Sheets("Kladde").Select End If
hertil: Next c 'Koper fra I-kolonne til MateriaLER For Each ci In Sheets("Kladde").Range("I:I").Cells If IsEmpty(ci.Value) Then GoTo dertil: If IsNumeric(ci.Value) Then rki = ci.Row Range("I" & rki & ":L" & rki).Copy Sheets("Materialer").Select If ActiveSheet.Range("I10").Value = "" Then Range("I10").Select ActiveSheet.Paste Else Range("I65536").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste End If Sheets("Kladde").Select End If dertil: Next ci End Sub
Hej Tak for svaret Jeg tror den er lige ved at være der men der sker noget fokert.
Den kører ligesom i ring og indsætter rækkerne i tilbud flere gange der ned af og den indsætter rækkerne i kolonne I i arket materialer og ikke i kolonne A på arket Materialer Hvis du bedre kan se problemet kan jeg sende excel mappen til dig hvis du har en mail. MVH Petert
Hej igen Det virker som det skal men kan du ikke ændre koden så den indsætter i kolonne A række 14 på arket materialer så virker det som det skal. ( jeg havde fået lavet noget ged i makroen.) Mvh Petert
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.
