Copia e Incolla con Macro

Hai un problema con Excel?

Nuova discussione

Copia e Incolla con Macro
di sorisole data: 09/05/2017 23:56:17
Buona Sera Ragazzi
Vorrei chiedere due informazioni per poter risolvere questo mio problema, ho fatto delle prove ma non riesco risolverlo, nella macro allegata attualmente viene generata da una cartella "A" che va inserire i dati un una altra cartella "B" se la cartella "B" é aperta mi funziona, ma se la cartella "B" si trova "chiusa" mi da errore, ho cercato di mettere l´indirizzo ma non ci sono riuscito, in pratica vorrei utilizzare la macro in cartella"A" anche con la cartella "B" sia aperta o chiusa.
L´altro ostacolo é di dover poter fare in modo che la macro possa leggermi nella cella F9 che il valore in numero mi possa selezionare il numero di righe della cella F9, per spiegarmi meglio se la cella F9 mi da un valore di 5, mi deve selezionare 5 righe nel Range("B13:D17").Select, spero di essere stato comprensibile, sono a disposizione per chiarimenti. Grazie
Ho allegato il file per rendere piú comprensibile la discussione

Sub ArchiviaInterventi()
'

'F:GESTIONE2 LAVORILAVORI GIORNALIERI  (indirizzo)
    
    Application.ScreenUpdating = Falso
    Windows("GestioneLavori.xlsm").Activate 'CARTELLA DI LAVORO
    Sheets("CalcoloInterventi").Select  'FOGLIO1

'DOVREI FARE IN MODO CHE POSSA SELEZIONARE RIGHE IN BASE ALLA CELLA "F9" che mi da un numero    

    Range("B13:D37").Select
    Selection.Copy
    Sheets("ArchivioInterventi").Select  'FOGLIO2
    Range("A8").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B50").Select
    Selection.End(xlUp).Select
    Range("A5").Select
    Sheets("CalcoloInterventi").Select
    Application.CutCopyMode = False
    Range("A11").Select
    Sheets("ArchivioInterventi").Select
    Windows("1ModelloRinnovoContratto.xlsm").Activate
    Range("H12:I12").Select
    MsgBox "File salvato con successo per la manutenzione"
End Sub

di patel data: 10/05/2017 10:40:39
nella macro allegata attualmente viene generata da una cartella "A" che va inserire i dati un una altra cartella "B" se la cartella "B" é aperta mi funziona, ma se la cartella "B"

non riesco a vedere nel tuo codice quanto affermi
di sorisole data: 10/05/2017 11:00:35
Ciao Patel
Intendo se la cartella B non é stata aperta non riesco registrare quello che vorrei, questa macro lo creata avendo la cartella B giá aperta, aperta intendo che si trova in basso nelle barre sotto, scusami ma non so il termine giusto.
di patel data: 10/05/2017 19:10:38
ma io dove la trovo la cartella B ? parli di cose che negli allegati non ci sono
di sorisole data: 10/05/2017 21:47:58
Ciao Patel
Come pensavo non sono stato capace di esprimermi!!!
La cartella B sarebbe il file che ho allegato, ora ti allego la cartella A "Rinnovo" da dove con il pulsante "1" mi va a estrapolare dalle celle B18/D18/H12/K21 e le deve inserire i valori non le formule, nella cartella B nelle celle della gestione "calcoloIterventi Nelle celle D8/D9/D10/F9, quello che non riesco venirne fuori che il percorso si trova in una altra partizione "disco F:GESTIONE2 LAVORILAVORI GIORNALIERIgestioneinterventi "
spero di averti dato spiegazioni per capire, Grazie!!! Patel.

Trovo il problema come fare per allegare il File
Ci sono riuscito
di patel data: 11/05/2017 08:45:24
parli di A e B invece di chiamare le cartelle col loro nome, alleghi una Sub ArchiviaInterventi() che nel file allegato non c'è, fai di tutto per confondere le idee a che vorrebbe aiutarti.
Inoltre non capisco cosa c'entra la partizione se la macro è concepita per lavorare con il file già aperti

di sorisole (utente non iscritto) data: 11/05/2017 16:13:11
Ciao Patel
Ho fatto un po di confusione, non mi permetterei di confonderti le idee, sopratutto a qualcuno che mi sta aiutando, insegnare.
Per quanto riguarda a quello che ti chiedevo nel spostare e inserire dei dati lo risolto nel modo piu' semplice
"ora non vorrei sbagliare a dare il giusto nome, per quello che ho fatto" semplicemente quello risolto.

Ora ti vorrei chiedere come potrei risolvere il problema nella cartella "gestione" nel foglio CalcoloInterventi avendo la possibilità di selezionare Dalla cella B13:D? prendendo il numero dalla cella F9.
Ti allega la nuova Macro.
Grazie per la pazienza, per quello che stai facendo.

Sub InserisciNuovoContratto()
'
' InserisciNuovoContratto Macro
'
Application.ScreenUpdating = Falso

    Range("A7").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Sheets("CalcoloInterventi").Select
    Range("B13:D43").Select
    Selection.Copy
    Sheets("ArchivioInterventi").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A196").Select
    Selection.End(xlUp).Select
    Range("A8").Select
    Sheets("CalcoloInterventi").Select
    Range("B12").Select
    Application.CutCopyMode = False
    Range("A1").Select
    Sheets("ArchivioInterventi").Select
    ActiveWorkbook.Save
    Windows("1ModelloRinnovoContratto.xlsm").Activate
    Range("A5").Select
     MsgBox "ATTENZIONE ! SONO STATI INSERITI NUOVI INTERVENTI !"
End Sub

di patel data: 11/05/2017 17:31:45
Range("B13:D" & range("F9").txt).Select
di sorisole (utente non iscritto) data: 11/05/2017 18:35:27
Ciao Patel
Grazie per la risposta, ho inserita alla 13 riga ma da errore,
di patel data: 11/05/2017 19:17:42
ho scritto male
Range("B13:D" & Range("F9").Text).Select
di sorisole data: 11/05/2017 21:32:48
Ciao Patel
Ho inserito la modifica ma non funziona nel modo corretto, ho provato fare delle prove ma niente ora ti spiego cosa succede.
Inserendo nel Foglio CalcoloInterventiun nella cella F9 un valore di 4 Mi dovrebbe selezionare Le celle B13:D16, invece seleziona B4:D13, non riesco a capire dove bisogna modificare, mi affido a Te. Grazie
di patel data: 12/05/2017 07:36:31
se vuoi selezionare Le celle B13:D16 in F9 devi scrivere 16, cosa c'entra 4 ?
di sorisole data: 12/05/2017 10:15:24
la cella F9 é una cella "variabile" che secondo il numero che inserisco 4 mi deve variare la selezionare e mi dovrebbe selezionare le celle B13:D16 se inserisco in F9 10 mi seleziona le celle B13:D22.

Questo fa la cella F9.Grazie
di patel data: 12/05/2017 12:29:40
ci rinuncio, parliamo due lingue diverse
di sorisole data: 12/05/2017 13:12:17
OK Grazie
sorisole
di sorisole data: 13/05/2017 10:19:03
Questa era la soluzione che cercavo,
Ora si puo' archiviare come RISOLTO

"Range("B13:D" & Range("F9") + 12).Select"

Vuoi Approfondire?