Ho realizzato questa macro in modo che immettendo il range di partenza e quello di destinazione nelle inputbox le relative celle o righe (comprese proprietà/colori/dimesioni) ed immagini sopra ad esse vengano copiate da un'altra parte.
Non capisco perchè ma mi da errore: proprietà o metodo non supportate dall'oggetto.
Potete aiutarmi?
- Codice: Seleziona tutto
Sub Copiare()
Worksheets("Foglio2").Select
Dim MyValueCopy As String
Dim MyValuePaste As String
Dim Message1 As String
Dim Title1 As String
Dim Message2 As String
Dim Title2 As String
Message1 = "Immettere il Range da copiare"
Title1 = "Cosa copio?"
MyValueCopy = InputBox(Message1, Title1)
Range(MyValueCopy).Select
Selection.Copy
Worksheets("Foglio1").Select
Message2 = "Immettere il Range dove incollare"
Title2 = "Dove incollo?"
MyValuePaste = InputBox(Message2, Title2)
Range(MyValuePaste).Paste
End Sub
Spero di essermi spiegato bene per permettervi di capire..