Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column < 9 And Target.Column > 11 Then Exit Sub
If Target.Column = 11 Then
With Target 'offertes
If .Value = "Betaaltermijn" Or .Value = "Geen opdracht" Or .Value = "Geen voorraad" Or .Value = "Concurrent" Or .Value = "Offerte klopte niet" Or .Value = "Te duur" Or .Value = "Te oud" Or .Value = "Alternatief niet ok" Or .Value = "niet opgevolgd" Or .Value = "betaaltermijn" Or .Value = "geen opdracht" Or .Value = "geen voorraad" Or .Value = "concurrent" Or .Value = "offerte klopte niet" Or .Value = "te duur" Or .Value = "te oud" Or .Value = "alternatief niet ok" Or .Value = "niet opgevolgd" Then
Cells(.Row, 8).Value = "Ja" 'kolom H
Cells(.Row, 9).Value = "Vervallen" 'kolom I
Cells(.Row, 12).Value = CDate(Now) 'kolom L
Cells(.Row, 15).Value = "v" 'kolom M
Cells(.Row, 16).Value = "v" 'kolom P
Cells(.Row, 19).Value = "v" 'kolom S
Cells(.Row, 20).Value = Format(Date, "ww") 'kolom T
Cells(.Row, 22).Value = Cells(.Row, 22).Value + 1 'tellertje
'resultaat nee
ElseIf .Value = "Afspraak op dit moment niet nodig of cp belt zelf wel" Or .Value = "Cp gaat stoppen, is gestopt, bouwt af, met pensioen" Or .Value = "Heeft geen behoefte aan contact/relatie met Wasco" Or .Value = "Leverstop / Atradius / contantklant" Or .Value = "Ondanks herhaald bellen/mail is contact niet gelukt" Or .Value = "Op advies van VT niet bellen / vt heeft al contact" Or .Value = "O.b.v. segmentatie weinig potentie, bezoek van vt niet nodig" Or .Value = "Rayon wijzigen???" Or .Value = "Uitgeschreven bij KvK" Or .Value = "Vt kan bellen als hij in de buurt is" Or .Value = "Zelf leverancier / groothandel / tussenhandel / internetshop" Then
Cells(.Row, 12).Value = CDate(Now) 'kolom L
Cells(.Row, 13).Value = "Nee" 'kolom M
Cells(.Row, 15).Value = "v" 'kolom O
Cells(.Row, 16).Value = "v" 'kolom P
Cells(.Row, 19).Value = "v" 'kolom S
Cells(.Row, 20).Value = Format(Date, "ww") 'kolom T
Cells(.Row, 22).Value = Cells(.Row, 22).Value + 1 'tellertje
End If
End With
End If
If Target.Column = 9 Then
With Target
If .Value = "kansen" Or .Value = "order" Or .Value = "in behandeling" Then
Cells(.Row, 8).Value = "Ja" 'kolom H
Cells(.Row, 12).Value = CDate(Now) 'kolom L
Cells(.Row, 15).Value = "v" 'kolom M
Cells(.Row, 16).Value = "v" 'kolom P
Cells(.Row, 19).Value = "v" 'kolom S
Cells(.Row, 20).Value = Format(Date, "ww") 'kolom T
Cells(.Row, 22).Value = Cells(.Row, 22).Value + 1 'tellertje
'resultaat nee
ElseIf .Value = "vervallen" Then
Cells(.Row, 8).Value = "Ja" 'kolom H
Cells(.Row, 12).Value = CDate(Now) 'kolom L
Cells(.Row, 13).Value = "Nee" 'kolom M
Cells(.Row, 15).Value = "v" 'kolom O
Cells(.Row, 16).Value = "v" 'kolom P
Cells(.Row, 19).Value = "v" 'kolom S
Cells(.Row, 20).Value = Format(Date, "ww") 'kolom T
Cells(.Row, 22).Value = Cells(.Row, 22).Value + 1 'tellertje
End If
End With
End If
If Target.Column = 10 Then
With Target 'offertes
If .Value = "gg" Or .Value = "vm" Or .Value = "na" Then
Cells(.Row, 8).Value = "Ja" 'kolom H
Cells(.Row, 12).Value = CDate(Now) 'kolom L
Cells(.Row, 15).Value = "v" 'kolom O
Cells(.Row, 16).Value = "v" 'kolom P
Cells(.Row, 19).Value = "v" 'kolom S
Cells(.Row, 22).Value = Cells(.Row, 22).Value + 1 'tellertje
ElseIf .Value = "vervallen" Then
Cells(.Row, 8).Value = "Ja" 'kolom H
End If
End With
End If
Application.EnableEvents = True
End Sub