Risultati da 1 a 2 di 2

Discussione: Macro complicatissima



  1. #1
    L'avatar di R.five
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Brescia
    Messaggi
    1
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    0

    Macro complicatissima

    Buona sera ragazzi, ho un grandissimo problema con Excel, devo elaborare dei dati fornitimi tramite Excel e questa elaborazione consiste nell'ordinare i dati stessi secondo dei precisi criteri che si ripetono. Mi chiedevo se posse possibile tramite una macro effettuare queste operazioni: (allego il file di esempio Excel in modo che sia tutto più comprensibile)
    1) copiare il foglio1 in foglio2 in modo da conservare l'originale
    2) analizzare le colonne e verificare che le colonne siano composte da celle piene diverse mi spiego meglio, esse possono contenere numeri diversi ma l'importante è che siano piene) se c'è una colonna riempita come un'altra colonna si deve mantenere la prima
    3) una volta che foglio2 è stato pulito da colonne riempite nello stesso modo, in un foglio3 si dovranno copiare colonna A,B,C e poi D mentre nel foglio3 A,B,C,E e così via
    4) ultimo passaggio (fogli3,4,5...)è eliminare le righe che hanno la colonna D composta da cella vuota

    Grazie al vostro forum sono riuscita a fare l'ultimo passaggio ma per il resto sono poco esperta, dite che è possibile??? Confido in voi ragazzi!!!!!
    File Allegati File Allegati
    Invia MPPM 

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923

    Re: Macro complicatissima

    Ciao R.five,
    leggi il Regolamento prima di continuare!
    Il cross-posting non è consentito:
    Regola nr.3 "Crossposting" la stessa domanda vietata su più forum
    Non è consentito postare lo stesso messaggio o parti di esso in più aree del forum o su altri forum di excel, salvo casi di particolare interesse che dovranno comunque essere autorizzati da un Admin
    Messaggi crossposting verranno chiusi e quando possibile riuniti.
    Se ripetuti potranno portare all'allontanamento dell'utente.
    Tra l'altro, nell'altro forum avevamo preso in considerazione la tua richiesta sia io che patel:
    http://www.excelvba.it/Forum/thread.php?f=1&t=10727

    ma si è riuscito a capire quello che volevi fare solamente dopo il tuo ultimo file allegato con spiegazioni.... stavo giusto provando a scriverti qualcosa:

    Codice: 
    Sub Scorpora()
    Dim Master As Worksheet, Sh As Worksheet, Nome_Foglio As String
    Dim Colonne(), uRiga As Long, nCol As Long, i As Long, j As Long, z As Long
    Dim Col_canc As Range, Verifica As Boolean, Conta As Long
    
    
    Set Master = Worksheets("Foglio1")
    uRiga = Master.Range("A" & Rows.Count).End(xlUp).Row
    nCol = Master.Cells(1, Columns.Count).End(xlToLeft).Column
    
    
    'Crea la copia del foglio originale
    'Master.Copy after:=Sheets(Sheets.Count)
    'ActiveSheet.Name = Master.Name & " - Copia"
    
    
    ReDim Colonne(1 To uRiga, 1 To nCol)
    
    
    'Riempio la matrice
    With Master
        For i = 5 To uRiga
            For j = 4 To nCol
                If .Cells(i, j).Value <> "" Then
                    Colonne(i - 4, j - 3) = 1
                Else
                    Colonne(i - 4, j - 3) = 0
                End If
            Next j
        Next i
    End With
    
    
    Verifica = False
    For i = 1 To nCol
        For j = 1 To nCol
            For z = 1 To uRiga - 4
                If i = j Then GoTo salta
                
                
            Next z
    salta:
        Next j
    Next i
    
    
    End Sub
    ma a quanto pare vuoi tutto e subito... nei forum non funziona in questo modo.

    Inoltre, il titolo della discussione deve anticipare il problema nella discussione:

    Regola nr.5 "il titolo"
    Assicurarti che il titolo sia il più chiaro possibile e che corrisponda al problema, usa termini appropriati che saranno usati come meta tag per una eventuale ricerca su Google.
    Evita di scrivere frasi inutili come “Aiuto” “Urgente ” “Non ci capisco niente” e "sono bloccato"
    perché potrebbero rivelarsi non appropriate e di conseguenza le tue discussioni potrebbero essere non lette.
    Ti consiglio di scrivere titoli che vanno dritto al problema esempio: "come faccio ad analizzare dati....." "come faccio ad estrarre records....." "come faccio a calcolare......." "come creare una TPivot......"
    I titoli ed i testi devono essere scritti in italiano corretto, sia grammaticamente che ortograficamente; postare frasi con errori evidenti è sempre una forma di NON rispetto per chi legge.
    Questo thread verrà chiuso!

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

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
  •