[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 !