17-04-12, 20:57
|
| Όνομα: Θανάσης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 22-02-2012
Μηνύματα: 238
| |
Καλησπέρα χρήστο
κάνοντας έλεγχο σε ?row αν η τιμή είναι <>"" του κενού τότε να γράψει
If mrow <> "" Then .Cells(mrow, 1).Value = xID
For Each m In Range("z1z")
If mrow <> "" Then
.Cells(mrow, m).Value = m.Offset(11, 0).Value
End If
next
θανάσης
|