Input Qeustion

[GoKu]

Hi All, I have 2 Collumns K & L. What I need is the following: If "6" is inserted into L, K must also then show "6" in the corresponding row, but if "6" is inserted into K, it must only show in K. Thnx

Excel Workbook
	K	L
9	Air Loader Driver:	HP Loader Driver:
10		6
11		6
12	6
Data

 

[Yard]

Code way:

RIght click worksheet tab, View Code, paste this:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = Cells(1, "L").Column Then
    If Target.Value = 6 Then Me.Cells(Target.Row, "K") = 6
End If
If Target.Column = Cells(1, "K").Column Then
    If Target.Value = 6 Then Me.Cells(Target.Row, "L").ClearContents
End If
Application.EnableEvents = True
End Sub

 

[Domski]

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K10:L" & Rows.Count)) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Column = 12 Then Target.Offset(0, -1) = Target.Value
End Sub

Dom