- Codice: Seleziona tutto
Sub Pulsante4_Clic()
Worksheets("CALENDARIO").Activate
Set R = Range("C2:C370")
For n = 1 To R.Rows.Count
If R.Cells(n, 1) = Worksheets("MENU").Range("I9") Then
R.Cells(n, 2).Copy Destination:=Worksheets("MENU").Range("F14")
R.Cells(n + 1, 2).Copy Destination:=Worksheets("MENU").Range("H14")
R.Cells(n + 2, 2).Copy Destination:=Worksheets("MENU").Range("J14")
R.Cells(n + 3, 2).Copy Destination:=Worksheets("MENU").Range("L14")
R.Cells(n + 4, 2).Copy Destination:=Worksheets("MENU").Range("N14")
R.Cells(n + 5, 2).Copy Destination:=Worksheets("MENU").Range("P14")
R.Cells(n + 6, 2).Copy Destination:=Worksheets("MENU").Range("R14")
End If
Next n
ora dal calendario non voglio copiare preciso cosa c'è nella cella ma solo il valore che compare nella cella perchè li ho un'altro codice dovè va a leggere i dati in un'altro foglio.
Spero di essere stato chiaro.