insert changes in the sheet

Hello,
I hope to explain myself well
is possible in the attached file this modification?

Now at each change, inserting numbers, in columns F / G column E is updated

If column F is modified, in column L is inserted "prelevato"
If column G is modified, in column L is inserted "inserito"

I ask for a change:

each time the column F / G columns are changed, the sheet "modifiche" must be displayed



articolo / descrizione / U.M. / fornitore / data / if "prelevato" or if "inserito" / q.tà / username

for each change made in progressive sequence
I hope I explained myself
fc

In the code I marked my code modification as '=== My code correction ==='.

Private Sub Worksheet_Change(ByVal Target As Range)
    'per articoli disponibili
    
    
    Dim a()
    Dim MyText As String
                                      
       ActiveSheet.Unprotect "123456"
    
    'If Not Intersect(Target, Range("E:F")) Is Nothing Then
    If Not Intersect(Target, Range("F6:G" & Rows.Count)) Is Nothing Then
    
        If Target.Column = 6 Then
            MyText = "prelevato"
        Else
            MyText = "inserito"
        End If
        
        Application.EnableEvents = False
        Range("L" & Target.Row) = MyText
        Application.EnableEvents = True
        
'        ============ My code correction =====================
        a = Range("A" & Target.Row & ":L" & Target.Row).Value
        With Sheets("modifiche")
            With .Range("A" & .Cells(Rows.Count, "A").End(3).Row)(2)
                .Resize(1, 7) = Application.Index(a, 0, Array(1, 2, 3, 4, 11, 12, 10))
                .Offset(0, 4) = CDate(Left(a(1, 11), 10))
            End With
        End With
'       ==============================================
   Application.EnableEvents = False
   
    'ActiveSheet.Unprotect "123456"
       
 '------------------------------------------------------------------------
    If Not Intersect(Target, Range("A5:A1000,F5:G1000")) Is Nothing Then
         
        If Target.Column = 6 Then
                 
            If Cells(Target.Row, 5) = 0 Then
                MsgBox "ATTENZIONE!: il disponibile č 0", vbExclamation + vbOKOnly, "AVVISO!"
                 Target = 0
               GoTo Fine
            End If
            
            If Target.Value > Cells(Target.Row, 5) Then
                 MsgBox "ATTENZIONE!: la q.tŕ inserita č superiore alla q.tŕ disponibile", vbExclamation + vbOKOnly, "AVVISO!"
                Target = 0
                GoTo Fine
            End If
                                   
            Cells(Target.Row, 8) = Cells(Target.Row, 8) + Target.Value
        End If
       
        If Target.Column = 7 Then
            Cells(Target.Row, 9) = Cells(Target.Row, 9) + Target.Value
        End If
        Cells(Target.Row, 5) = Cells(Target.Row, 9) - Cells(Target.Row, 8)
                    
    If Cells(Target.Row, 2) = 0 Or Cells(Target.Row, 2) > 0 Or Cells(Target.Row, 2) <> "" Then '<<< mod. by wally and maxma62
             'If Cells(Target.Row, 2) = 0 Or Cells(Target.Row, 2) > 0 Then
             
             On Error Resume Next
   
    '-----------------------------------------------------------------
    'Cells(Target.Row, 11).Select
    Cells(Target.Row, 11) = Format(Now, "dd-mm-yyyy  hh.mm.ss")
         'Cells(Target.Row, 10) = Application.UserName
    Cells(Target.Row, 10) = Environ("UserName")
           'Application.EnableEvents = True
    '----------------------------------------------------------------
    Resume
End If
  '---------------------------
Fine:
      '  Target = 0
  '---------------------------
    
        ActiveSheet.Protect "123456"
    End If
   Application.EnableEvents = True
   End If
End Sub

Change this part in the code.
Does that give you the results you expect?

'        ============ My code correction =====================
        a = Range("A" & Target.Row & ":L" & Target.Row).Value
        a(1, 11) = CDate(Left(a(1, 11), 10))
        a(1, 10) = Environ$("UserName")
        With Sheets("modifiche")
            With .Range("A" & .Cells(Rows.Count, "A").End(3).Row)(2)
                .Resize(1, 7) = Application.Index(a, 0, Array(1, 2, 3, 4, 11, 12, 10))
            End With
        End With
'       ==============================================

Originally Posted by xam99

...if you edit a column with empty cells it gives an error

And what should be done?

You could write what error appears because in my opinion this is not an error but information - look at the photo.
That's how your code works. These are not my code fixes.
Here is the corrected part of my code.

'        ============ My code correction =====================
        a = Range("A" & Target.Row & ":L" & Target.Row).Value
        a(1, 10) = Environ$("UserName")
        If Target.Value > 0 Then a(1, 5) = Format(Now, "dd-mm-yyyy  hh.mm.ss")
        With Sheets("modifiche")
                With .Range("A" & .[A1].CurrentRegion.Rows.Count + 1)
                    .Resize(1, 7) = Application.Index(a, 0, Array(1, 2, 3, 4, 5, 12, 10))
                End With
        End With
'       ==============================================

Show solution - manually enter sample results in the "modifiche" worksheet when modifying columns F and G of the "articoli" worksheet.