28. marts 2011 - 20:32Der er
5 kommentarer og 1 løsning
Makro VBA - Loop ned igennem liste returner værdi til anden celle såfremt værdi ikke 0
Hej Rødder!
Jeg ved at der sidder én derude og slikker sig om munden over de nemme point, men jeg kan simpelthen bare ikke knække nøden.
Mit problem er som følger:
Jeg har en liste med nogle faste parametre i de første kolonner, derefter kommer der nogle værdier. For at lette noget indlæsningsværk vil jeg "forkorte" listen ved at sortere de rækker fra der indeholder værdien 0. Jeg er ikke interesseret i en autofilter løsning, men en VBA løsning.
En simplificeret skitse kunne se således ud:
A B 1111 500 2222 0 3333 0 4444 0 5555 1000
Jeg forestillede mig noget i retning af: Skriv aktivcelleværdi såfremt værdien ikke er 0, hvis værdien er 0 søg da frem til næste celle med en værdi <> 0.
Resultatet skal bare smides et sted i det aktive ark....det er ikke så vigtigt det kan jeg selv finde ud af, men det er den der med at den skal finde næste værdi <> 0 der volder problemer.
1000 tak for forslaget......det virker, men det jeg var ude efter var at....hmmm hvordan forklarer jeg det bedst?
Det der kommer ud af din kode er alle værdier <> 0, men de bliver bare forskudt 4 kolonner så de fremkommer i samme række. Det jeg er ude efter er mere i retning af:
A B C 1111 500 500 2222 0 1000 3333 0 4444 0 5555 1000
Hvis det giver mening?
Altså at 0 værdi rækkerne ignoreres, og de værdier der er <> 0 sættes efter hinanden.
I øvrigt hvad er grunden til at du bruger c i din makro? c=cell? Ja jeg spørger bare fordi jeg har set forskelligt i forskellige makroer rundt omkring....har også tit set i brugt. Hvad er logikken?
Lækkert nok det virker! jeg forstår ikke helt denne del: "Cells(Cells(1000, 4).End(xlUp)" Cells(1000, 4) betyder det ikke række 1000, 4. kolonne? Den smider resultatet ind i d2, hvilket jeg går udfra den får fra "Offset(1, 0).Row, 4) = cigar"
Cells(1000, 4).End(xlUp).Offset(1, 0).Row finder næste ikke tomme celle, testet fra og med række 1000 og op
,4 indsætter værdier i kolonne 4 (D)
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.
