|
Login
  • Page:
  • 1
  • 2

TOPIC: controlla celle vuote

controlla celle vuote 12 years 2 months ago #427

  • al85
  • al85's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 6
  • Karma: 0
Salve a tutti sono nuovo di questo forum ma sarò pronto a scambiare la mia conoscenza con la vostra.
Inizio con una domanda:
sto progettando un simulatore di produzione modulare. Mi serve una funzione/macro che automaticamente controlla una riga e ne cancella le celle vuote mettendo vicino i contenuti delle celle piene. Dopo aver fatto questa roba deve passare alla riga successiva e rifarlo fino a quando la prima cella della n-esima riga è vuota.
Grazie mille!!!
The administrator has disabled public write access.

Re:controlla celle vuote 12 years 2 months ago #429

  • Gianclaudio
  • Gianclaudio's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 397
  • Karma: 23
Ciao Al

Perche' non usare un filtro automatico e cancellare le righe vuote?

Vuoi postare un esempio per capire meglio cosa devi fare?

ciao,
G.
The administrator has disabled public write access.

Re:controlla celle vuote 12 years 2 months ago #430

  • al85
  • al85's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 6
  • Karma: 0
allora praticamente succede questo:
attraverso una macro faccio generare autamaticamente una serie di moduli da assemblare per una serie di commesse. Ogni commessa avrà i suoi moduli e quindi succede una roba del genere:
commessa modulo1 modulo2 modulo3 modulo4 modulo5
1.1 modulo1 modulo3 modulo5
1.2 modulo2 modulo4 modulo5
1.3 modulo1 modulo2 modulo3 modulo4 modulo5
etc etc
questo è il pacchetto che l'utente visualizza ora e che poi dovrà decidere se accettare (mandare in produzione i moduli delle singole commesse) oppure no.
Praticamente io voglio fargli visualizzare quel contenuto però eliminando gli spazi vuoti (che sono delle celle). Non posso mettere i filtri perchè praticamente è un simulatore e l'utente finale non vede il "back-office".
Grazie per la disponibilità!
The administrator has disabled public write access.

Re:controlla celle vuote 12 years 2 months ago #431

  • Gianclaudio
  • Gianclaudio's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 397
  • Karma: 23
Ok, penso che ora sia chiaro.

Per evitare di lavorare a vuoto e siccome il testo non e' il massimo, puoi inserire un file con due fogli: 1) come si trovano i dati in origine e 2) come vuoi che vengano visualizzati dopo la macro?

Credo che con poche mosse si possa arrivare all'obiettivo

Ciao,
G.
The administrator has disabled public write access.

Re:controlla celle vuote 12 years 2 months ago #433

  • davideba
  • davideba's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 448
  • Karma: 33
ammetto che sembrava più facile... :blink:
ecco la mia proposta.

avanti con i miglioramenti: sono certo che si possa ottimizzare per diminuire il numero di cicli. o almeno il numero di ripetizioni dei cicli.

Sub CompattaCommessa()

    Const PrimaRiga = 2
    Const PrimaCol = 2
    Const NumModuli = 5
    Dim riga As Long, modulo As Long, succ As Long
    Dim i As Long


riga = PrimaRiga

Do While Not IsEmpty(ThisWorkbook.Worksheets("Foglio1").Cells(riga, 1))
    For modulo = 1 To NumModuli - 1
        If IsEmpty(ThisWorkbook.Worksheets("Foglio1").Cells(riga, (PrimaCol - 1) + modulo)) Then
            succ = 1
            Do While IsEmpty(ThisWorkbook.Worksheets("Foglio1").Cells(riga, (PrimaCol - 1) + modulo + succ)) And (modulo + succ) < NumModuli
                succ = succ + 1
            Loop
            i = modulo
            Do
                ThisWorkbook.Worksheets("Foglio1").Cells(riga, (PrimaCol - 1) + i) = ThisWorkbook.Worksheets("Foglio1").Cells(riga, (PrimaCol - 1) + i + succ)
                ThisWorkbook.Worksheets("Foglio1").Cells(riga, (PrimaCol - 1) + i + succ).ClearContents
                i = i + 1
            Loop While i + succ <= NumModuli
        End If
    Next modulo
    riga = riga + 1
Loop

End Sub
The administrator has disabled public write access.

Re:controlla celle vuote 12 years 1 month ago #628

  • al85
  • al85's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 6
  • Karma: 0
Karma non so come ringraziarti!!! non vedevo da un pò questo blog perchè ho fatto altro in queste settimane...ora provo con questa macro. Ma se volessi passarti un file di excel con una prova banalissima di ciò che mi serve?
(un esempio con dei numeri e una spiegazione) cosi magari applichi direttamente li la macro e ci scambiamo quello...
Grazie per la tua infinita disponibilità e scusa per il ritardo!
The administrator has disabled public write access.
  • Page:
  • 1
  • 2
Time to create page: 0.329 seconds