Hej.
Jag använder mig av en kod som ser ut så här:
Sub Överför()
Dim c As Range
Dim j As Integer
Dim Source As Worksheet
Dim Target As Worksheet
Dim Target1 As Worksheet
Dim Target2 As Worksheet
Set Source = ActiveWorkbook.Worksheets("Start")
Set Target = ActiveWorkbook.Worksheets("Anläggning1")
Set Target1 = ActiveWorkbook.Worksheets("Anläggning2")
Set Target2 = ActiveWorkbook.Worksheets("Anläggning3")
j = 1
For Each c In Source.Range("E11:E100")
If c = "Anläggning1" Then
Source.Rows(c.Row).Copy Target.Rows(j)
j = j + 1
End If
Next c
For Each c In Source.Range("E11:E100")
If c = "Anläggning2" Then
Source.Rows(c.Row).Copy Target1.Rows(j)
j = j + 1
End If
Next c
For Each c In Source.Range("E11:E100")
If c = "Anläggning3" Then
Source.Rows(c.Row).Copy Target2.Rows(j)
j = j + 1
End If
Next c
End Sub
Mitt problem är att den kopierar över tidigare rader, jag har försökt med lastrow mm men lyckas inte. Någon som ser en lösning? Jag är ingen vba-guru direkt så dagisnivå gäller :)
Mvh Stefan