28-10-12, 11:34
|
| Όνομα: Νίκος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 22-10-2011
Μηνύματα: 33
| |
Θανάση , πολλές ευχαριστίες
μού' "κοψε" , επειδή στο τέλος ξαναγραφόταν
10 ημερομηνίες απο την 101 έως και την 110 σειρα ,
και άλλαξα το -1 σε -11
καί όλα τώρα είναι άψογα
-------------------------------------------------------------------------------
For i = 1 To noROWS - 11
Range("A" & i + 10).Select
If ActiveCell.Offset(1, 0).Value = "" Then
ActiveCell.Offset(1, 0).Value = ActiveCell.Value
End If
Next
----------------------------------------------------------------------------------
καί πάλι σας ευχαριστώ
|