Risultati da 1 a 27 di 27

Discussione: Creazione Gestionale Abbigliamento - Help!



  1. #1
    L'avatar di jasonk
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    avellino
    Messaggi
    9
    Versione Office
    Mac '16 W ' 13
    Likes ricevuti
    0
    Likes dati
    3

    Question Creazione Gestionale Abbigliamento - Help!

    Ciao a tutti,
    sto cercando di realizzare in excel - nella maniera più automatica possibile - un gestionale per un'attività di abbigliamento e mi chiedo se sia possibile fare quanto vi chiedo.

    Premessa: come sto facendo.
    Estraggo i dati dei capi di abbigliamento direttamente dai siti dei fornitori in formato csv.
    Ottengo quindi i dati per ogni articolo: nome, categoria, fornitore, ecc.

    Il problema si pone quando devo creare questo database per ogni singola taglia e colore: quindi da una riga per articolo passo anche a 10 righe per lo stesso articolo.
    Vorrei rendere automatico questo processo, cioè la creazione delle righe dello stesso articolo ma con taglie diverse.

    Avete delle soluzione per rendere tutto più automatizzato e veloce?
    Non so, magari tramite dei tasti che si possono creare o altro?

    Grazie in anticipo,

    Giovanni

  2. #2

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6747
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162

    Re: Creazione Gestionale Abbigliamento - Help!

    Ciao Giovanni

    Soluzioni già pronte non ce ne sono ma occorre crearle

    Ti consiglio di allegare due file di esempio (csv e xls) e sul file di Excel inserire manualmente il risultato che vuoi ottenere (immagino dal csv)

    Per poter immaginare qualcosa occorre vedere la struttura dei dati.

    Alfredo

  3. #3
    L'avatar di jasonk
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    avellino
    Messaggi
    9
    Versione Office
    Mac '16 W ' 13
    Likes ricevuti
    0
    Likes dati
    3

    Re: Creazione Gestionale Abbigliamento - Help!

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Ciao Giovanni

    Soluzioni già pronte non ce ne sono ma occorre crearle

    Ti consiglio di allegare due file di esempio (csv e xls) e sul file di Excel inserire manualmente il risultato che vuoi ottenere (immagino dal csv)

    Per poter immaginare qualcosa occorre vedere la struttura dei dati.

    Alfredo
    Ciao Alfredo,

    grazie per la risposta.

    In allegato c'è un file di esempio che ho creato. Nel primo foglio ci sono una decina di prodotti: è più o meno quello che ottengo estrapolando i dati dal sito di uno dei vari fornitori.
    Nel secondo foglio ho inserito i dati come mi servirebbero. Vorrei che il processo fosse automatico, nel senso che non dove ogni volta fare le operazioni per ogni riga. Non riesco a creare azioni automatiche, forse perché Excel su Mac non ha tutte le funzioni, non so perché.

    Spero che dal file si possa capire.

    Grazie in anticipo,

    Giovanni
    File Allegati File Allegati

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1019
    Likes dati
    977

    Re: Creazione Gestionale Abbigliamento - Help!

    Ciao @jasonk.
    Visto che sei nuovo del Forum, è gradita una presentazione QUI, ti consiglio anche di leggerti il “Regolamento” e di visitare la sezione “Annunci dello staff”,

  5. #5

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6747
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162

    Re: Creazione Gestionale Abbigliamento - Help!

    Ciao Giovanni

    Ora sono in ferie e non ho pc ma ho guardato il tuo file con iPad e devo dir la verità non è che ci abbia capito molto.

    Comunque appena potrò lo guarderò meglio anche se sono convinto che riceverai aiuto prima.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  6. #6

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1019
    Likes dati
    977

    Re: Creazione Gestionale Abbigliamento - Help!

    Se ho capito bene, prova così:
    Codice: 
    Sub Estrai()
    Dim Origine As Worksheet
    Dim Dest As Worksheet
    Dim uRiga As Long
    Dim iRow As Long
    Dim iCol As Integer
    Dim iCount As Long
    Dim i As Integer
    
    
    Set Origine = Sheets("Dati base") '<<< da cambiare a esigenza
    Set Dest = Sheets("Risultato finale") '<<< da cambiare a esigenza
    uRiga = Origine.Range("A" & Rows.Count).End(xlUp).Row
    
    
    iRow = 2
    For iCount = 2 To uRiga
        i = 8
        Do Until Origine.Cells(iCount, i) = ""
            For iCol = 1 To 6
                Dest.Cells(iRow, iCol) = Origine.Cells(iCount, iCol)
            Next
            Dest.Cells(iRow, iCol) = Origine.Cells(iCount, i)
            iRow = iRow + 1
            i = i + 1
        Loop
    Next
    
    
    Set Origine = Nothing
    Set Dest = Nothing
    
    
    End Sub

  7. I seguenti 9 utenti hanno dato un "Like" a Rubik72 per questo post:


  8. #7
    L'avatar di jasonk
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    avellino
    Messaggi
    9
    Versione Office
    Mac '16 W ' 13
    Likes ricevuti
    0
    Likes dati
    3

    Re: Creazione Gestionale Abbigliamento - Help!

    Ciao @Rubik72

    grazie per la risposta innanzitutto e per i suggerimenti nel post precedente.

    Dato che non sono molto pratico, come dovrei usare questo codice?

  9. #8
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125

    Re: Creazione Gestionale Abbigliamento - Help!

    Ciao Jasonk
    Rispondo io per Enzo () anzichè farti trovare la pappa pronta (cioè il file) ti dò alcune indicazioni su come inserire il codice e quindi eseguire la macro

    1. Copia il codice
    2. Aprire la cartella di lavoro
    3. salva il file con estensione .xlsm
    4. Premere i tasti ALT + F11 per aprire l'editor di Visual Basic
    5. Dal menu in alto clicca su “inserisci”
    6. Clicca su “modulo” quando il cursore lampeggia, incollare il codice
    7. Premi salva e clicca sulla Icona di excel per tornare a Excel
    8. Per eseguire la macro da Excel premere ALT + F8 per visualizzare la finestra Esegui macro.
    9. adesso devi inserire il bottone che ti servirà per eseguire la Macro, vai in alto nella ribbon>> nel cartella sviluppo di Excel>>clicca Inserisci>>clicca Bottone (controllo modulo) e assegni la macro appena creata
    10. clicca sul bottone per esguire macro.


    fai sapere se hai risolto

  10. I seguenti 5 utenti hanno dato un "Like" a Gerardo Zuccalà per questo post:


  11. #9
    L'avatar di jasonk
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    avellino
    Messaggi
    9
    Versione Office
    Mac '16 W ' 13
    Likes ricevuti
    0
    Likes dati
    3

    Re: Creazione Gestionale Abbigliamento - Help!

    Ciao Enzo,
    grazie per aver risposto.
    Io ho il Mac e non so se è lo stesso per Windows.
    Una volta aperto il Visual basic infatti non trovo "inserisci" e di conseguenza nemmeno "modulo" per inserire il codice.

    Puoi aiutarmi per favore?

  12. #10

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1019
    Likes dati
    977

    Re: Creazione Gestionale Abbigliamento - Help!

    Io ho Windows e non posso aiutarti, ma c'è @ges che ha Mac e potrebbe aiutarti

  13. #11
    L'avatar di jasonk
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    avellino
    Messaggi
    9
    Versione Office
    Mac '16 W ' 13
    Likes ricevuti
    0
    Likes dati
    3

    Re: Creazione Gestionale Abbigliamento - Help!

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Io ho Windows e non posso aiutarti, ma c'è @ges che ha Mac e potrebbe aiutarti
    Ho provato a farlo su Windows dal portatile e sembra funzionare. Dopo provo anche con dei file più complessi dato che non ho messo tutte le colonne che mi servono. Speriamo bene :D

  14. #12
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: Creazione Gestionale Abbigliamento - Help!

    Per Mac prova a seguire questo link

    https://www.techonthenet.com/excel/m...editor2011.php

  15. #13
    L'avatar di jasonk
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    avellino
    Messaggi
    9
    Versione Office
    Mac '16 W ' 13
    Likes ricevuti
    0
    Likes dati
    3

    Re: Creazione Gestionale Abbigliamento - Help!

    Citazione Originariamente Scritto da Powerwin Visualizza Messaggio
    Per Mac prova a seguire questo link

    https://www.techonthenet.com/excel/m...editor2011.php
    Grazie per il link. Ho inserito la scheda Sviluppo nel Menù di Excel però continuo a non visualizzare correttamente l'editor di visual basic. Dovrò fare tutto su Windows mi sa.

    Grazie ancora a tutti per l'aiuto!!!

  16. #14
    L'avatar di Vincenzo Damiani
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Molfetta
    Età
    58
    Messaggi
    415
    Versione Office
    2010
    Likes ricevuti
    13
    Likes dati
    634

    Re: Creazione Gestionale Abbigliamento - Help!

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Se ho capito bene, prova così:
    Codice: 
    Sub Estrai()
    Dim Origine As Worksheet
    Dim Dest As Worksheet
    Dim uRiga As Long
    Dim iRow As Long
    Dim iCol As Integer
    Dim iCount As Long
    Dim i As Integer
    
    
    Set Origine = Sheets("Dati base") '<<< da cambiare a esigenza
    Set Dest = Sheets("Risultato finale") '<<< da cambiare a esigenza
    uRiga = Origine.Range("A" & Rows.Count).End(xlUp).Row
    
    
    iRow = 2
    For iCount = 2 To uRiga
        i = 8
        Do Until Origine.Cells(iCount, i) = ""
            For iCol = 1 To 6
                Dest.Cells(iRow, iCol) = Origine.Cells(iCount, iCol)
            Next
            Dest.Cells(iRow, iCol) = Origine.Cells(iCount, i)
            iRow = iRow + 1
            i = i + 1
        Loop
    Next
    
    
    Set Origine = Nothing
    Set Dest = Nothing
    
    
    End Sub
    Ciao Rubik72,
    Mi piace il tuo suggerimento
    Potresti, gentilmente, commentare il codice?
    Grazie
    Windows8.1 office 2010

  17. #15

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7106
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296

    Re: Creazione Gestionale Abbigliamento - Help!

    Ciao Jasonk,
    io ho il Mac e vedo che tu hai Excel 2016 ... in quest'ultima versione non è stato più messo l'editor vbe quindi non puoi trovarlo ... non c'è!

    Per il Mac, Office ha sospeso il vba a partire dal Excel 2011 (ultima versione utile per usarlo).

    Io infatti uso la versione 2011.

    A proposito, con Excel 2011 per Mac il codice di Rubik funziona benissimo!
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  18. #16
    L'avatar di Laura Belli
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Belgio
    Età
    33
    Messaggi
    153
    Versione Office
    excel 2007
    Likes ricevuti
    2
    Likes dati
    5

    Re: Creazione Gestionale Abbigliamento - Help!

    Gerardo sei davvero gentile a trassmettere il tuo sapere.
    Ho imparato tanto da te.
    volevo approfittare di questq risposta per dirtelo.

    Ciaoo
    Una bella giornata a tutti i fanatici di qualcosa ...

  19. #17

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7106
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296

    Re: Creazione Gestionale Abbigliamento - Help!

    Citazione Originariamente Scritto da Laura Belli Visualizza Messaggio
    Gerardo sei davvero gentile a trassmettere il tuo sapere.
    Ho imparato tanto da te.
    volevo approfittare di questq risposta per dirtelo.

    Ciaoo
    Grande Gerardo!!!
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  20. #18
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125

    Re: Creazione Gestionale Abbigliamento - Help!

    Citazione Originariamente Scritto da Laura Belli Visualizza Messaggio
    Gerardo sei davvero gentile a trassmettere il tuo sapere.
    Ho imparato tanto da te.
    volevo approfittare di questq risposta per dirtelo.

    Ciaoo

    Ciao Laura non dire cosi che divento rosso, scherzi a parte mi fa piacere che i miei video ti sono stati utili, tuttavia i bravi sono altri ed in questo forum ne incontrerai veramente tanti..
    Un saluto

  21. #19
    L'avatar di jasonk
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    avellino
    Messaggi
    9
    Versione Office
    Mac '16 W ' 13
    Likes ricevuti
    0
    Likes dati
    3

    Re: Creazione Gestionale Abbigliamento - Help!

    Ciao ges,
    perfetto allora!!!

    Per fortuna ho anche un portatile con Windows e sono riuscito ad utilizzarlo e a modificare il codice facendo varie prove così da utilizzarlo anche con dati diversi e più completi di quelli nell'esempio.

    @Rubik72 senza di te non ci sarei mai riuscito!!!

  22. #20
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Creazione Gestionale Abbigliamento - Help!

    Citazione Originariamente Scritto da jasonk Visualizza Messaggio
    Ciao ges,
    perfetto allora!!!

    Per fortuna ho anche un portatile con Windows e sono riuscito ad utilizzarlo e a modificare il codice facendo varie prove così da utilizzarlo anche con dati diversi e più completi di quelli nell'esempio.

    @Rubik72 senza di te non ci sarei mai riuscito!!!
    un saluto a tutti...

    ti propongo anche questa alternativa...
    Codice: 
    Sub copia2()
    Dim i As Long, nRighe As Long, nRigai As Long, nColonnei As Long
    Dim datibase As Worksheet, risultato As Worksheet
    
    
    Set datibase = Sheets("Dati base")
    Set risultato = Sheets("risultato finale")
    
    
    nRigai = 2
    nRighe = datibase.Range(datibase.Cells(2, 1), datibase.Cells(Rows.Count, 1).End(xlUp)).Rows.Count
    For i = 2 To nRighe + 1
        nColonnei = datibase.Range(datibase.Cells(i, 8), datibase.Cells(i, Columns.Count).End(xlToLeft)).Count
        datibase.Range(datibase.Cells(i, 1), datibase.Cells(i, 6)).Copy
        risultato.Range(risultato.Cells(nRigai, 1), risultato.Cells(nRigai + nColonnei - 1, 6)).PasteSpecial xlPasteAll
        datibase.Range(datibase.Cells(i, 8), datibase.Cells(i, Columns.Count).End(xlToLeft)).Copy
        risultato.Cells(nRigai, 7).PasteSpecial , Transpose:=True
        nRigai = nRigai + nColonnei
    Next i
    
    
    Set datibase = Nothing
    Set risultato = Nothing
    
    
    End Sub
    devi stare attento alle celle apparentemente vuote nelle colonne: col1-col6

  23. #21
    L'avatar di jasonk
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    avellino
    Messaggi
    9
    Versione Office
    Mac '16 W ' 13
    Likes ricevuti
    0
    Likes dati
    3

    Re: Creazione Gestionale Abbigliamento - Help!

    Ciao ggratis,

    cosa cambia rispetto al codice di rubik72?

  24. #22
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Creazione Gestionale Abbigliamento - Help!

    Una differenza potrebbe essere la velocità di esecuzione.
    Ma non le ho messe a confronto...

    Inviato dal mio GT-I9105P utilizzando Tapatalk

  25. #23
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Creazione Gestionale Abbigliamento - Help!

    nettamente più veloce quella di Rubik!

  26. #24
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Creazione Gestionale Abbigliamento - Help!

    Scusate l'insistenza, su questo tema, ma credo che la soluzione che è circa 15-20 volte più veloce di quella di Rubik72, possa interessare.
    su mille righe i tempi di esecuzione sul mio pc sono di 25.75 contro 1.45 secondi.

    Codice: 
    Sub copia2()
    Dim i As Long, nRighe As Long, nRigai As Long, nColonnei As Long
    Dim datibase As Worksheet, risultato As Worksheet
    Dim colonne As Variant
    
    
    Set datibase = Sheets("Dati base")
    Set risultato = Sheets("risultato finale")
    
    
    Dim inizio
    Application.ScreenUpdating = False
    
    
    nRigai = 2
    nRighe = datibase.Range(datibase.Cells(2, 1), datibase.Cells(Rows.Count, 1).End(xlUp)).Rows.Count
    For i = 2 To nRighe + 1
        nColonnei = datibase.Range(datibase.Cells(i, 8), datibase.Cells(i, 8).End(xlToRight)).Count
        risultato.Range(risultato.Cells(nRigai, 1), risultato.Cells(nRigai + nColonnei - 1, 6)).Value = datibase.Range(datibase.Cells(i, 1), datibase.Cells(i, 6)).Value
        risultato.Range(risultato.Cells(nRigai, 7), risultato.Cells(nRigai + nColonnei - 1, 7)).Value = Application.Transpose(datibase.Range(datibase.Cells(i, 8), datibase.Cells(i, 8 + nColonnei - 1)).Value)
        Set colonne = Nothing
        nRigai = nRigai + nColonnei
    Next i
    
    
    Set datibase = Nothing
    Set risultato = Nothing
    
    
    Application.ScreenUpdating = True
    End Sub
    la lentezza della precedente soluzione risiede nel fatto che si copiano e si incollano tutti i valori e le varie formattazioni delle celle, già copiando i soli valori si guadagna molto, assegnandoli direttamente senza quindi utilizzare il metodo copia ed incolla, la procedura diventa velocissima.

    il funzionamento è semplice:
    il valore di un intervallo di celle
    datibase.Range(datibase.Cells(i, 1), datibase.Cells(i, 6)).Value
    si assegna ad un'area di celle
    risultato.Range(risultato.Cells(nRigai, 1), risultato.Cells(nRigai + nColonnei - 1, 6)).Value
    della quale se ne determinano preventivamente le dimensioni (rappresentate del numero dei dati disposti in colonna, numero variabile per ogni record)
    nColonnei = datibase.Range(datibase.Cells(i, 8), datibase.Cells(i, 8).End(xlToRight)).Count
    poi, dei valori disposti in colonna (di ogni record) si determinano i valori trasposti
    Application.Transpose(datibase.Range(datibase.Cells(i, 8), datibase.Cells(i, 8 + nColonnei - 1)).Value)
    che vengono assegnati in colonna affianco a quelli copiati nell'area di celle precedentemente assegnata
    risultato.Range(risultato.Cells(nRigai, 7), risultato.Cells(nRigai + nColonnei - 1, 7)).Value
    quindi si ripete la procedura per gli nRighe record di valori
    nRighe = datibase.Range(datibase.Cells(2, 1), datibase.Cells(Rows.Count, 1).End(xlUp)).Rows.Count
    chiaramente i due indici viaggiano a velocità diversa, e di questo se ne tiene conto con
    nRigai = nRigai + nColonnei

    saluti
    GG

  27. I seguenti utenti hanno dato un "Like"


  28. #25
    L'avatar di jasonk
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    avellino
    Messaggi
    9
    Versione Office
    Mac '16 W ' 13
    Likes ricevuti
    0
    Likes dati
    3

    Re: Creazione Gestionale Abbigliamento - Help!

    Citazione Originariamente Scritto da ggratis Visualizza Messaggio
    Scusate l'insistenza, su questo tema, ma credo che la soluzione che è circa 15-20 volte più veloce di quella di Rubik72, possa interessare.
    su mille righe i tempi di esecuzione sul mio pc sono di 25.75 contro 1.45 secondi.

    la lentezza della precedente soluzione risiede nel fatto che si copiano e si incollano tutti i valori e le varie formattazioni delle celle, già copiando i soli valori si guadagna molto, assegnandoli direttamente senza quindi utilizzare il metodo copia ed incolla, la procedura diventa velocissima.
    saluti
    GG
    Quindi se ho capito la tua GG è più veloce? Perché dal post precedente si era capito il contrario ;)

  29. #26
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Creazione Gestionale Abbigliamento - Help!

    Infatti quella che ho postato prima era 10 volte più lenta, l'ultima 15-20 volte più veloce

    Inviato dal mio GT-I9105P utilizzando Tapatalk

  30. #27

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1019
    Likes dati
    977

    Re: Creazione Gestionale Abbigliamento - Help!

    Citazione Originariamente Scritto da Vincenzo Damiani Visualizza Messaggio
    Ciao Rubik72,
    Mi piace il tuo suggerimento
    Potresti, gentilmente, commentare il codice?
    Grazie
    Codice: 
    Sub Estrai()
    Dim Origine As Worksheet
    Dim Dest As Worksheet
    Dim uRiga As Long
    Dim iRow As Long
    Dim iCol As Integer
    Dim iCount As Long
    Dim i As Integer
    
    
    
    
    Set Origine = Sheets("Dati base") 'assegnazione variabile oggetto 
    Set Dest = Sheets("Risultato finale") 'assegnazione variabile oggetto
    uRiga = Origine.Range("A" & Rows.Count).End(xlUp).Row 'determinazione ultima riga foglio origine
    
    
    
    
    iRow = 2 'assegnazione variabile riga foglio Destinzaione
    For iCount = 2 To uRiga 'inizio ciclo righe foglio Origine (da 2 a uRiga)
        i = 8 'assegnazione variabile colonna inizio foglio Origine
        Do Until Origine.Cells(iCount, i) = "" ' inizio ciclo da colonna 8 fino a colonna vuota
            For iCol = 1 To 6 'inizio ciclo scrittura foglio Destinazione da colonna 1 a colonna 6
                Dest.Cells(iRow, iCol) = Origine.Cells(iCount, iCol)
            Next
            Dest.Cells(iRow, iCol) = Origine.Cells(iCount, i)'scrittura colonna 7 foglio Destinazione
            iRow = iRow + 1 'riga successiva
            i = i + 1 'colonna successiva
        Loop
    Next
    
    
    
    
    Set Origine = Nothing 'svuota variabile
    Set Dest = Nothing 'svuota variabile
    
    
    End Sub

  31. I seguenti 3 utenti hanno dato un "Like" a Rubik72 per questo post:


Discussioni Simili

  1. [Risolto] Gestionale con Access
    Di Caronte1980 nel forum Domande su Microsoft Access
    Risposte: 39
    Ultimo Messaggio: 14/01/17, 21:13
  2. creazione di una macro
    Di givi79 nel forum Domande su Excel VBA e MACRO
    Risposte: 21
    Ultimo Messaggio: 05/01/17, 22:52
  3. Gestionale per piccola impresa
    Di John nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 31/12/16, 12:43
  4. Creazione grafico
    Di 87scarface87 nel forum Domande sui Grafici di Excel
    Risposte: 2
    Ultimo Messaggio: 24/06/16, 00:36
  5. Creazione preventivatore.
    Di Ste911 nel forum Domande su Excel VBA e MACRO
    Risposte: 28
    Ultimo Messaggio: 21/06/16, 00:17

Tag per Questa Discussione

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
  •