[jose]

σας ευχαριστώ και τους δύο
και τον Σπύρο και τον Τάσο

εμπλουτίζετε τις γνώσεις ενός ερασιτέχνη

Τάσο ,
η στήλη που λές είναι η D ,
αυτή είναι "γεμάτη" με δεδομένα .

Όλο το "κομμάτι" των εντολών είναι
( εδω φαίνεται η αλλαγή στην στήλη Α )

- οι στήλες Α , Β και C ενημερώνονται -
με την "ιδιαιτερότητα" στην στήλη Α
-----------------------------------------------------------------------

Dim i As Integer
Cells(Rows.Count, "D").End(xlUp).Select
noROWS = ActiveCell.Row


For i = 1 To noROWS - 1
Range("B" & i).Select

If ActiveCell.Offset(1, 0).Value = "" Then
ActiveCell.Offset(1, 0).Value = ActiveCell.Value
End If
Next


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


For i = 1 To noROWS - 1
Range("C" & i).Select

If ActiveCell.Offset(1, 0).Value = "" Then
ActiveCell.Offset(1, 0).Value = ActiveCell.Value
End If
Next
--------------------------------------------------------------------------------------------
Θα μελετήσω ότι αναφέρατε βέβαια ,

κάπου θα μου φανούν χρήσιμα , δεν μπορεί ,

αλλά αφού "βολεύτηκα" , με την λυση του Θανάση

να τα αλλάξω όλα ;

Τέλος πάντων , με βάλατε σε "πειρασμό" .................

Σας ευχαριστώ ξανά .