Cancella righe con Citta'

[marcopont]

Ciao a tutti

chiedo il vostro prezioso aiuto per capire se possibile mettere giu' un codice che da una tabella elimini le righe andando a controllare in colonna 18 se c'e' il nome di una citta' (o comunque un testo) e non un numero

grazie mille

Marco

[Anthony47]

Limitandosi a controllare che in colonna R=18 ci sia un "numero" oppure "no", questa macro elimina le righe che non hanno in R un dato numerico:

Codice: Seleziona tutto

Sub DelText()
Dim I As Long
'
For I = Cells(Rows.Count, 18).End(xlUp).Row To 2 Step -1
    If Not IsNumeric(Cells(I, 18)) Then
        Rows(I).Delete Shift:=xlUp
    End If
Next I
End Sub


Certo, se le righe fossero 10mila e ce ne fossero 5mila da eliminare potrebbe richiedere "qualche secondo", ma a domanda semplice faccio una proposta semplice...

D:\DDownloads\[MULTI_C401155.xlsm]Foglio4
keyw
delete non numeric rows

[marcopont]

grazie grazie grazie

[marcopont]

buonasera

scusate se torno sul topic, ma lavorando sulla tabella, ho riscontrato delle sporcature e oltre a stringhe di testo, nella colonna 18 trovo anche numeri inseriti erroneamente, quindi la regola del "cancella se non numerico" non vale piu'. Si puo' a questo punto fare il check su celle che contengono piu' di 2 caratteri, visto che i miei codici arrivano fino a 99?

grazie

[Anthony47]

Si puo' a questo punto fare il check su celle che contengono piu' di 2 caratteri, visto che i miei codici arrivano fino a 99?

Allora sostituisci If Not IsNumeric(Cells(I, 18)) Then con

Codice: Seleziona tutto

    If Len(Cells(I, 18)) > 2 Then

[marcopont]

grazie Anthony

perfetto