Transfert d'informations de la feuille d'input vers la feuille maîtresse

J'essaie de déplacer datatables d'une feuille de travail d'input d'un classur vers un autre classur de classur. Les deux feuilles sont dans le même file et si possible, il serait formidable que les deux files n'aient pas à être ouverts en même time afin de transférer datatables, mais le classur principal sauvegarderait une fois datatables transférées. Liens vers les images des files ci-dessous pour faciliter la compréhension de ce que j'essaie de faire.

Les données dans la feuille de travail d'input se trouvent dans la ligne 6, les colonnes AJ avec chaque user saisissant les détails des tâches auxquelles elles doivent être complétées. Je voudrais savoir quand un button est cliqué, datatables de la feuille de travail d'input sont transférées dans la ligne 2, les colonnes BK dans le classur principal, de sorte que chaque fois qu'une nouvelle tâche est input et transférée, elle apparaît dans la ligne ci-dessous (de sorte qu'elle peut pivoter plus tard, etc.).

http://i.stack.imgur.com/b2cyI.jpg – feuille d'input

http://i.stack.imgur.com/JZr0a.jpg – feuille maîtresse

  1. Utilisez les macros ici pour get la dernière ligne dans la feuille principale.
  2. Ensuite, écrivez simplement les valeurs de la feuille d'input à la cellule correspondante dans la fiche principale.
  3. C'est tout. Voici comment vous référez les cellules:

    tbl_master.cells (1,3) = tbl_input.cells (3,5) .value

Assurez-vous que la ligne dans le tbl_input est une variable, provenant de la fonction, calculant la dernière ligne. Essaie!

Edit: C'est ce que j'utilise pour la dernière ligne:

Public Function last_row_with_data(ByVal lng_column_number As Long, shCurrent As Variant) As Long last_row_with_data = shCurrent.Cells(Rows.Count, lng_column_number).End(xlUp).Row End Function 

Si vous souhaitez find la dernière ligne de la colonne B de la feuille "tbl_main", vous l'appelez comme suit:

 last_row_with_data(2,tbl_main) 

Edit2: Modifiez les noms de vos feuilles ici, et faites-les reference par leurs noms. entrez la description de l'image ici

Pour accéder à cette window, select la feuille à gauche et appuyez sur F4.