KK1966
02-04-2009, 02:07 AM
Hi
I have code below, but it was error’s, I have try many thing to solve it but nothing ok!!
Can someone help?? The intents that’s the range A36 to down if value >1 then the COL B same the cells would equal to cell H1”
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range(Target.Address), Range("A36:A" & Range("A36").End(xlDown).Row) Is Nothing And Target.Value > 1 Then
Target.Offset(0,1).Value = Range("H1")
End If
End Sub
I have code below, but it was error’s, I have try many thing to solve it but nothing ok!!
Can someone help?? The intents that’s the range A36 to down if value >1 then the COL B same the cells would equal to cell H1”
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range(Target.Address), Range("A36:A" & Range("A36").End(xlDown).Row) Is Nothing And Target.Value > 1 Then
Target.Offset(0,1).Value = Range("H1")
End If
End Sub