Astuces Excel
  1. Astuces Excel
  3. Copier datatables de 2 feuilles différentes et postuler à une autre
Intereting Posts
Syntaxe pour inclure l'opérateur logique 'AND' dans les instructions IF Problème de copyr et coller le referencement relatif Trouvez la fréquence et l'location d'un mot récurrent dans une cellule excel vba convertit la formule en valeur si la valeur est> 0 dans la plage spécifique Sélection de file conditionnel excel en tant que source de données SSRS Dans excel 2010/2013, en utilisant la formule de text (valeur, format), comment faire reference à une autre cellule pour le champ "Format_text"? Comptage de lignes en double à l'aide d'Excel Macro Excel ou script VBA pour convertir datatables de cellules CSV en lignes VSTO COM add-in ProgID Excel Groupement de geolocation créer un événement de calendar public outlook en utilisant une macro Excel VBA Sélectionnez la dernière cellule vide dans la colonne du mois en utilisant la date d'aujourd'hui et collez datatables Comment former un format conditionnel dans Excel en fonction des dates Feuilles ou Formule Excel pour YOY% Changement Copiez le text d'une page Web dans une cellule unique avec Excel avec VBA?

Copier datatables de 2 feuilles différentes et postuler à une autre

Je souhaite copyr des données de 2 feuilles différentes en fonction d'une valeur de cellule dans la troisième feuille et mettre ces valeurs dans la 3ème feuille après l'application de vlookup via vba …

J'utilise le code suivant pour le faire: 

For TableRowCntr = 0 To i Range("A" & 9 + TableRowCntr + n).Select ActiveCell.Value = "Fiber No." & TableRowCntr + 1 Selection.Font.Size = 8 Range("A" & 11 + TableRowCntr + n).Select ActiveCell.Value = "Individual Splice Loss" Selection.Font.Size = 8 With Selection.Font .ColorIndex = 4 .TintAndShade = 0 End With FldrSsortingng = Null FIBERREPORTNAME = Null fiberreportname1 = Null Set appExcel = New Application Set appExcel1 = New Application 'Set openWorkBook = "" 'Set openWorkBook1 = "" For TableCOLCntr1 = 0 To j iTblCntr = Choose(TableCOLCntr1 + 1, "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC") iAlphabet = iTblCntr & 9 + TableRowCntr + n Range(iAlphabet).Select FIBERREPORTNAME = Choose(TableRowCntr + 1, "A001", "A002", "A003", "A004", "A005", "A006", "A007", "A008", "A009", "A010", "A011", "A012", "A013", "A014", "A015", "A016", "A017", "A018", "A019", "A020", "A021", "A022", "A023", "A024", "A025", "A026", "A027", "A028", "A029", "A030", "A031", "A032", "A033", "A034", "A035", "A036", "A037", "A038", "A039", "A040", "A041", "A042", "A043", "A044", "A045", "A046", "A047", "A048", "A049", "A050", "A051", "A052", "A053", "A054", "A055", "A056") ' open workbook Set appExcel = New Application openWorkBookName = "C:\Users\Shikhar\Desktop\VTL Rewa\Ferozepur\Templates\Fiber Reports\Ferozepur to Jalallabad\A to B\" & SheetName & "\" & FIBERREPORTNAME Set openWorkBook = appExcel.Workbooks.Open("C:\Users\Shikhar\Desktop\VTL Rewa\Ferozepur\Templates\Fiber Reports\Ferozepur to Jalallabad\A to B\" & SheetName & "\" & FIBERREPORTNAME) 'C:\Users\Shikhar\Desktop\VTL Rewa\Ferozepur\Templates\Fiber Reports\Ferozepur to Jalallabad\A to B\ ActiveCell.Value = "=vlookup(" & iTblCntr & "6," & FIBERREPORTNAME & ".xls!C17:E" & i + 17 & ",3,TRUE)" Selection.Font.Size = 8 openWorkBook.Close appExcel.Quit Set appExcel1 = New Application fiberreportname1 = Choose(TableRowCntr + 1, "A001", "A002", "A003", "A004", "A005", "A006", "A007", "A008", "A009", "A010", "A011", "A012", "A013", "A014", "A015", "A016", "A017", "A018", "A019", "A020", "A021", "A022", "A023", "A024", "A025", "A026", "A027", "A028", "A029", "A030", "A031", "A032", "A033", "A034", "A035", "A036", "A037", "A038", "A039", "A040", "A041", "A042", "A043", "A044", "A045", "A046", "A047", "A048", "A049", "A050", "A051", "A052", "A053", "A054", "A055", "A056") openWorkBookName1 = "C:\Users\Shikhar\Desktop\VTL Rewa\Ferozepur\Templates\Fiber Reports\Ferozepur to Jalallabad\B to A\" & SheetName & "\" & fiberreportname1 Set openWorkBook1 = appExcel1.Workbooks.Open("C:\Users\Shikhar\Desktop\VTL Rewa\Ferozepur\Templates\Fiber Reports\Ferozepur to Jalallabad\B to A\" & SheetName & "\" & fiberreportname1) iAlphabet = iTblCntr & 10 + TableRowCntr + n Range(iAlphabet).Select ActiveCell.Value = "=vlookup(" & iTblCntr & "6," & fiberreportname1 & ".xls!C17:E" & i + 17 & ",3,TRUE)" 'ActiveCell.Value = "test 1" Selection.Font.Size = 8 openWorkBook1.Close appExcel1.Quit iAlphabet = iTblCntr & 11 + TableRowCntr + n Range(iAlphabet).Select Selection.Font.Size = 8 With Selection.Font .ColorIndex = 4 .TintAndShade = 0 End With ActiveCell.Value = "=sum(" & iTblCntr & 9 + TableRowCntr + n & ": " & iTblCntr & 10 + TableRowCntr + n & ")/2" Next n = n + 2 Next

Le problème auquel je suis confronté est une fois que le code est exécuté, j'ai la même formule dans les deux cellules … de la ligne 9 et 10 … alors que l'objective est d'avoir datatables du classur 1 dans la ligne 9 et datatables du classur 2 dans la rangée 10.

Aide aimablement. Veuillez me faire savoir si vous avez besoin d'aide pour comprendre le code ci-dessus.