Selezione aree variabili

Hai un problema con Excel?

Nuova discussione

Selezione aree variabili
di Marino (utente non iscritto) data: 15/07/2013 12:28:20
ciao a tutti, volevo chiederti una cortesia.
Sto cercando di impostare un'area variabile per cui l'ultente possa selezionare l'area e poi la stessa area diventi area di copia e incolla dati su un foglio successivo.
Ora la selezione variabile sono riuscito a farla, ma quando gli scrivo il codice di copia ed incolla non mi tiene più in considerazione l'area e non mi produce nessun effetto di copia incolla. Come posso fare?? grazie.

Sub Area_di_stampa()
Call Macro5
Set Area = Application.InputBox("Scegli area")
Selection.Copy
Sheets("Ordine.").Select
range ("A1").Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Call Marco25
End Sub

di HarryBosch data: 15/07/2013 13:03:28
Ciao Marino,
quando utilizzi il metodo Application.InputBox devi specificare il tipo di dati inseriti, perlomeno se si tratta di un Range.
Qua trovi le info che ti servono:
h t t p://msdn.microsoft.com/en-us/library/office/ff839468.aspx

Tipo di dati:
0 formula
1 number
2 text (a string)
4 logical value (True or False)
8 cell reference, as a Range object
16 error value, such as #N/A
64 array of values

quindi nel tuo caso ti serve il type 8, ovvero un riferimento al Range:
Sub Area_di_stampa() Dim area As Range 'Call Macro5 Set area = Application.InputBox("Scegli area", Type:=8) area.Copy Sheets("Ordine").[A1].PasteSpecial Paste:=xlPasteValues 'Call Marco25 End Sub

Vuoi Approfondire?