CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede chicoboy Novice
27. maj 2012 - 17:31 Der er 1 kommentar og
1 løsning

Gennemsøg kolonne - kopier data til højre

Jeg har brug for en makro som gennemsøger alle celler i kolonne E. Hvis cellen har noget indhold skal indholdet og alt der står i cellerne til højre kopieres/flyttes en tak til højre.

Fx

Der står noget i E7+F7+G7 - det skal flyttes til F7+G7+H7.
Det står ikke noget i E8 - altså gøres ikke noget
Der står noget i E9+F9 - det skal flyttes til F9+G9.
osv.

Hvis der står noget i en celle i kolonne E er der ingen tomme celler til højre hen til sidste data i rækken.
Avatar billede Chaper Nybegynder
27. maj 2012 - 19:01 #1
Kan det her bruges?

Sub Flyt()

Dim rg As Range
Dim cell As Range

Set rg = Range("E1")
Set rg = Range(rg, rg.Offset(ActiveSheet.UsedRange.Rows.Count - 1, 0))
rg.Select

For Each cell In rg
    If cell <> "" Then
        Range(cell, cell.Offset(0, 3)).Copy
        cell.Offset(0, 1).PasteSpecial
        cell = ""
    End If
Next

End Sub
Avatar billede chicoboy Novice
27. maj 2012 - 19:38 #2
Tak det ser ud til at virke fint.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Power Query Af djsimonsen i Excel 0 52 minutter siden -
Hvis ikke på liste, tilføj værdier til liste Af TheLibrarian i Excel 3 I dag 14:43 37 minutter siden
Makro kode Af djsimonsen i Excel 1 09/08/202415:03 09/08/202415:12
Hent en værdi fra en fil til en anden hvis kriterie er opfyldt Af Danny R i Excel 1 09/08/202412:21 09/08/202412:50
Pivot automatisk filtrering Af djsimonsen i Excel 2 09/08/202410:48 09/08/202412:39
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
52 min siden Power Query Af djsimonsen i Excel
I dag 14:43 Hvis ikke på liste, tilføj værdier til liste Af TheLibrarian i Excel
I dag 11:33 Windows 11 Af ranni i Windows
I dag 10:09 Hent meddelelse i Outlook 2007 mail. Af ejgil703 i E-mail programmer
I går 20:35 Falsk advarsel fra Windows Defender Af valby i Windows
White papers
Flere white papers »


Premium
Teaser billede
Seks ransomware-grupper bag mere end 50 procent af de store angreb: Se listen her
Læs mere »
Fyringsrunde på vej: Fremtiden for Ciscos 150 medarbejdere i Danmark svæver i det uvisse - her er selskabets melding om den danske forretning
Microsoft på vej med nyt gebyr til OneDrive-brugere: Vil slette konti og opkræve penge for at genoprette
Danske kommuner blokerer for flere Google-tjenester for at kunne fortsætte med Chromebooks i skolerne
Se alle »
Computerworld
Teaser billede
Prøvekørt: Den smukke Polestar 4 er en spøjs elbil man let bliver forelsket i
Læs mere »
Apple på vej med sin mindste computer nogensinde
Den næste iPhone tager form: Her er alt vi ved om den kommende iPhone-portefølje
Vigtig opdatering sendes ud: Sikrer at Intel-processorer ikke brænder sammen
Se alle »
CIO
Teaser billede
Alvorlig sårbarhed hos SAP giver hackere adgang til kundernes systemer: "Angriberen kan kompromittere systemet fuldt ud"
Læs mere »
IBM’s mainframe-forretning har fået comeback
It-leverandør står over for millionbøde efter ransomware-angreb: Lykkedes ikke med at beskytte vigtige oplysninger
Virksomheder står over for store it-omkostninger: Mere end hver 10. pc kan ikke køre Windows 11
Se alle »
Job & Karriere
Teaser billede
Efter 12 år er NNIT's hovedkvarter i Søborg nu ryddet og tomt - alle arbejder hjemme: "Det er med et vist vemod"
Læs mere »
KMD-direktør forlader selskabet: Det skal hun nu
Dansk top-profil trækker sig fra Microsoft: Skal være direktør i TDC Erhverv
IBM Danmark skifter ud i sin øverste ledelse - her er den nye direktion
Se alle »
White paper
Teaser billede
Få mere ud af din cloudinfrastruktur og gør op med de konstant stigende omkostninger
Læs mere »
Optimering af Source-to-Pay: Identificér oplagte gevinster og skær omkostninger
Sådan får du overblik og beskytter dine cloudapplikationer
Opdag fordelene ved cloud-baseret backup og recovery
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »