[Excel] Le celle vuote non sono vuote!

[LucaXls]

Salve, tempo fa imparai da voi (anthony e Alexandra) una utilissimo codice in VBA, e cioè:

Codice: Seleziona tutto

Sub CelleVuote()
    Range("A:A").SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
End Sub

Questa bella funzione toglie tutte le celle "vuote" dell'intera colonna A.
Ora, il problema, è capire cosa intenda per vuote...
Se per esempio in una cella scrivo +""
cioè il cosiddetto "testo vuoto", quella cella non è più vuota ma è piena, anche se visibilmente continua ad esser vuota.
Ed in questo modo, la funzione "CelleVuote()" la considera come una cella "piena" e quindi non la cancella, mentre io vorrei che lo facesse.

Suggerimenti???
Grazie mille!

[Anthony47]

A quest' ora puoi provare questa:

Codice: Seleziona tutto

Sub Vuote()
AADD = Range("A65536").End(xlUp).Row
Range("A:A").Select
Selection.AutoFilter Field:=1, Criteria1:="="
On Error GoTo fine
Range("A2:A" & AADD).SpecialCells(xlCellTypeVisible).Select   '<<<< A1???
Selection.Delete Shift:=xlUp

fine:
ActiveSheet.ShowAllData
End Sub

Ciao,

[LucaXls]

Sì grazie, così và, con i giusti accorgimenti... sei un mostro di cortesia e celerità!

Ma giusto per curiosità:

A quest' ora puoi provare questa:

Codice: Seleziona tutto

Sub Vuote()
[b]AADD = Range("A65536").End(xlUp).Row[/b]
Range("A:A").Select
Selection.AutoFilter Field:=1, Criteria1:="="
On Error GoTo fine
Range([b]"A2:A" & AADD[/b]).SpecialCells(xlCellTypeVisible).Select   '<<<< A1???
Selection.Delete Shift:=xlUp

fine:
ActiveSheet.ShowAllData
End Sub

Ciao,

Che vuol dire di preciso quel codice che ti ho messo in grassetto?
Non arrivo a capirlo...[/b]

[LucaXls]

Ops forse il grassetto non è venuto... mi scuso per questo....
Ti riporto le due righe che non ho capito:

AADD = Range("A65536").End(xlUp).Row
'questa non l'ho proprio capita!


Range("A2:A" & AADD).SpecialCells(xlCellTypeVisible).Select
'di questa non ho capito l'intervallo selezionato

[Anthony47]

così và, con i giusti accorgimenti...

Una macro ha il pregio e il difetto di fare quello che e' programmata per fare. Io in genere NON CANCELLO dati "inutili", magari copio quelli "utili" in altra area e poi li elaboro; cosi' evito di avere risultati che non posso verificare da dove vengono fuori.

AADD = Range("A65536").End(xlUp).Row
'questa non l'ho proprio capita!

Con questa operazione la variabile AADD (e' un nome di fantasia, inizialmente avevo scritto ADR poi non avevo tempo di verificare se ADR fosse una parola riservata) viene compilata con il numero di riga dell' ultima cella occupata nel range A1:A65536.

Range("A2:A" & AADD).SpecialCells(xlCellTypeVisible).Select
'di questa non ho capito l'intervallo selezionato

Sapendo cosa e' AADD, questa domanda e' superata; vero?

Ciao,

[LucaXls]

Sì perfetto! Non avevo capito che AADD fosse semplicemente il nome di una variabile...


Un'ultima cosa:

Avendo imparato che la riga di comando

"Range("A:A").SpecialCells(xlCellTypeBlanks).Select"

seleziona nella colonna A tutte le celle vuote (dove ahimè il classico ="" non è considerato vuoto) ti chiedo: non è possibile, con un comando molto simile a questo, chiedere di selezionare tutte le celle il cui valore è "PLUTO", per esempio??

Come sempre... grazie!

[Anthony47]

Per l’ uso di Range("A:A").SpecialCells, guarda nell’ help del vba alla voce Metodo SpecialCells quale e’ la sintassi e quali sono le opzioni che il metodo mette a disposizione.

Oppure continui a usare la Sub Vuote() che to ho passato con le dovute personalizzazioni, esempio

Range("A:A").Select
Selection.AutoFilter Field:=1, Criteria1:="PLUTO"

(o anche il piu’ stringato Range("A:A").AutoFilter Field:=1, Criteria1:="PLUTO")

Ciao,