[Γενικά] Sum στο excel

[minas84]

Καλησπερα θα ηθελα μια βοηθεια στο excel, θελω να φτιαξω ενα Module που να κανει αθροισμα στα κελια που ειναι δεξια απο κελια που εχουν μια συγκεκριμενη λεξη!

[Spirosgr]

Καλησπέρα.
Μηνά, καλώς όρισες στην παρέα μας.
Εύκολο το ερώτημά σου, αλλά ανέβασε ένα παράδειγμα σε παρακαλώ.

[minas84]

Καλησπερα, καλως σας βρηκα, εχω φτιαξει αυτο
" Function SumPin(MyRange)
SumPin = 0
For Each Cell In MyRange
If Cell = pin Then
SumPin = WorksheetFunction.Sum(????, SumPin)
End If
Next Cell
End Function "

Mε λιγα λογια θελω οπου "βλεπει" κελι που εχει τη λεξη "pin" γραμμενη, να προσθετει τον αριθμο του κελιου που ειναι ακριβως διπλα.

πχ αν τα κελια C2, D25, W51 εχουν τη λεξη pin, θελω να προσθεσει του αριθμους των κελιων C3, D26,W51 !

[GeorgeK]

Καλησπέρα Μηνά,

Δοκίμασε το παρακάτω

Function SumPin(MyRng)
Dim c As Range
Dim MySum As Long

For Each c In MyRng
        If c = "pin" Then
            If IsNumeric(c.Offset(0, 1)) Then
                MySum = MySum + c.Offset(0, 1).Value
            End If
        End If
Next c

SumPin = MySum
End Function

Προσθέτει τους αριθμούς που είναι δεξιά από κελιά που γράφουν pin. Αν θέλεις να προσθέτει αυτούς που είναι από κάτω όπως είναι το παράδειγμα σου άλλαξε το c.Offset(0, 1) σε c.Offset(1, 0)

Γιώργος

[Spirosgr]

Θα παρακαλούσα, για μια ακόμη φορά να ανέβει ένα αρχείο, από τον Μηνά.

[Spirosgr]

Είχα αποφασίσει, να μην ασχοληθώ άλλο με το θέμα αυτό,
αφού, είναι τόσο «δύσκολο» σε κάποιους, (παρά τις παροτρύνσεις) να ανεβάζουν παραδείγματα,
δείχνοντας σεβασμό στους απαντητές και στο forum γενικότερα.

Όμως, για όλους τους υπόλοιπους, που θα διαβάσουν, αυτά που γράφονται σε αυτό το ερώτημα και
θα προσπαθήσουν να τα εφαρμόσουν,
σε έργα τους, ας λάβουν υπ' όψιν, ότι αν αντι για "pin" έχουν "Pin" ή "PIN" και
αν στα διπλανά κελιά υπάρχει μια
ημερομηνία (και οι ημερομηνίες Numeric είναι) θα
πάρουν ένα εσφαλμένο αποτέλεσμα...

[minas84]

Δεν χρειαζεσαι να τσαντιζεσαι ,ουτε να εισαι επιθετικος αδερφε, δεν εχω ξεκινησει να βαζω δεδομενα στο excel για αυτο δεν ανεβασα κατι, γιατι απλα αυτη τη στιγμη δεν υπαρχει ετοιμο excel. Eιναι ενα excel που εχω σκοπο να φτιαξω τις επομενες μερες. Να εβαζα ενα excel που να μην ηταν οπως το ηθελα, δεν νομιζω οτι θα βοηθαγε κανεναν, ουτε εμενα, ουτε οποιον ηθελε να βοηθησει, ουτε καποιον που απλα θα διαβαζε το θεμα. Αυτα, φιλικα παντα, ευχαριστω για το ενδιαφερον και τον χρονο.

[Spirosgr]

Δεν ζήτησε κανείς, το πραγματικό σου αρχείο, φίλε μου.
Ένα απλό παράδειγμα μόνο, σε ένα εξελόφυλλο, είναι αρκετο.

Κατά τα άλλα, έφτιαξες τώρα την συνάρτηση Function SumPin(MyRange)
για ένα αρχείο υποθετικό, που θα έφτιαχνες αργότερα και
που θα ανέβαζες με τα πραγματικά σου δεδομένα, για να βρείς λύση σε .....
καλά ok!