[devcon]

Καλημέρα και καλή εβδομάδα,

Θα ήθελα την βοήθεια σας

Θα ήθελα να μπορώ να πραγματοποιήσω τις ακόλουθες πράξεις από το σημείο που βρίσκεται ο κέρσορας και κάτω (μέχρι την τελευταία γραμμή όπου υπάρχουν προϊόντα) χωρίς να γίνονται οι πράξεις σε όλη την κολόνα.
Ο λόγος που δεν θέλω να γίνεται από την αρχή της κολόνας είναι ότι μπορώ χειροκίνητα να αλλάξω κάποιες τιμές (Unit price or Cost gross) και με αυτό τον τρόπο θα χάνω τις χειροκίνητες τιμές.
Τα προϊόντα ανανεώνονται συνεχώς αναλόγως της ζήτησης οπότε δεν είναι γνωστή η τελευταία γραμμή.
(Επισυνάπτω δείγμα spreadsheet και module για καλύτερη κατανόηση του προβλήματός μου).

Ευχαριστώ εκ των προτέρων.

' Locate the FinalRow
FinalRow = Cells(Rows.Count, 2).End(xlUp).row

' Cost Net
Range("K3:K" & FinalRow).Formula = "=IF(J3<>" & Chr(34) & Chr(34) & ",ROUND(J3*(1-($O$2%)),2)," & Chr(34) & Chr(34) & ")"

'   Unit Price
Range("I3:I" & FinalRow).Formula = "=IFERROR(ROUND(K3*(1+$N$2%),2), " & Chr(34) & Chr(34) & ")"

'Range("I3:I" & FinalRow).Formula = "=IF(H3<>" & Chr(34) & Chr(34) & ",ROUND(K3*(1+($N$2%)),2)," & Chr(34) & Chr(34) & ")"

' Total Cost
Range("L3:L" & FinalRow).Formula = "=IF(K3<>" & Chr(34) & Chr(34) & ",H3*K3," & Chr(34) & Chr(34) & ")"

' Total Sales
Range("M3:M" & FinalRow).Formula = "=IF(I3<>" & Chr(34) & Chr(34) & ",H3*I3," & Chr(34) & Chr(34) & ")"