Sub Salva() Worksheets("prezzo scuri").Select Range("K8").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("D13").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("prezzo scuri").Select Range("C3").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("A13").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("prezzo scuri").Select Range("E3").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("B13").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("prezzo scuri").Select Range("C3").Select End Sub Sub Salva1() Worksheets("prezzo scuri").Select Range("K8").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("D14").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("prezzo scuri").Select Range("C3").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("A14").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("prezzo scuri").Select Range("E3").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("B14").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C3").Select End Sub Sub Salva2() Worksheets("prezzo scuri").Select Range("K8").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("D15").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("prezzo scuri").Select Range("C3").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("A15").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("prezzo scuri").Select Range("E3").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("B15").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C3").Select End Sub |