01-08-13, 11:37
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
κατ αρχήν άλλαξε το c με c+3 στο δεύτερο if
If Cells(c + 3, 6).Value < Range("rngWallNewMeasure").Value Then
για να λειτουργεί σε όλους τους τοίχους
(γίνονται και λάθη)
|