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

[jose]

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

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

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

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

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

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

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

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

ευχαριστώ.

[gr8styl]

Φίλε Νίκο,
βάλε στο Α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")))

[jose]

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

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

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

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

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

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

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

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

[Tasos]

Καλησπέρα!

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

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

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

Τάσος

[jose]

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

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


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

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


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

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

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

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

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

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

[Tasos]

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

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