Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Range("B9:b30")) Is Nothing Then Range("f9:g9").ClearContents Sheets(Target.Value).Range("b3").Copy Destination:=Range("f9") Sheets(Target.Value).Range("b4").Copy Destination:=Range("g9") 'Cells(1, 4) = Target.Value ' In nome del Foglio attivo End If Application.CutCopyMode = False Cancel = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim riga As Long On Error GoTo errori Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Range("B9:b30")) Is Nothing Then riga = Target.Row Range("f" & riga & ":g" & riga).ClearContents Sheets(Target.Value).Range("b3").Copy Destination:=Range("f" & riga) Sheets(Target.Value).Range("b4").Copy Destination:=Range("g" & riga) 'Cells(1, 4) = Target.Value ' In nome del Foglio attivo End If Application.CutCopyMode = False errori: Cancel = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub