DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [H:H]) Is Nothing Then Exit Sub
If Target = 100 Then Range("A" & Target.Row & ":B" & Target.Row) = "X"
If Target = 101 Then Range("B" & Target.Row & ":C" & Target.Row) = "X"
If Target = 102 Then Range("C" & Target.Row & ":D" & Target.Row) = "X"
If Target = 103 Then Range("D" & Target.Row & ":E" & Target.Row) = "X"
If Target = 104 Then Range("E" & Target.Row & ":F" & Target.Row) = "X"
If Target = 105 Then Range("F" & Target.Row & ":G" & Target.Row) = "X"
If Target = "" Then Range("A" & Target.Row & ":G" & Target.Row) = ""
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [H:H]) Is Nothing Then Exit Sub
If Target = 100 Then Range("A" & Target.Row & ":A" & Target.Row) = "X"
If Target = 101 Then Range("A" & Target.Row & ":B" & Target.Row) = "X"
If Target = 102 Then Range("A" & Target.Row & ":C" & Target.Row) = "X"
If Target = 103 Then Range("A" & Target.Row & ":D" & Target.Row) = "X"
If Target = 104 Then Range("A" & Target.Row & ":E" & Target.Row) = "X"
If Target = 105 Then Range("A" & Target.Row & ":F" & Target.Row) = "X"
If Target = 106 Then Range("A" & Target.Row & ":G" & Target.Row) = "X"
If Target = "" Then Range("A" & Target.Row & ":G" & Target.Row) = ""
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [H:H]) Is Nothing Then Exit Sub
If Target = 100 Then Range("A" & Target.Row & ":A" & Target.Row) = "X"
If Target = 101 Then Range("A" & Target.Row & ":B" & Target.Row) = "X"
If Target = 102 Then Range("A" & Target.Row & ":C" & Target.Row) = "X"
If Target = 103 Then Range("A" & Target.Row & ":D" & Target.Row) = "X"
If Target = 104 Then Range("A" & Target.Row & ":E" & Target.Row) = "X"
If Target = 105 Then Range("A" & Target.Row & ":F" & Target.Row) = "X"
If Target = 106 Then Range("A" & Target.Row & ":G" & Target.Row) = "X"
If Target = 107 Then Range("A" & Target.Row & ",c" & Target.Row) = "X"
If Target = 108 Then Range("A" & Target.Row & ",C" & Target.Row & ",E" & Target.Row) = "X"
If Target = "" Then Range("A" & Target.Row & ":G" & Target.Row) = ""
End Sub