Prøv på en kopi, det er ikke specielt tydeligt hvad du har hvor
Sub test() rk = Sheets(1).Cells(65000, "A").End(xlUp).Row For t = 2 To rk ark = "LS_" & Cells(t, "G") rk1 = WorksheetFunction.Max(14, Sheets(ark).Cells(65000, "A").End(xlUp).Row) + 1 Range("A" & t & ":F" & t).Copy Sheets(ark).Cells(rk1, "A") Next End Sub
Tak for hjælpen. Jeg har rettet den til så den ser sådanne ud: ------------------------------------------------ Sub test() rk = Sheets("Klassifikation").Cells(65000, "A").End(xlUp).Row For t = 2 To rk ark = "LS_" & Cells(t, "G") rk1 = WorksheetFunction.Max(14, Sheets(ark).Cells(65000, "A").End(xlUp).Row) + 1 Range("A" & t & ":F" & t).Copy Sheets(ark).Cells(rk1, "A") Next End Sub -------------------- Jeg er dog usikker på hvad jeg skal definere rk1 som, da den stopper ved denne linje.
Ellers har du ramt kolonnerne korrekt - selvom jeg ikke havde fået oplyst om dette.
Jeg har ligeledes glemt at fortælle, at IBeløb, EPBeløb, RBeløb, EBeløb er formler, som jeg skal have kopieret over som værdier i format "#.###.##0,00".
Har jeg fået ændret noget i din oprindelige model nedenfor, der gør at den kopierer område A:F i række t+13 på baggrund af mappingen i kolonne H række t?
Funktionen kopierer ikke tallene i samme række som mappingen står i. Eksempelvis kopierer den A15:G15 i mappingarket og kopierer til LS_&H2
Kan jeg ligeledes ændre Selection = Selection.Value så den indsætter tallene uden formatering?
------------------------- 'Indsæt LS konti
Sheets("Mapping").Select
'Find antal konti i balance rk = Sheets("Mapping").Cells(65000, "A").End(xlUp).Row
'Kopier hver række i balance til ledig række i LS_mapping For t = 2 To rk
'Finder mapping LS ark = "LS_" & Cells(t, "H")
'Finder næste ledige række i mapping LS rk1 = WorksheetFunction.Max(14, Sheets(ark).Cells(65000, "A").End(xlUp).Row) + 1
'Kopierer mapping række A:G Range("A" & t & ":G" & t).Copy Sheets(ark).Cells(rk1, "A"): Selection = Selection.Value
'Konvertering af kopierede data til tal Sheets(ark).Range("A" & rk1 & ":G" & rk1) = Sheets(ark).Range("A" & rk1 & ":G" & rk1).Value
Det er linjen: Range("A" & 2 & ":G" & 2).Copy Sheets(ark).Cells(rk1, "A"): Selection = Selection.Value Der er årsag til problemet. Den indsætter formlen og ikke tallet. Formlen indeholder en SUM.HVIS på baggrund af kontonummeret.
Hvordan konverterer vi de kopierede data til tal inden de indsættes?
Ja men formlernes værdier ændre sig når de kommer over i rækken i LS_arket. Derfor har jeg brug for at de kopierede cellers indhold konverteres til værdier.
Kan man ikke ændre Range("A" & t & ":G" & t).Copy Sheets(ark).Cells(rk1, "A"): Selection = Selection.Value så indholdet allerede her fastlåses til værdier?
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.