[Πρότυπα] Ερώτημα για την vba

[jose]

καλησπέρα σας,

( δυστυχως δεν μπόρεσα να
βρω τίτλο και γι'αυτο αυτή η
γενικότητα)

σε ένα φύλλο excel εχω αυτές τις εντολές

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

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

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

Τα δεδομένα ξεκινάνε πάντοτε απο την σειρά 11

Η στήλη D έχει δεδομένα απο το D11 έως πχ το D100 , αριθμούς.
( δεν υπάρχει κάνενα κενό κελί ενδιάμεσα )

η στήλη Α έχει μόνο στο κελί Α11 , μία Ημερομηνία ,
ας πούμε την σημερινή

Με τα παραπάνω , που εφανίζονται ανα μεσα στις δύο γραμμές με τα === ,

γινεται η συμπλήρωση - αντιγραφή της ίδιας ημερομηνίας του Α11

στα κελιά απο το Α12 έως και το Α100

Μέχρι εδώ καλά , .........................

ΤΟ ερώτημα είναι , μπορώ το

Range("A" & i).Select να το κάνω να ξεκινάει απο το Α11 ;

να μην κανει δηλαδη τον υπολογισμό όλης της στήλης "Α" .

αλλά μόνο απο το Α11 και μετέπειτα ;

Ισως ειναι και "χαζή" ερώτηση και μπορεί να είναι άλυτο το θέμα ,
αλλά επειδη δεν εχω επαρκείς γνώσεις ρωτάω .


Ζητάω από το Α11 επειδή εχω βάλει περιορισμό στο ίδιο φύλλο
να Μην μπορείς να κάνεις πχ επικόληση οτιδήποτε απο το Α1 έως και το Α9
παρά μόνο στο Α10

πχ οι δύο πρώτοι περιορισμοί , - απο τους 9 συνολικά -
------------------------------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$A$1" Then
MsgBox (" Για την σωστή διαδικασία χρησιμοποιούμε μόνο το κελί Α10 "), _
vbQuestion, " Επιλογή λανθασμένου κελιού "

ElseIf Target.Address = "$A$2" Then
MsgBox (" Για την σωστή διαδικασία χρησιμοποιούμε μόνο το κελί Α10 "), _
vbQuestion, " Επιλογή λανθασμένου κελιού "

End If

End Sub
---------------------------------------------------------------------------------------------------------------------------
την στιγμή βέβαια που γινονται οι υπολογισμοί , τωρα τα MsgBox εμφανίζονται
και θα ήθελα να παρακαμψω την διαδικασια το να πατάω 9 φορες το οκ
στο παράθυρο του msgbox καθε φορα που γινεται ενας υπολογισμός




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