Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("P10:P26,G10:G26,L10:L26,M10:M26")) Is Nothing Then
sat = Target.Row
If Cells(sat, "P") = "Evet" Then
Cells(sat, "D") = "Konaklama"
Cells(sat, "H") =...