2014-07-17 3 views
0

Je tente d'obtenir un msgbox lorsqu'une valeur est dupliquée sur 2 colonnes. La première colonne valeur peut être répétée, mais la deuxième colonne déterminera si son double ou nonVBA msgbox base de valeurs dupliquées sur 2 colonnes

-à-dire

Colonne B = Code, colonne L = Mois

L'utilisateur peut saisir le code plusieurs fois, mais s'il entre sur le même mois, je veux quelqu'un msgbox pop up

Hope peut me aider

Merci

Répondre

0

Avez-vous l'intention d'avertir \ informer l'utilisateur? Si oui, je le ferais sans macro. J'utiliserais la mise en forme conditionnelle pour que la cellule change de couleur chaque fois que l'information en double est entrée.

1) Créez une colonne sur votre feuille de calcul avec une formule qui concatène les informations dans la colonne B & L la formule serait = B1 & L1 (copiez cette formule dans le tableau). Vous pouvez cacher la colonne pour que personne ne la voit. Pour cet exemple, disons que vous avez utilisé la colonne "M". 2) Sélectionnez toute la colonne Code ou Mois (ou les deux) et cliquez sur le bouton CONDITIONAL FORMATTING dans l'onglet Accueil, choisissez NEW RULE, USE FORMULA pour déterminer les cellules à formater, puis entrez la formule suivante: = COUNTIF ($ M $ 4: $ M $ 1000, M1)> 1 (notez que je suppose que votre plage de données est inférieure à 1000 enregistrements, sinon augmentez ce nombre). Définissez le format sur quelque chose comme un remplissage rouge et instantanément les doublons seront marqués. L'utilisateur sera également capable de localiser rapidement l'enregistrement où cette combinaison a déjà été entrée car elle deviendra rouge aussi.

Si vous voulez vraiment une macro pour ce faire, vous pouvez simplement écrire une boucle pour compare la valeur de la cellule active de B (RANGEE ACTIVE) & L (activerow) à chaque précédente B # L # & combinaison. Si une correspondance est trouvée, utilisez la méthode intersect pour afficher le message. Voici vraiment un bon article sur la méthode d'intersection: http://www.ozgrid.com/VBA/vba-intersect.htm.

Bonne chance.

Questions connexes