19. maj 2010 - 09:31Der er
5 kommentarer og 1 løsning
Flytte et celle indhold til anden celle
Hvordan laver jeg en formel der, hvis der står noget bestemt i en celle så skal den flytte indholdet til en ny celle.
Det skal lige siges at i den kolonne der skal flyttes til kan der godt stå noget i nogle celler som ikke må overskrives.
Forklaring: Hvis der står noget i C5 skal det flyttes til B5 som er tom, hvis der ikke står noget i celle Cx skal det ikke flyttes da der så står noget i celle Bx i forvejen
Hvis jeg forstår dit spørgsmål korrekt er det så ikke bare at bruge = tegnet altså stå i celle feks B5 og indtaste = og så klikke på den celle der skal kopieres?
Jeg er ret ny til VBA, så flg. kan sikkert gøres med mindre kode:
Sub loopCells() Dim iRow As Integer 'Rækken der arbejdes med Dim sColum As String 'Kolonnen der arbejdes med Dim sColTo As String 'Kolonnen der skrives til iRow = 1 'Sæt hvilken række der startes fra sColum = "C" 'Sæt hvilken kolonne der skal læses fra sColTo = "B" 'Sæt hvilken kolonne der skal skrives til Do While Range(sColum & iRow).Value <> "" 'Så længe der er data I kolonne "læsekolonnen" If Range(sColTo & iRow).Value = "" Then 'Hvis der ikke er noget i vores "Skriv-til-kolonne" Range(sColTo & iRow).Value = Range(sColum & iRow).Value 'Skriv data fra "læse"- til "til"-kolonnen Range(sColum & iRow).Value = "" 'Sæt "læsekolonnen" til ingenting End If 'Afslut Hvis iRow = iRow + 1 'Forbered læsning af næste række Loop 'Afslut loopet End Sub
Jeg tror ikke der er nogen måde at gøre det på uden makrokode
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.