ciao Giap,
proprio da una tua risposta avevo preso spunto.
Ok va bene il foglio2 e foglio3 ma se lascio la prima parte con riferimento foglio1 mi da errore. Mi puoi implementare N7-N8-N9 su foglio1-foglio2-foglio3.
E' possibile modificare che al variare non mi copi tutta la riga ma solo dalla collona N alla colonna U per entrambe le celle sui relativi fogli?
Grazie Milleeeeeeeeeeeee!!!!!!

Luca

salve
vedi questa con questa modifica

Private Sub Worksheet_Change(ByVal Target As Range)
Dim riga As Integer
Set Rng = Range("n7:n9")
If Not Intersect(Target, Rng) Is Nothing Then
If IsDate(Target.Value) Then
RRiga = Target.Row
Select Case RRiga
Case 7
Set area = Range(Cells(7, 14), Cells(7, 21))
riga = 1
With Sheets("Foglio1")
While .Cells(riga, 1).Value <> ""
riga = riga + 1
Wend
End With
Sh = "foglio1"
Case 8
Set area = Range(Cells(8, 14), Cells(8, 21))
riga = 1
With Sheets("Foglio2")
While .Cells(riga, 1).Value <> ""
riga = riga + 1
Wend
End With
Sh = "foglio2"
Case 9
Set area = Range(Cells(9, 14), Cells(9, 21))
riga = 1
With Sheets("Foglio3")
While .Cells(riga, 1).Value <> ""
riga = riga + 1
Wend
End With
Sh = "foglio3"
End Select
area.Copy Destination:=Sheets(Sh).Cells(riga, 1)
Set area = Nothing
End If
End If
End Sub
saluti
Giap

---

grazie a te per il riscontro
saluti
Giap

---