Sub
Mail()
Dim
i
As
Long
With
Sheets(
"AÜ"
)
For
i = 4
To
99
If
.Cells(i, 12).Value = 1
Then
.Cells(i, 14).Value =
"Mail"
Else
If
.Cells(i, 12).Value = 2
Then
.Cells(i, 14).Value =
"Mail"
Else
If
.Cells(i, 12).Value = 3
Then
.Cells(i, 14).Value =
"Mail"
Else
If
.Cells(i, 12).Value = 4
Then
.Cells(i, 14).Value =
"Mail"
Else
If
.Cells(i, 12).Value = 5
Then
.Cells(i, 14).Value =
"Mail"
End
If
End
If
End
If
End
If
End
If
Next
End
With
End
Sub