Condividi:        

Cancella righe con Citta'

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Cancella righe con Citta'

Postdi marcopont » 18/01/24 18:18

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
marcopont
Utente Junior
 
Post: 46
Iscritto il: 10/09/07 14:54

Sponsor
 

Re: Cancella righe con Citta'

Postdi Anthony47 » 18/01/24 23:08

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

Avatar utente
Anthony47
Moderatore
 
Post: 19386
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Cancella righe con Citta'

Postdi marcopont » 19/01/24 08:11

grazie grazie grazie
marcopont
Utente Junior
 
Post: 46
Iscritto il: 10/09/07 14:54

Re: Cancella righe con Citta'

Postdi marcopont » 19/01/24 16:38

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
marcopont
Utente Junior
 
Post: 46
Iscritto il: 10/09/07 14:54

Re: Cancella righe con Citta'

Postdi Anthony47 » 19/01/24 19:40

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
Avatar utente
Anthony47
Moderatore
 
Post: 19386
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Cancella righe con Citta'

Postdi marcopont » 22/01/24 09:47

grazie Anthony

perfetto
marcopont
Utente Junior
 
Post: 46
Iscritto il: 10/09/07 14:54


Torna a Applicazioni Office Windows


Topic correlati a "Cancella righe con Citta'":


Chi c’è in linea

Visitano il forum: Nessuno e 85 ospiti