Punte di Excel
  1. Punte di Excel
  3. Gamma di pasta Vba alla fine della tabella in excel
Intereting Posts
Come faccio a aggiungere una row di dati di Excel da un foglio a un altro? Excel che cerca di utilizzare un'equazione per call valore da una colonna diversa trovare il lunedì o il mercoledì prima di una data in excel Creare una nuova colonna senza duplicati VBA? utilizzando VLOOKUP da Outlook È un command simile all'interno di Excel che esegue lo stesso del command "piano" all'interno di MATLAB Manipolazione di celle di celle Errore VBA Countiff Come colbind i dati dai fogli di calcolo di Excel 2010 nella mia cartella di lavoro da una costante Spostamento dal task scheduler in XP a Windows7 Come trasferire le celle evidenziate in Excel 2007 da una tabella all'altra nello stesso foglio? Contare il numero di celle sulle condizioni eliminare la colonna in Excel Excel non visualizza accenti spagnoli cosa significa "multidimensionale" nel mio riferimento VBA di Microsoft ActiveX Data Objects (multidimensionale)?

Gamma di pasta Vba alla fine della tabella in excel

Ho scritto questa macro in excel. Ma quando uso finale (xldown) lo consiglio lavoro docent. Qualche suggerimento? Voglio filtrare un grande tavolo e copiarlo sul foglio 2. Ogni volta che voglio la tabella di paste alla fine della tabella (dopo l'ultima fila di tabella)

Questo è il mio codice vba: 

Sub filter() Sheets("Sheet1").Range("A1:J46371").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("Sheet1").Range("M9:W10"), CopyToRange:=Sheets("sheet2").Range("A1:J1"), _ Unique:=False Sheets("Sheet1").Range("A1:J46371").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("Sheet1").Range("M11:W12"), CopyToRange:=Sheets("sheet2").Range("A1:J1", Range("A1:J1").End(xlDown)).Select, _ Unique:=False End Sub

Il codice è corretto ma è necessaria una leggera modifica quando si selezionano le celle da copiare usando xlDown 

 Sheets("Sheet2").Range(Range("A1:J1"), Range("A1:J1").End(xlDown)).Select

Si prega di sostituire la linea di codice di cui sopra in CopyToRange e verificare.