Hvis der er et ulige antal rækker skal "hullet" være ovre ved "Navn2". Alternativt kunne man fylde ud med X'er så antallet bliver lige? Makroen skal selv finde ud af hvor mange rækker og kolonner der er.
Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Det kan du. Makroen skal gå til sidste række og så skal du i en variabel definere nummeret på slutrækken, dette trækker du fra start rækken og dividere med 2. Så har du slutrækken og de antal rækker du skal have over. Af dette kan du definere området du vil flytte, simpelt og ligetil!
Test lige den her: Sub del() x = Application.WorksheetFunction.CountA(Range("A:A")) y = Application.WorksheetFunction.CountA(Range("1:1")) If WorksheetFunction.Odd(Int(x / 2)) Then z = Int((x) / 2) + 1 Else z = Int(x / 2) Range(Cells(z + 1, 1), Cells(x + 1, y)).Cut Cells(2, y + 1).Select ActiveSheet.Paste Range(Cells(1, 1), Cells(1, y)).Copy Cells(1, y + 1).Select ActiveSheet.Paste End Sub
Det ser ud til at virke perfekt :-) 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.
