Ik heb een "data" tabblad waarbij de inhoud verdeeld wordt over tabbladen aan de hand van een voorwaarde in kolom AZ
dat werkt super. (script hieronder)
doch in de loop van de dag worden bepaalde velden in de data gewijzigd.
nu wil ik zelfde script laten draaien doch moeten bepaalde kolommen bijgewerkt worden.
alle kolommen in tabblad "data" komen overeen met die in de tabbladen van de doelsheets.
de vergelijkende key is kolom C de kolommen die moeten bijgewerkt worden in de doelsheets zijn "N-O-P-Q-R-S-T-U"
concreet moet hij dus
1. de dubbele rijen verwijderen (dit zit al in het script)
2. waardes bijwerken in bepaalde kolommen
dat werkt super. (script hieronder)
doch in de loop van de dag worden bepaalde velden in de data gewijzigd.
nu wil ik zelfde script laten draaien doch moeten bepaalde kolommen bijgewerkt worden.
alle kolommen in tabblad "data" komen overeen met die in de tabbladen van de doelsheets.
de vergelijkende key is kolom C de kolommen die moeten bijgewerkt worden in de doelsheets zijn "N-O-P-Q-R-S-T-U"
concreet moet hij dus
1. de dubbele rijen verwijderen (dit zit al in het script)
2. waardes bijwerken in bepaalde kolommen
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("AZ" & x).Value
If DoelSheet <> "" Then
.Range("A" & x & ":V" & 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
