Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
If
Not
Intersect(Range(
"B1:B3"
), Target)
Is
Nothing
Then
Dim
rngKW
As
Range, rngZi
As
Range
Set
rngKW = Rows(3).Find(Range(
"B1"
), , xlValues)
Set
rngZi = Columns(4).Find(Range(
"B2"
), , xlValues)
Application.EnableEvents =
False
Cells(rngZi.Row, rngKW.Column).Value = Range(
"B3"
)
Application.EnableEvents =
True
End
If
End
Sub