21-07-14, 21:36
|
| Όνομα: Δημήτρης Έκδοση λογισμικού Office: Ms-Office 2013 Γλώσσα λογισμικού Office: Αγγλική | | Εγγραφή: 24-03-2012 Περιοχή: Θεσσαλονίκη
Μηνύματα: 70
| |
Επίσης πρόσθεσα στις συνθήκες για να εκτελέσει τις ενέργειες:
If rngSource.Cells(i, j).Locked = False And InStr(rngSource.Cells(i, j).Formula, "-") = 0 And InStr(rngSource.Cells(i, j).Formula, "/") = 0 Then
… ο κώδικας ….
Else
End If
Δεν ξέρω εάν συμφωνείς ή έχεις κάτι άλλο να προτείνεις.
Φιλικά / Δημήτρης
|