29. november 2012 - 10:01Der er
8 kommentarer og 1 løsning
Sørning i kolonne om felt er tom herefter kopier eller spring videre
Hej Jeg er ved at lave en makro som gerne skulle lave en Pivot tabel fra nogle data som mine kollegaer selv kan generer. Mit problem er, at i "kolonne A" hvor navnet på overvaregruppen står, står navnet KUN i første linje, de efterfølgende linjer (hvor undergrupperne er specificeret i kolonne B) er så tomme i kolonne A indtil næste Overgruppe kommer og herefter gentager det sig.
Hvordan laver jeg en makro der: 1 Søger i celle A2: Hvis den finder noget springer den videre til A3, hvis den ikke finder noget kopier den fra cellen over og springer derefter videre til A3 2) denne søgning skal gentages hele vejen igennem kolonne A 3) hvordan får man stoppet denne proces igen
Denne side indeholder artikler med forskellige perspektiver på Identity & Access Management i private og offentlige organisationer. Artiklerne behandler aktuelle IAM-emner og leveres af producenter, rådgivere og implementeringspartnere.
Har lige en forlænget weekend, men får det testet på mandag.
Umiddelbart ser det pefekt ud.
Kan man selv bestemme hvor en skal starte eks. A4 så jeg kan lægge det ind i makroen, så risiker jeg ikke at de står i den forkerte kollonne når de starter makroen ??
Kan man evt. lave en slutning på makroen hvor den stopper hvis den har kopieret det samme navn eks. 15 gange ??
Sub fill() For x = 4 To 50 If tæller = 15 Then Exit Sub If Cells(x + 1, 1) = "" Then Cells(x + 1, 1) = Cells(x, 1) tæller = tæller + 1 Else tæller = 0 End If Next End Sub
Ja, nu kom Store-Morten mig i forkøbet, men da jeg ikke er helt sikker på hvad du mener med et intelligent stop og Store_Mortens forslag måske ikke opfylder dit ønske, får du mit forslag her. Mit gæt er at du ikke ønsker at fylde kolonne A længere ned end kolonne B går. Derfor har jeg ladet makroen checke om der står noget i kolonne B og så bliver makroen som følger:
Sub fill() For x = 5 To 100 If Cells(x, 2) = "" Then Exit Sub If Cells(x, 1) = "" Then Cells(x, 1) = Cells(x - 1, 1) End If Next End Sub
Hvis det ikke er det du ønsker, må du forklare det lidt mere detaljeret
Tusind tak for jeres brugbare løsning. Store-Morten: Du kom med den løsning jeg havde tækt på - SUPER jens48: Du kom med en endnu bedre løsning - PERFEKT
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.
