2010-11-23 59 views
0

Existe-t-il un moyen ou une formule permettant de déplacer une ligne vers une feuille différente en tapant simplement les critères et en appuyant sur Entrée?Déplacement de lignes vers d'autres feuilles

Comme si j'avais 3 feuilles et que l'une des colonnes sur chaque feuille était appelée état, et dans cette colonne je tape COMP, pourrait-il déplacer toutes les informations vers une feuille appelée feuille COMP?

+0

Vous avez besoin d'une macro. Une expérience avec ça? –

Répondre

1

Insérer ce code sur vos feuilles de calcul

Private Sub Worksheet_Change(ByVal Target As Range) 
    If (Range("A1").Value = "COMP") Then ' Replace "A1" for your cell that will contain COMP 

    ActiveSheet.Range("1:1").Copy _  ' Replace 1:1 by your souce row 
     Destination:=Worksheets("COMP").Range("2:2") 'replace 2:2 by your dest row 


    End If 
End Sub 

Lorsque l'utilisateur modifie une valeur dans la feuille de calcul, si la valeur de « A1 » est « COMP », la ligne que vous avez choisi (1 dans l'exemple) est copié dans votre ligne de destination (ligne 2 dans l'exemple) dans la feuille de calcul COMP.

+0

Où dans ma feuille devrais-je ajouter ce – daddycardona

+0

aussi je pourrais voir ce code fonctionnant mais pour seulement une rangée j'ai comme 5 feuilles différentes que je veux utiliser ce code pour si comme si la rangée 2: 2 est pleine cela irait automatiquement à la prochaine rangée? – daddycardona

+0

@daddycardona Désolé, il s'agit d'une macro, comme Excel est programmé. Suivez ces écrans http://www.xlpert.com/partA.htm et collez mon code dans chaque feuille où figure la figure 1.2. –

0

Vous pouvez créer une macro VBA qui fait tout le déplacement pour vous, mais qui nécessiterait que l'utilisateur l'exécute manuellement, pas seulement en tapant COMP dans une cellule. Vous pouvez également le faire mettre à jour automatiquement sans que l'utilisateur appuie sur COMP et entrez en utilisant une formule qui fait référence aux autres feuilles de calcul (mais il sera toujours là).

=Sheet1!A1 

Le code ci-dessus référencera la cellule supérieure gauche de la feuille de calcul 'Sheet1'.