arkadaşlar hepinize merhaba,
sayın levetm bu kodları bana yazmıştı. kendisi şu an müsait olmadığı için cevap veremedi. daha sonra bana dönecek gerçi ama ben yinede sizlerden bu aşağıda yazılı olan kodların açıklamalarını öğrenmek istiyorum. hem işimi hızlandırmak hemde ne anlama geldiğini bilmek için. yani yaptığım şeyi öğrenmek istiyorum.
bu konuda yardımlarınızı bekliyorum.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:f]) Is Nothing Then Exit Sub
If Target.Column < 6 Then
Target.Next.Select
Else
Target.Offset(1, -4).Select
End If
If Target.Column = 5 Then
deg = Array(1, 2, 3, 4, 5, "aaa", "bbb", "ccc", "ddd", "eee")
For a = 0 To 8
If deg(a) = Target Then Exit Sub
Next
MsgBox "hatalı veri"
Target.Select
End If
End Sub
sayın levetm bu kodları bana yazmıştı. kendisi şu an müsait olmadığı için cevap veremedi. daha sonra bana dönecek gerçi ama ben yinede sizlerden bu aşağıda yazılı olan kodların açıklamalarını öğrenmek istiyorum. hem işimi hızlandırmak hemde ne anlama geldiğini bilmek için. yani yaptığım şeyi öğrenmek istiyorum.
bu konuda yardımlarınızı bekliyorum.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:f]) Is Nothing Then Exit Sub
If Target.Column < 6 Then
Target.Next.Select
Else
Target.Offset(1, -4).Select
End If
If Target.Column = 5 Then
deg = Array(1, 2, 3, 4, 5, "aaa", "bbb", "ccc", "ddd", "eee")
For a = 0 To 8
If deg(a) = Target Then Exit Sub
Next
MsgBox "hatalı veri"
Target.Select
End If
End Sub