[excel] - TROPPE CONTINUAZIONI DI RIGA

[il_perozzi]

buongiorno a tutti, ho una problema sull'uso di macro su tabella excel e precisamente "creando" una macro volevo escludere da una colonna solo gli importi a 0 (zero), ma mi si presenta un errore [troppe continuazioni di riga] e la macro si ferma, per cui posso solo escludere gli zeri manualmente, è possibile aggirare l'ostacolo ?
come sempre un grazie di cuore per l'interessamento.

il_perozzi

[pietrol]

Ciao il_perozzi
se puoi incollare qui il testo della macro proviamo a vedere cosa non va.

ciao
pietrol

[il_perozzi]

ok, questo è il testo:

Sub zzz()
'
' zzz Macro
'

'
ActiveSheet.Range("$A$1:$K$2262").AutoFilter Field := 11, Criteria1 := Array( _
"0,13","0,44","0,48","0,62","0,65","0,84","1,28","1,55","1,84","1,85","1,90", _
"1.000,00","1.023,24","1.043,56","1.066,70","1.094,40","1.095,37","1.112,40", _
"1.189,49","1.244,67","1.294,23","1.296,01","1.300,00","1.309,36","1.322,28", _
"1.338,88","1.348,58","1.501,21","1.552,88","1.563,76","1.564,10","1.636,20", _
"1.701,20","1.734,26","1.750,00","1.780,02","1.998,98","10,00","10,39","10,72", _
"10,93","100,37","101,38","101,58","103,74","103,75","103,96","104,03","104,30" _
,"105,60","105,72","-105,84","106,15","106,56","107,14","107,36","107,42", _
"107,84","-108,36","108,64","109,08","109,25","109,44","109,82","11,02","11,12" _
,"11,22","11,30","11,48","11,54","11,70","11,84","11,96","11,97","11,98", _
"110,04","110,20","110,87","112,01","112,17","112,20","112,32","112,69", _
"114,77","115,78","116,62","116,68","116,92","117,25","117,80","118,00", _
"118,08","118,30","118,80","119,51","12,00","12,25","12,30","120,00","120,54", _
"121,04","121,91","123,60","124,28","124,34","124,99","-127,63","127,97", _
"129,13","129,56","13,00","13,02","-13,97","13.007,08","130,78","130,80", _
"130,90","131,00","132,19","132,92","133,36","134,14","134,22","134,40", _
"134,98","135,66","136,20","136,37","136,61","136,75","137,12","137,23", _
"137,58","138,18","138,40","138,58","139,63","14,09","14,35","14,40","-14,75", _
"140,28","140,57","141,36","141,84","142,19","142,62","144,00","144,24", _
"144,35","144,66","145,08","-148,08","148,13","15,89","151,36","-152,11", _
"152,40","153,60","154,14","154,38","154,76","155,62","157,86","159,00", _
"159,29","159,97","16,03","16,49","16,84","161,00","161,02","162,00","162,88", _
"163,80","166,08","166,52","166,87","169,26","17,09","-17,28","17,51","17,53", _
"17,65","170,29","171,41","171,50","171,83","172,24","172,79","172,94","173,27" _
End Sub

spero che possa darmi la soluzione.
a presto.

il_perozzi

[Flash30005]

Spiega meglio cosa ti occorre
Vedo che filtri le colonne da A a K e dalla riga 1 alla riga 2262
Applicando la tua macro mi sparisce tutto, per via del filtro sulla colonna K, e non riesco a capire come vorresti agire:
vuoi eliminare le righe che portano degli zeri ma se tutte le celle nella riga da A a K hanno zero ? (cosa più plausibile), oppure va cancellata la riga con qualsiasi colonna che abbia zero, o, ancora, se lo ha solo la colonna K?

Fai sapere
Ciao

[il_perozzi]

provo a spiegarmi meglio la tabella va da a1 a k2262 (ma la lunghezza delle righe può variare) e nella colonna k ci sono dei numeri, a me servirebbe che quando in colonna k ci sia questo zero, o -zero (se negativo) la macro escluda le righe (solo quelle) che hanno questo valore in k.
spero di essere stato chiaro.

il_perozzi

[pietrol]

Ciao il_perozzi
apri il filtro automatico sulla colonna K, scegli "Personalizza", dall'elenco seleziona "Maggiore di" e a destra scrivi "0" (senza virgolette), premi OK.
Se è quello che ti serve registralo in una macro(come fosse antani).


ciao
pietrol

[Anthony47]

Guarda anche il messaggio i pietrol prima di questo.
Se ci sono troppe continuazioni di riga, allora dimezzale e riprova; cioe' invece di mettere 10 elementi su ogni riga prima di continuarla sulla riga successiva mettine 20 per riga (poi interrompi e continui con " _").
Ma il codice postato serve a eliminare le righe che hanno "zero" in colonna K??

In alternativa potresti provare questa:

Codice: Seleziona tutto

Sub delKZer()
righe = Cells(Rows.Count, 11).End(xlUp).Row
For I = righe To 1 Step -1
Cells(I, 11).Select
If Selection.Value > -0.0001 And Selection.Value < 0.0001 Then Selection.EntireRow.Delete
Next I
End Sub


Ho inserito una soglia tra -0,0001 e +0,0001 per determinare cosa cancellare e cosa no; la presenza di valori "-zero" mi fa pensare che ci siano dei valori decimali in gioco per cui il confronto con "0" porterebbe a risultati strani; eventualmente varia quelle soglie.

Ciao

[il_perozzi]

per pietrol, il filtro che mi suggerisci mi toglie anche i numeri negativi (minori di zero) che invece mi servono e quindi non va bene.
proverò con quello di Anthony47

il_perozzi
__________________________________________
(blinda la supercazzora .....come fosse antani)

[pietrol]

Ciao il_perozzi
hai ragione, avevo letto male la tua richiesta, correggi così:
apri il filtro automatico sulla colonna K, scegli "Personalizza", dall'elenco seleziona (invece di "Maggiore di") "Diverso da" e a destra scrivi "0" (senza virgolette), premi OK.

ciao
pietrol