ik gebruik bijgaand script wat goed werkt
in mijn tabblad "data" is er een kolom waar formule instaat.
nu wil ik de waarde kopiëren en plakken ipv de formule naar de Doelsheets
in mijn tabblad "data" is er een kolom waar formule instaat.
nu wil ik de waarde kopiëren en plakken ipv de formule naar de Doelsheets
Code:
Sub Verdelen()
Dim x As Integer
Dim DoelSheet As String
With Sheets("Data")
For x = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
If Not .Rows(x).Hidden Then
DoelSheet = .Range("AX" & x).Value
If DoelSheet <> "" Then
.Range("A" & x & ":Z" & x).Copy Sheets(DoelSheet).Range("A" & Sheets(DoelSheet).Range("A" & Sheets(DoelSheet).Rows.Count).End(xlUp).Row + 1)
Sheets(DoelSheet).Cells(1).CurrentRegion.RemoveDuplicates 3
End If
End If
Next x
End With
End Sub