Forum - VBA Σύγκριση τιμών μεταξύ δύο φύλλων

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Σύγκριση τιμών μεταξύ δύο φύλλων (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/1511-sigkrisi-timon-metaksi-dio-fillon.html)

Σύγκριση τιμών μεταξύ δύο φύλλων

Καλημέρα σας,

ελπίζω να είμαι κατανοητός

στο επισυναπτόμενο excel υπάρχουν 2 φύλλα

ζητάω να δω αν γίνεται

'Οταν το κελί της στηλης Β στο φύλλο "ΕΝΑ'' εμπεριέχεται στην στήλη Α του φύλλου ''DΥΟ''

και έχει ένα κελί δεξιά του ( στην στήλη C του "ENA" ) με τιμη = 1

να μπαίνει στην στήλη Α του φύλλου ''ΕΝΑ" ο αριθμός πχ 100 .

σε διαφορετική περιπτωση να μένει κενό

ευχαριστώ.

Φίλε Νίκο,
βάλε στο Α2 του φύλλου ENA
=IF(AND(NOT(ISERROR(MATCH(B2;DYO!A:A;0)));C2=1);10 0;"")
και αντέγραψε/σύρε προς τα κάτω όσο χρειάζεται.

Καλησπέρα και από εμένα.

Μία άλλη προσέγγιση είναι η εξής:

=IF(C2<>1;"";IF(C2=1;IF(COUNTIF(DYO!$A$2:$A$15;ENA !B2)=1;"100")))

Σας ευχαριστώ για τις Άμεσες απαντήσεις αλλά σε VBA πως θα το κάνω ;

αν γίνεται .....

( το γραφω και στον τιτλο )

είναι ένα μέρος από κώδικα ,

επειδη μετά συνεχίζω σύμφωνα με το αποτέλεσμα πού παίρνω.

Αν δεν γίνεται , το κάνω έτσι , και συνεχίζω με αλλο "module" πιά .

Σας ευχαριστω έτσι κι' αλλιώς πάντως .

ΚΑΙ οι δύο τρόποι εργάζονται άψογα !!

Καλησπέρα!

Νίκο δοκίμασε:

Κώδικας:

Option Explicit
 

Sub CountCities()

    Dim rng As Range

    Set rng = Sheet1.Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row)

    rng.FormulaR1C1 = "=IF(RC[2]=1,COUNTIF(DYO!C,RC[1]),"""")"

    rng.Value = rng.Value

End Sub

Καλή συνέχεια!

Τάσος

Σε ευχαριστώ καί εσένα

αντικατέστησα βέβαια το Sheet1 με Sheets("ENA") .

Αυτό γενικά που με ''ταλαιπωρεί'' στην VBA ( αρχάριος ων )

και αντί πχ να παω Αθήνα Θήβα ευθεία απο την εθνική , πάω μέσω Μεσολογίου είναι :

Σε ενα φύλλο ... σταθερή τιμή στο Α1 ( κείμενο , αριθμός ή ημερομηνία ) ,

και αν αυτη υπάρχει σε στήλη με τιμες απο το Β1 έως και πχ Β10 ή από το Β21 έως το Β30

στο ιδιο φύλλο , ή και σε διπλανό φύλλο ακόμη ,

να μπορω πχ να ''τρέξω'' μια module , ή να βάλω μιά τιμή σε οιονδήποτε κελί

εκτος φυσικά της Α και Β στήλης στο πρώτο φύλλο ή σε άλλο φύλλο

ή και να χρωματίσω ακόμη ένα κελί.

Το Sheet1 είναι το κωδικό όνομα του φύλλου "ΕΝΑ" του συνημμένου που ανέβασες
Στον VBE αναγράφεται έτσι: Sheet1(ENA).

Είναι μια καλή συνήθεια να χρησιμοποιούμε το κωδικό όνομα επειδή ακόμα και αν το φύλλο
μετονομαστεί από το χρήστη, ο κώδικας θα συνεχίσει να τρέχει χωρίς να προκαλέσει σφάλμα.