[VBA] COPY IF

[othonas]

Καλημέρα σε όλους . Έστω ότι σε πολλά φύλλα (τα οποία είναι ονόματα υπαλλήλων ) υπάρχουν στο κελί Α1 το όνομα και Β1:Β10 διάφορα ποσά . θα ήθελα να αντιγράψω με VBA σε ένα νέο φύλλο από κάθε φύλλο τα εξής : εάν στην Β τα ποσά είναι μεγαλύτερα του μηδέν τότε στη στήλη Α τα ονόματα και στην Β τα ποσά , αλλιώς να μην αντιγράφει τίποτα . π.χ.
εάν στο φύλλο ΓΙΑΝΝΗΣ
το Β2 είναι 10,00
το Β3 είναι 0
το Β4 είναι 5,00
και στο φύλλο ΝΙΚΟΣ
το Β2 είναι 0,00
το Β3 είναι 50,00
το Β4 είναι 25,00
τότε στο φύλλο ΜΗΝΑΣ
α) στο κελί Α1 να μεταφέρει το Β2 του ΓΙΑΝΝΗ και όχι του ΝΙΚΟΥ το Β2 που είναι μηδέν ,
β) στο κελί Β1 να μεταφέρει το Β3 του ΝΙΚΟΥ και όχι το Β3 του ΓΙΑΝΝΗ που είναι μηδέν ,
γ) στο κελί c1 να μεταφέρει το Β4 του ΓΙΑΝΝΗ και στο c2 το Β4 του ΝΙΚΟΥ .