Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&, n, y, x
If Target.Column < 25 And Target.Row > 1 Then
i = Target.Row
n = Cells(i, 12)
y = IIf(Cells(i, 11) = "DD" And Cells(i, 16) = 1, 1, 0)
x = Application.CountIf(Sheets("TOP Warranty").Range("A3:A66"), n)
Cells(i, 25) = IIf(x * y > 0, "TOP WARRANTY", "")
x = Application.CountIf(Sheets("TOP Warranty").Range("G3:G48"), n)
Cells(i, 26) = IIf(x * y > 0, "Német TOP W", "")
y = IIf(Cells(i, 11) = "DG" And Cells(i, 16) = 1, 1, 0)
x = Application.CountIf(Sheets("TOP Warranty").Range("L3:L110"), n)
Cells(i, 27) = IIf(x * y > 0, "Tunéz TOP W", "")
End If
End Sub