Alleen kolom A verplaatsen

[TIMO83]

Bij het gebruiken van de volgende formule gaat de hele rij naar een werkblad. nu wil ik echter alleen kolom A copieren. In kolom A staan de relnr en in kolom L de vertegenwoordiger. de werkbladen zijn vernoemd naar de vertegenwoordiger.

Sub Macro1()
Application.ScreenUpdating = False
Range("L4:L3500").Select
i = 2
For Each objcel In Selection
If objcel.Value = "TIMO SNIJDERS" Then
i = i + 1
Range("a" & objcel.Row).EntireRow.Copy _
Destination:=Sheets("TSS").Range("A" & i)
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Macro2
End Sub

Ik kom er maar niet achter hoe het anders moet. Alvast bedankt voor de moeite.

Timo

 

[Hans123]

vervang Range("a" & objcel.Row).EntireRow.Copy door Range("a" & objcel.Row).Copy

 

[TIMO83]

Ok dat was niet zo slim van mij helemaal niet aan gedacht. Dank je wel hans voor het snelle en eenvoudige antwoord.