Risultati da 1 a 14 di 14

Discussione: Help per Macro



  1. #1
    L'avatar di isabella
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    torino
    Messaggi
    6
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    3

    Help per Macro

    Buona sera!
    sono arrivata fin qui seguendo la pista youtube, con il video EP56 sulle macro :)
    Ho seguito passo passo le istruzioni, ho rifatto mille macro, ma non mi funzionano :48:
    ogni volta che eseguo la macro infatti, avviene l'archiviazione dei dati, ma sempre sulla stessa riga, non riesco a capire dove sbaglio.

    buon inizio di settimana per domani e ciao a tutti :)

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7165
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1304
    Ciao Isabella,
    non tutti abbiamo visto il video a cui ti riferisci, se ritieni, allega un file con le indicazioni di ciò che vuoi ottenere o evidenziando i problemi che hai incontrato.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  3. #3
    L'avatar di zio_tom
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Veneto
    Messaggi
    526
    Versione Office
    2010 - Win10
    Likes ricevuti
    64
    Likes dati
    17
    sicuramente non hai eseguito CTRL+frecciagiù per andare nell'ultima riga e poi spostato relativamente ancora una casella in giù
    il video di Gerardo, verso la fine, mostra anche il codice registrato..... confrontalo con il tuo
    vai verso il minuto 15:50 e fai fermo immagine e confronta i codici

  4. #4
    L'avatar di isabella
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    torino
    Messaggi
    6
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    3
    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao Isabella,
    non tutti abbiamo visto il video a cui ti riferisci, se ritieni, allega un file con le indicazioni di ciò che vuoi ottenere o evidenziando i problemi che hai incontrato.
    sicuramente non hai eseguito CTRL+frecciagiù per andare nell'ultima riga e poi spostato relativamente ancora una casella in giù
    il video di Gerardo, verso la fine, mostra anche il codice registrato..... confrontalo con il tuo
    vai verso il minuto 15:50 e fai fermo immagine e confronta i codici
    ciao e grazie per la risposta, stasera ho riprovato a seguire tutte le istruzioni contenute nel video ma ... niente da fare :(
    dopo aver eseguito la macro, i dati che copio in archivio sovrascrivono sempre l'ultima riga esistente e non ne aggiungono una nuova!
    Allego il mio file di prova per farvi capire meglio, grazie!
    File Allegati File Allegati

  5. #5
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    Ciao Isabella Benvenuta anche tu qui in questo Forum .
    Ascolta prova a dare un Occhiata a questo mio progettino , Premetto che non solo lo dovrai adattare al tuo Schema , ma anche che io l'avevo ideato per altri Scopi , però funziona bennissimo . ciao e fammi sapere
    File Allegati File Allegati

  6. #6

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982
    Ho modificato la routine con il comando che ricerca l'ultima cella +1
    Codice: 
        Range("K1:K2").Select    Selection.Copy
        Sheets("Archivia").Select
        Range("B1").Select
        Selection.End(xlDown).Offset(1, 0).Select 'riga modificata
        Selection.PasteSpecial _
            Paste:=xlPasteAll, _
            Operation:=xlNone, _
            SkipBlanks:=False, _
            Transpose:=True
        Sheets("Archivia").Select
        ActiveCell.Offset(0, 2).Range("A1").Select
        Sheets("Inserisci").Select
        Range("C3:G3").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Archivia").Select
        ActiveSheet.Paste
        ActiveCell.Offset(0, 5).Range("A1").Select
        Sheets("Inserisci").Select
        Range("C4:G4").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Archivia").Select
        ActiveSheet.Paste
        ActiveCell.Offset(0, 5).Range("A1").Select
        Sheets("Inserisci").Select
        Range("C5:G5").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Archivia").Select
        ActiveSheet.Paste
        ActiveCell.Offset(0, 5).Range("A1").Select
        Sheets("Inserisci").Select
        Range("C6:G6").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Archivia").Select
        ActiveSheet.Paste
        ActiveCell.Offset(0, 5).Range("A1").Select
        Sheets("Inserisci").Select
        Range("C7:G7").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Archivia").Select
        ActiveSheet.Paste
        ActiveCell.Offset(0, 5).Range("A1").Select
        Sheets("Inserisci").Select
        Range("C8:G8").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Archivia").Select
        ActiveSheet.Paste
        ActiveCell.Offset(0, 5).Range("A1").Select
        Sheets("Inserisci").Select
        Range("C9:G9").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Archivia").Select
        ActiveSheet.Paste
        ActiveCell.Offset(0, 5).Range("A1").Select
        Sheets("Inserisci").Select
        Range("C10:G10").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Archivia").Select
        ActiveSheet.Paste
        ActiveCell.Offset(0, 5).Range("A1").Select
        Sheets("Inserisci").Select
        Range("C11:G11").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Archivia").Select
        ActiveSheet.Paste
        ActiveCell.Offset(0, 5).Range("A1").Select
        Sheets("Inserisci").Select
        Range("C12:G12").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Archivia").Select
        ActiveSheet.Paste
        ActiveCell.Offset(0, 5).Range("A1").Select
        Sheets("Inserisci").Select
        Range("C2:G2").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Archivia").Select
        Application.CutCopyMode = False
        ActiveWorkbook.Save
        Sheets("Inserisci").Select
        Selection.Copy
        Sheets("Archivia").Select
        ActiveSheet.Paste
        Sheets("Archivia").Select
        ActiveCell.Offset(0, 5).Range("A1").Select
        Sheets("Inserisci").Select
        Range("C2:G12").Select
        Application.CutCopyMode = False
        Selection.ClearContents
        Range("K1:K2").Select
        Selection.ClearContents
        Range("K1").Select
    Si potrebbe modificare con una serie di cicli, ma se a te sta bene così ok, altrimenti fammelo sapere

  7. #7
    L'avatar di isabella
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    torino
    Messaggi
    6
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    3
    grazieeeeee,
    scarico e provo :)

  8. #8
    L'avatar di isabella
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    torino
    Messaggi
    6
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    3
    ufff.. non mi funziona!
    vabbè ci studio su ancora un po'!
    intanto grazie, e a presto, ciao :)

  9. #9

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982
    Bisogna partire (avviare la macro) dal foglio Inserisci.
    Per ovviare a questo problema, prova quest'altra routine
    Codice: 
    Sub Archivia()Dim uRiga As Long
    Dim iCol As Integer
    Dim i As Integer, x As Integer
    
    
    With Foglio1
        uRiga = .Cells(Rows.Count, 2).End(xlUp).Row + 1
        
        .Cells(uRiga, 2) = Foglio2.Range("k1")
        .Cells(uRiga, 3) = Foglio2.Range("k2")
    
    
        For i = 1 To 11
            For x = 1 To 5
                iCol = x + 5 * i - 2
                .Cells(uRiga, iCol) = Foglio2.Cells(i + 1, x + 2)
            Next
        Next
    End With
    
    
    End Sub

  10. #10
    L'avatar di isabella
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    torino
    Messaggi
    6
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    3
    ce l'ho fatta! :28:
    grazie a tutti, siete stati gentilissimi :97:
    copio la routine:
    Sub Macro1()
    '
    ' Macro1 Macro
    '

    '
    Range("K1:K2").Select
    Selection.Copy
    Sheets("Archivia").Select
    Range("B1").Select
    Selection.End(xlDown).Offset(1, 0).Select 'riga modificata
    Selection.PasteSpecial _
    Paste:=xlPasteAll, _
    Operation:=xlNone, _
    SkipBlanks:=False, _
    Transpose:=True
    Sheets("Archivia").Select
    ActiveCell.Offset(0, 2).Range("A1").Select
    Sheets("Inserisci").Select
    Range("C3:G3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Archivia").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 5).Range("A1").Select
    Sheets("Inserisci").Select
    Range("C4:G4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Archivia").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 5).Range("A1").Select
    Sheets("Inserisci").Select
    Range("C5:G5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Archivia").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 5).Range("A1").Select
    Sheets("Inserisci").Select
    Range("C6:G6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Archivia").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 5).Range("A1").Select
    Sheets("Inserisci").Select
    Range("C7:G7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Archivia").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 5).Range("A1").Select
    Sheets("Inserisci").Select
    Range("C8:G8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Archivia").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 5).Range("A1").Select
    Sheets("Inserisci").Select
    Range("C9:G9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Archivia").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 5).Range("A1").Select
    Sheets("Inserisci").Select
    Range("C10:G10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Archivia").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 5).Range("A1").Select
    Sheets("Inserisci").Select
    Range("C11:G11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Archivia").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 5).Range("A1").Select
    Sheets("Inserisci").Select
    Range("C12:G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Archivia").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 5).Range("A1").Select
    Sheets("Inserisci").Select
    Range("C2:G2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Archivia").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    Sheets("Inserisci").Select
    Selection.Copy
    Sheets("Archivia").Select
    ActiveSheet.Paste
    Sheets("Archivia").Select
    ActiveCell.Offset(0, 5).Range("A1").Select
    Range("K1").Select
    End Sub


  11. #11
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da isabella Visualizza Messaggio
    ce l'ho fatta! :28:
    grazie a tutti, siete stati gentilissimi :97:
    copio la routine:
    Ciao Isabella io avrei fatto una cosa molto più semplice e più leggibile prova a vedere se ti va bene.

    Codice: 
    Sub ArchiviaDati()
    
    Dim wsh As Worksheet, wsh1 As Worksheet
    Dim uriga As Long
    Dim i As Integer, nrcol As Integer
    
    
    Application.ScreenUpdating = False
    Set wsh = ThisWorkbook.Worksheets("Archivia")
    Set wsh1 = ThisWorkbook.Worksheets("Inserisci")
    uriga = wsh.Range("D" & Rows.Count).End(xlUp).Row + 1
    nrcol = 4
    
    
    wsh1.Range("K1:K2").Copy
    wsh.Range("B" & uriga).PasteSpecial , Transpose:=True
    
    
    For i = 2 To 12
        wsh1.Range("C" & i & ":G" & i).Copy
        wsh.Cells(uriga, nrcol).PasteSpecial
        nrcol = nrcol + 6
    Next
    Application.ScreenUpdating = True
    wsh1.Activate
    Application.CutCopyMode = False
    Range("A2").Select
    Set wsh = Nothing
    Set wsh1 = Nothing
    MsgBox ("ARCHIVIAZIONE EFFETTUATA"), vbInformation, "ATTENZIONE"
    End Sub
    Ciao.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  12. I seguenti utenti hanno dato un "Like"


  13. #12

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982
    Citazione Originariamente Scritto da isabella Visualizza Messaggio
    ce l'ho fatta! :28:
    grazie a tutti, siete stati gentilissimi :97:
    copio la routine:
    Ma il mio codice proposto in #9, funziona? Lo hai provato?

    Inviato dal mio Nexus 7 utilizzando Tapatalk

  14. I seguenti utenti hanno dato un "Like"


  15. #13
    L'avatar di isabella
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    torino
    Messaggi
    6
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    3
    Rubik72, l'ho provato il tuo codice ma non sono riuscita a farlo funzionare.
    Probabilmente è solo a causa della mia scarsa conoscenza di VBA :(


    e Baloon_50:
    ehm.... ma come hai fatto a eliminare tutte le righe che ho io?
    ahahha grazieeeeeeee, funziona benissimo, e poi è bello il messaggio finale di avvenuta archiviazione e anche il tastone!
    wow... anche l'archivio è più leggibile così. Penso che userò il tuo perchè mi piace un sacco :)

    isabella

  16. #14
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da isabella Visualizza Messaggio
    Rubik72, l'ho provato il tuo codice ma non sono riuscita a farlo funzionare.
    Probabilmente è solo a causa della mia scarsa conoscenza di VBA :(


    e Baloon_50:
    ehm.... ma come hai fatto a eliminare tutte le righe che ho io?
    ahahha grazieeeeeeee, funziona benissimo, e poi è bello il messaggio finale di avvenuta archiviazione e anche il tastone!
    wow... anche l'archivio è più leggibile così. Penso che userò il tuo perchè mi piace un sacco :)
    Grazie Per i complimenti mi fa piacere che ti piaccia. :261:

    Adesso se non ti è di troppo peso, dovresti, per piacere, mettere [RISOLTO]
    Vai nella barra dei menu, situata all'inizio di questa discussione, troverai il menu “Strumenti Discussione” quindi scegli “Segna questo Thread come risolto”

    Grazie ancora e... alla prossima :242:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  17. I seguenti utenti hanno dato un "Like"


Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •