[Excel] Eliminare riga e colonne

[sax]

Dovrei eliminare con una macro le colonne a-b-f e le righe che alla colonna d hanno come inizio della casella la parola Part.
mi potete aiutare
Grazie!

[Anthony47]

Ciao, per cancellare le 3 colonne:

Codice: Seleziona tutto

Range("A:B,F:F").Select
    Range("F1").Activate
    Selection.Delete Shift:=xlToLeft

(ricorda che se rilanci la macro ricancelli 3 colonne, senza possibilita' di Annullare)

Per il secondo problema, intendi che tutte le righe che in colonna D hanno o iniziano con il valore "Part" devono essere cancellate?
Non ti puo' essere sufficiente un filtro (Dati -> Filtro -> Filtro automatico) fatto sulla colonna D, poi scegliere Filtro personalizzato, la condizione "non inizia con" e dare "Part" come valore?

Se lo vuoi fare in una macro:

Codice: Seleziona tutto

Selection.AutoFilter Field:=1, Criteria1:="<>Part*", Operator:=xlAnd

(nell' ipotesi c' e' una unica colonna con filtro). O ti necessita proprio la rimozione delle righe?

Ciao,

[sax]

grazie Anthony47
la prima mi funziona perfettamente
la seconda mi puo anche andare bene con filtro automatico ma da un errore
"errore run-time '1004':
Errore nel metodo AutoFilter per la classe Range"

Poi ho notato un altro problema e cioè che queste macro che devo inserire devono essere sempre attive sulla barra degli strumenti in quanto li devo poter utilizzare ogni volta che viene creato il file in questione da una esportazione
Grazie ancora

[Alexsandra]

Prova così

Codice: Seleziona tutto

Sub Filtra()
Range("D1:D1000").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End Sub

e per toglierlo

Codice: Seleziona tutto

Sub Togli_filtro()
ActiveSheet.ShowAllData
End Sub

Puoi associare le 2 macro ad un interrutore(lo prendi dal menù moduli e lo trascini nel foglio) o a 2 pulsanti

[sax]

Alexandra
Mi elimina solo le righe nella colonna B dove vi sono caselle vuote non quelle con la scritta che inizia con "Part. 00000" dove 0000 sono vari numeri

[Alexsandra]

Sorry.. mi sono fermata a leggere il post del filtro di Antony e non avevo capito la tua richiesta.
Per togliere tutte le righe che contengono "Part" usa questo codice

Codice: Seleziona tutto

Sub cancella()
Set Zona = Worksheets(1).Range("D:D")
For Each CL In Zona
 Stringa = CL.Value
 Parola = "Part"
Dove = InStr(Stringa, Parola)
 If Dove Then
 CL.EntireRow.Delete
 End If
Next
End Sub

[sax]

Alexsandra

Grazie ha funzionato perfettamente

ma per conoscere tutti i codici che si possono utilizzare con excel esiste qualche guida specifica perchè mi servirebbero altre informazioni e non vorrei esagerare ed approfittare della vostra disponibilità

Grazie ancora

[Aless{a}ndro]

Per togliere tutte le righe che contengono "Part" usa questo codice..

grazie mi è stato molto utile