28-10-12, 07:41
|
| Όνομα: Θανάσης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 22-02-2012
Μηνύματα: 238
| |
Καλημέρα σε όλους
For i = 1 To noROWS - 1
Range("A" & i+9).Select
' επιλογή από Α10 και κάτω ή το 9 με 10 για Α11
If ActiveCell.Offset(1, 0).Value = "" Then
ActiveCell.Offset(1, 0).Value = ActiveCell.Value
End If
Next
Θανάσης
|