Excel, cella con data automatica ad ogni modifica file

[alfrimpa]

Ma possono essere variabili solo le righe o anche le colonne?

[AciGatsu]

Ma possono essere variabili solo le righe o anche le colonne?

Ciao,

varia solamente il numero di righe .

Grazie!

[alfrimpa]

Ciao

Prova con questo codice

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ur As Long
Dim rng As Range
Dim attività As String
Dim scarto As Integer
ur = Cells(Rows.Count, "F").End(xlUp).Row
If Not Intersect(Target, Range("c4:f" & ur)) Is Nothing Then
Select Case Target.Column
    Case Is = 3
        scarto = -1
    Case Is = 4
        scarto = -2
    Case Is = 5
        scarto = -3
    Case Is = 6
        scarto = -4
End Select
attività = Target.Offset(0, scarto).Value
 With Sheets("Foglio1").Range("k20:k24")
            Set rng = .Find(What:=attività, _
                           After:=.Cells(.Cells.Count), _
                           LookIn:=xlValues, _
                           LookAt:=xlWhole, _
                           SearchOrder:=xlByRows, _
                           SearchDirection:=xlNext, _
                           MatchCase:=False)
           If Not rng Is Nothing Then
               rng.Offset(0, -2).Value = Target.Value
           End If
   End With
End If
End Sub