Un saluto a tutti.
Ma non basterebbe trascinare con il mouse ?
Oppure metti questo nel modulo del foglio:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F:F")) Is Nothing Then
Target = "Rinnovo"
End If
End Sub[Modificato da rollis13 06/01/2022 22:55]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)