09. oktober 2008 - 12:37Der er
4 kommentarer og 1 løsning
List Tekst fra en kolonne til nyt område
Jeg skal bruge en måde at finde de celler som ikke indeholder et tal, og liste dem op i arket fra A70 og nedefter, er der en som har en god løsning? Der må ikke være mellemrum fra A70 og nedefter.
C6 F6 Kurt 16401 Allan DIS Jens 16403 Hans 16404 Viggo 16405 Erik 15211 Don SYG Glenn DIS John DIS Per 16407
Sub KopierTilA70() i = 70 For Each c In Sheets(1).Range("f1:f10").Cells If Not IsNumeric(c) Then Range("a" & i).Value = c.Offset(0, -3).Value Range("b" & i).Value = c.Value i = i + 1 End If Next c End Sub
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.