Eliminare righe vuote

[giorgioa]

Salve a tutti

chiedo se mi potete aiutare a risolvere un problema.
Una macro che mi elimina righe vuote.
Do maggiori informazioni:
su un foglio da rigo 10 da colonna b a colonna u
una macro sviluppa delle formule per trovare dei dati
e o trova o non trova dati prima di passare alla riga successiva
di questa riga fa il copia e incolla valori .
Quindi non rimane traccia di formule.
Non è possibile dire quante righe vuote intercorrono tra i dati dell'una
e i dati dell'altra quando li trova.
La riga con i dati non ha tutte le 20 caselle piene.
E i valori quando ci sono, sono numeri.
Possibilmente chiedo che elimini, della riga, solo da colonna b ad u
La formattazione del foglio è GENERALE
Spero che i dati siano sufficienti
Un saluto e un ringraziamento
giorgioa
Utente Senior

Post: 180
Iscritto il: 16/04/12 14:00

[Anthony47]

Penso che una macro come questa possa ottenere l' effetto che ho capito:

Codice: Seleziona tutto

Sub delvuote()
Check = "B:U"    '<<< Le colonne da controllare
'
cCount = Range(Check).Columns.Count
LastR = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Range("A1").Row
For I = LastR To 1 Step -1
    If Application.WorksheetFunction.Count(Range("B" & I).Resize(1, cCount)) = 0 Then
            Range("B" & I).Resize(1, cCount).Delete Shift:=xlUp
    End If
Next I
End Sub


Controlla quanti "numeri" ci sono in colonna B:U, se "nessuno" elimina quelle celle facendo scivolare verso l' alto quelle sottostanti.
Come sempre, provare su una copia dei propri dai.

Ciao

[giorgioa]

Salve Antony,

buona giornata e grazie dell'intervento.

Quando lancio la macro mi chiede di definire le seguenti VARIABILI
I, CHECK,CcOUNT, Lastr (naturalmente una alla volta) e da grande compilatore
di macro le ho messe tutte sotto la voce integer poi incominciano i guai
nel senso che non so dove andare a parare, tipo non corrispondente eccetera.

Dimenticavo nel precedente postato, poichè le righe vuote sono troppe
parlo su 5000 righe(1/12° piene e le altre da eliminare) inizialmente
il lavoro che fa la mia macro prende i dati dal foglio "Archivio" e su questo
foglio in B9 ho il numero complessivo di righe e nella mia macro ho un For
il cui For si appoggia per lo sviluppo per il conteggio delle righe(cioè quando fermarsi).
Eventualmente se questo dato ti può servire in modo tale che la tua macro
completi la eliminazione delle colonne vuote.
Ti faccio presente che non so cosa fa la tua macro a causa del mancato sviluppo.
Ti saluto

[Flash30005]

I, LastR e cCount devi dichiararle integer
mentre
Check come string
la macro se trova righe vuote (da B a U), le elimina facendo slittare le righe con dati verso l'alto

ciao

[Anthony47]

La dichiarazione delle varabili probabilmente e' obbligatoria perche' il tuo Modulo ha nelle intestazioni la riga "Option Explicit"; se elimini quella riga puoi lavorare anche senza dichiarazioni.

Ciao

[ricky53]

Ciao,
dopo aver letto gli altri interventi prova in questo modo

Codice: Seleziona tutto

Dim Check As String, cCount As Integer, LastR As Long, I As Long

Ho definito "Long" le due variabili solo per sicurezza nel caso tu avessi più di 32.767 righe contenenti dati.

Ho eseguito la macro e ... nessun problema: ha fatto quello che doveva fare.

[giorgioa]

Salve Anthony e Ricky,

il check va bene con string.

la macro funziona perfettamente e dato la mole di righe
è anche veloce.
[RISOLOTO]

Grazie e saluti, se mi è consentito un saluto a anche a Flash30005
Alla prossima