08. juli 2008 - 09:28Der er
4 kommentarer og 1 løsning
VBA - indsæt/kopiér rækker
Jeg har et budget liggende i et regnark med kunder i kolonne A og omsætning i kolonne B. Jeg ønsker nu at opdele omsætningen pr. kunde på måneder, så jeg efterfølgende kan trække budgettet ind i en pivot-tabel.
Jeg skal derfor bruge en makro, som laver 12 ens rækker ud af hver enkelt række - altså indsætter 11 nye rækker og kopierer den øverste ned til de 11 nye. Efterfølgende skal der så sættes månedsangivelse på i kolonne C, men det finder jeg selv ud af.
Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
Sub TST() r = Selection.Row: r2 = Selection.Rows.Count For t = r2 + 1 To r + 1 Step -1 Cells(t, 1).Resize(11, 1).EntireRow.Insert Next r2 = Cells(65500, 1).End(xlUp).Row For t = r To r2 Step 12 Range("A" & t & ":B" & t).AutoFill Destination:=Range("A" & t & ":B" & t + 11), Type:=xlFillCopy Next 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.
