Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([E16:E40], Target) Is Nothing And Target.Count = 1 Then
If Target.Offset(0, -2) <> "" Then Exit Sub
UserForm3.Left = Target.Left + 150
UserForm3.Top = Target.Top + 70 - Cells(ActiveWindow.ScrollRow, 1).Top
UserForm3.Show
End If
If Target.Count > 1 Then Exit Sub
ligne = Target.Row
If Not Intersect([C16:C40], Target) Is Nothing Then
Target = IIf(Target = "ü", "", "ü")
If Target = "" Then
Target.Offset(0, 4).FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC5,tablo,6,0)),0,VLOOKUP(RC5,tablo,6,0))"
Target.Offset(0, 5).FormulaR1C1 = "=RC[-1]*RC[-2]"
Target.Offset(0, 6).FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC5,tablo,7,0)),0,VLOOKUP(RC5,tablo,7,0))"
Else
Target.Offset(0, 4).Resize(1, 3) = ""
End If
End If
End Sub