22. januar 2007 - 18:00Der er
5 kommentarer og 1 løsning
Makro til at gennemløbe array og hente udvalgte oplysninger heri
Jeg har et array som jeg henter med følgende makrokode
Dim dataomraade As Variant a = Range("A2000").End(xlUp).Row dataomraade = Range("A11:Q" & a)
Jeg mangler en makro som skal gennemløbe array’et og hver gang den støder på en bestemt værdi i kolonne 11, f.eks. 139000, skal den fra samme række hente den numeriske værdi fra kolonne 14.
Alle forekomster af 139000 skal så kunne skrives til et nyt ark.
Er der nogen der har et bud på hvordan det gøres?
Mangler i yderligere oplysninger skal i bare sige til
Public Sub Hent() Dim dataomraade As Variant, I As Long, X As Long, A As Long A = Worksheets("Ark1").Range("A2000").End(xlUp).Row dataomraade = Worksheets("Ark1").Range("A11:Q" & A) X = 2 For I = 1 To UBound(dataomraade) If dataomraade(I, 11) = 139000 Then Worksheets("Ark2").Cells(X, "A") = dataomraade(I, 14) X = X + 1 End If Next End Sub
Har prøvet den, men synes ikke lige at den gik igennem. Jeg prøver at kigger lidt nærmere på det. Igen tak for hjælpen.
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.
