Hjælp til makro
HejJeg har et datasæt hvori at kolonne C er medarbejder numre, medarbejder numrene fremgår med flere rækker og forskellige antal rækker pr. medarbejder nummer.
Jeg vil gerne have indsat 3 tomme rækker under hvert sidste medarbejder nummer. Og derefter kopieret data i nogle af ovenstående kolonner.
Jeg har brugt denne programmerings kode:
Sub Rækker()
Dim Sidstecelle As String
Sidstecelle = Range("B17").End(xlDown).Row
Range("B" & Sidstecelle + 1).Select
ActiveCell.FormulaR1C1 = "Slut"
Dim startC As Long
Dim slutC As Long
startC = 17
slutC = 17
Dim iC As Long
Dim nuvaerendeC As String
nuvaerendeC = Range("C" & startC) ' medarbejder#
iC = 17
Do While Range("B" & iC) <> "Slut" ' søjle B
If Range("C" & iC) = nuvaerendeC Then
slutC = iC
Else
Rows(slutC + 1 & ":" & slutC + 3).Select
Selection.Insert Shift:=xlDown
Range("B" & slutC & ":" & "N" & slutC).Select
Selection.Copy
Range("B" & slutC + 1).Select
ActiveSheet.Paste
Range("B" & slutC + 2).Select
ActiveSheet.Paste
Range("B" & slutC + 3).Select
ActiveSheet.Paste
startC = iC
slutC = iC
nuvaerende = Range("C" & iC)
End If
iC = iC + 1
Loop
End Sub
Men den kører i ring efter den har indsat rækkerne, hvordan kan jeg få den til at forstå at når den har indsat rækkerne skal den starte forfra med medarbejder nummeret nedenunder de nye rækker??
Håber mit spørgsmål er klart nok.