18. april 2007 - 16:30Der er
3 kommentarer og 1 løsning
Flytte tekst fra en celle til en anden
Jeg har følgende problem.I et ark med mange hundred adresser ønsker jeg at flytte post nr og by navn fra en en celle til en anden. I kolonne C står eks vejnavn og nummer C1 og i C2 står postnummer og by. sådan står det i hele c kolonnen skiftevis.Kan man lave en makro der flytter alle postnumrene og byerne fra C2 til D1 osv. således at jeg får adresserne på samme linje. Eksempel som det står C1 "Falkoneralle 48" C2 "2000 Frederiksberg" Kan dette lade sig gøre. MVH Petert
Sub FlytPostnummerBy() Dim C As Range Range("C1").Select Range(Selection, Selection.End(xlDown)).Select For Each C In Selection If IsNumeric(Left(C, 4)) Then C.Offset(0, 1) = C C = "" End If Next End Sub
Hej kabbak Den virker næsten 100%. Men der mangler lidt. Den flytter postnummer og by over i kolonne D, men den skal også flytte en række op. Eks C4=D3 eller C32=D31 hvis du forstår. Kan man også lave det sådan at man sletter alle tomme rækker. Årsagen er den at når postnr og by er flyttet vil hver anden række være tom, kan man slette den med en ny makro eller en tilføjelse i den nuværende?? 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.
