[manolis]

Καλησπέρα σε όλη την παρέα

Γιώργο σε ευχαριστώ πολυ για την απαντηση σου.

Λάθος δικό μου που δεν ανέβασα ολοκληρωμένο το αρχείο.
Εκτός απο τις άδειες υπάρχουν και υπερωρίες.
με αποτέλεσμα η ( If Application.Trim(rngData.Cells(R, C)) <>" " Then .... )
να μας φέρνει όλες τις τιμές που υπάρχουν στα κελιά ακόμα και το 2 ή 3 που είναι ώρες υπερωρίας.
Εκανα αλλαγη στον κώδικα και τον έκανα ετσι και μου φέρνει μόνο τις άδειες

If Application.Trim(rngData.Cells(R, C)) = "ΚΑΝ.ΑΔ" Then
i = i + 1
x(i, 1) = rngNames(R)
x(i, 2) = rngDates(C)
x(i, 3) = rngData.Cells(R, C)
End If

If Application.Trim(rngData.Cells(R, C)) = "ΡΕΠΟ" Then
i = i + 1
x(i, 1) = rngNames(R)
x(i, 2) = rngDates(C)
x(i, 3) = rngData.Cells(R, C)
End If

If Application.Trim(rngData.Cells(R, C)) = "ΑΣΘ" Then
i = i + 1
x(i, 1) = rngNames(R)
x(i, 2) = rngDates(C)
x(i, 3) = rngData.Cells(R, C)
End If

If Application.Trim(rngData.Cells(R, C)) = "ΑΝΑΡ" Then
i = i + 1
x(i, 1) = rngNames(R)
x(i, 2) = rngDates(C)
x(i, 3) = rngData.Cells(R, C)
End If

If Application.Trim(rngData.Cells(R, C)) = "ΕΙΔΙΚΗ" Then
i = i + 1
x(i, 1) = rngNames(R)
x(i, 2) = rngDates(C)
x(i, 3) = rngData.Cells(R, C)
End If

Θα μπορούσε να γίνει κάπως αλλιως ?

Και πάλι ευχαριστώ
Με εκτίμηση
Μανώλης