Hjälp med vba-kod

[Stefan Flink]

Jag håller på med ett enklare lagersystem. Tanken är att delar som används ska läggas in på rätt anläggning (olika flikar). Mina kunskaper är begränsade men jag har kommit en liten bit. Mitt problem nu är att varje rad jag skickar över till nya flikarna skriver över det som redan finns där,  jag har försökt med några taffliga försök att få till att det ska skrivas till första lediga rad men får inte till det, finns det någon med mer kunskaper än mig som skulle kunna få ordning på det?

 

Koden 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

 

Mvh Stefan

[Stefan Flink]

Tack!

Det hjälpte mig framåt. Den gör som jag vill nu men jag får följande meddelande, Körfel nr 9, Indexet är utanför intervall. Den hänvisar till raden

Set Target = ActiveWorkbook.Worksheets(c.Value)

 

Jag har lagt in koden i egen modul, så det inte var några konflikter med andra koder men det hjälpte inte..

[Stefan Flink]

Hej.

Tack för hjälpen.

Mina flikar som den skulle kopiera till bestod utav siffror vilket koden tydligen inte gillade, därav felmeddelandet Körfel nr 9, Indexet är utanför intervall. Nu verkar det lira som det är tänkt.

mvh Stefan