Condividi:        

Macro incolla valori da specifico foglio Excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro incolla valori da specifico foglio Excel

Postdi oz85 » 26/04/18 09:21

Ciao a tutti!

Con il vostro prezioso aiuto sono riuscito a costruire una macro excel che mi permette di copiare dei dati da un file excel ed incollarli come valori nel file dove ho caricato la macro.
Ora mi servirebbe personalizzare la macro in questione perchè devo importare dei dati da un determinato foglio contenuto nel file. Nel mio caso il foglio in questione si chiama "Fili". Infatti capita che se il file da importare è stato salvato in un altro foglio rispetto "Fili" anche la macro che funziona correttamente, mi da errore in quanto non trovo i dati da importare.

Come posso scrivere questo comando, facendo puntare le operazioni ad un determinato foglio?

Sotto posto la Macro creata. Grazie a tutti per il prezioso aiuto!

Codice: Seleziona tutto
Sub UPLOAD_A()
Dim FileN, myBook As Workbook
'Scegli file e Apri:
   fname = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*")
 '   If Not fname Then
  '      MsgBox ("Nessuna voce selezionata, procedura annullata")
   '     Exit Sub
   ' End If
    Set myBook = Workbooks.Open(fname)
'Import:
    Range("A1:BO590").Copy
    'Windows("MULTI DT.xlsm").Activate
    ThisWorkbook.Activate
    Range("U11").PasteSpecial xlPasteValues
    Range("U11:CD710").Select
'Chiudi secondo file:
    myBook.Close False
End Sub
oz85
Utente Junior
 
Post: 92
Iscritto il: 26/03/18 14:35

Sponsor
 

Re: Macro incolla valori da specifico foglio Excel

Postdi oz85 » 26/04/18 12:08

Scusate.... era davvero banale come cosa.... lascio all'admin la scelta se lasciare o meno il post. Forse può essere d'aiuto a chi non ha molta esperienza come me. In ogni caso il comando che mi occorreva è Sheets("nome foglio").Select

Scusate per il post!

Codice: Seleziona tutto
Sub Rettangoloarrotondato1_Click()
Dim FileN, myBook As Workbook
'Scegli file e Apri:
   fname = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*")
 '   If Not fname Then
  '      MsgBox ("Nessuna voce selezionata, procedura annullata")
   '     Exit Sub
   ' End If
    Set myBook = Workbooks.Open(fname)
    Sheets("Guaine").Select
'Import:
    Range("A5:D11").Copy
    'Windows("MULTI DT.xlsm").Activate
    ThisWorkbook.Activate
    Range("A1").PasteSpecial xlPasteValues
    Range("A1:D11").Select
'Chiudi secondo file:
    myBook.Close False
End Sub
oz85
Utente Junior
 
Post: 92
Iscritto il: 26/03/18 14:35

Re: Macro incolla valori da specifico foglio Excel

Postdi Anthony47 » 26/04/18 14:05

Bravo...
Volendo puoi anche limitarti a:
Codice: Seleziona tutto
Sheets("Guaine").Range("A1:BO590").Copy     '<<< Modificata

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro incolla valori da specifico foglio Excel

Postdi oz85 » 27/04/18 08:12

Spettacolo! grazie tante!!!
oz85
Utente Junior
 
Post: 92
Iscritto il: 26/03/18 14:35


Torna a Applicazioni Office Windows


Topic correlati a "Macro incolla valori da specifico foglio Excel":


Chi c’è in linea

Visitano il forum: Marius44 e 32 ospiti