ho difficoltà nell'impostare questa macro per incollare nel Range di destinazione solo il valore delle celle copiate senza i bordi.
Potete darmi un'occhiata per favore? Per il momento il Range da copiare è solo 1 ma dovrò crearne una ventina
Grazie
- Codice: Seleziona tutto
Sub CompOFF1()
'dichiaro le variabili
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
With ThisWorkbook
Set sh1 = .Worksheets("Riepilogo")
Set sh2 = .Worksheets("QGL10.03b")
Set sh3 = .Worksheets("OFFERTA")
End With
'skrolling del monitor
Application.ScreenUpdating = False
With sh1
.Range("K2:K6").Copy _
Destination:=sh3.Range("F3:F7")
End With
'ripristino l'aggiornamento del monitor
Application.ScreenUpdating = True
'Set a Nothing delle variabili oggetto
Set sh1 = Nothing
Set sh2 = Nothing
Set sh3 = Nothing
End Sub