"CAT TORRES DE LA ALAMEDA (2020PF)", "CAT VALE ANA GOMES (2020PF)", _ "BALESI LOCATIONS FIGARI (2020PF)", "CAT AULNAY (2020PF)", _ "ALBIAS STELLANTIS VO (PFV)", "ATESSA ADJACENT STELLANTIS (PFV)", _ "(2020PF OLD) SPEDITION HORST MOSOLF KORNWESTHEIM", _ "(2020PF OLD) WERNER EGERLAND NEUSEDDIN", _ If IsNumeric(Application.Match(Cells(i, "K"), valeurs_a_supprimer, 0)) Thenĭelete Criteria Rows Efficiently Sub DeleteCriteriaRows()ĭim DeleteStrings(): DeleteStrings = Array( _ LastRow = Cells(Rows.Count, "K").End(xlUp).Row
Valeurs_a_supprimer = Array("(2020PF OLD) WERNER EGERLAND NEUSEDDIN", "(2020PF OLD) SPEDITION HORST MOSOLF KORNWESTHEIM", "ALBIAS STELLANTIS VO (PFV)", "ATESSA ADJACENT STELLANTIS (PFV)", "BALESI LOCATIONS FIGARI (2020PF)", "CAT AULNAY (2020PF)", "CAT AVRIGNY (2020PF)", "CAT BOURGOGNE CHALON (2020PF)", "CAT BOURGOGNE DIJON (2020PF)", "CAT GUASTICCE (2020PF)", "CAT TORRES DE LA ALAMEDA (2020PF)", "CAT VALE ANA GOMES (2020PF)", "SOGRITA BASTIA (2020PF)", "SOGRITA SARROLA AJACCIO (2020PF)", "TRNAVA STELLANTIS (PFV)") 'Ajouter les valeurs que vous voulez supprimer dans le tableau 'Supprime les lignes où les cellules de la colonne K sont égales à certaines valeurs LastRow = Cells(Rows.Count, "F").End(xlUp).Row
'Supprime les lignes où les cellules de la colonne F sont vides 'Tri la colonne FĬolumns("F:F").Sort key1:=Range("F1"), order1:=xlAscending, Header:=xlYes When I halt the code, they notify me of the error. The sorting is effective, but the processing is really slow. Now you can expand the drop-down list to see whether the options are displayed correctly.I want to delete all of the rows in a sheet with 330000+ rows if a specified value is present in the k column fields. Hit OK to apply the Drop-Down List Properties to your document.ĩ. Note: you just need to fill in the Display Name, the textbox of Value will be filled automatically.Ĩ. Input the options you want to add in the list.
Tap the Add… button in the popping out Content Control Propertieswindow.ħ. Click it, and hit Properties in Controls section under Developer tab.Ħ. Now the list has been added to the where your cursor is.ĥ. Then go to Developer tab and find Drop-down List Content Control in Controls section.Ĥ. Place your cursor at where you want to add a drop-down list. Check Developer in the list of Main Tabs (under Customize the Ribbon) to enable it, and click OK to confirm the change.ģ. If not, click File > Options, and switch to Customize Ribbonpane in Word Options.Ģ.
First, have a check that if you can find Developer tab in your Word. For similar reasons, some people may also want to add a drop-down list in Word. I’ve wrote a post about creating a drop-down list in Excel before.
0 kommentar(er)
