21-03-11, 21:09
|
 | Super Moderator Όνομα: Θανάσης Στυλιανίδης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-10-2009 Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 758
| |
Καλησπέρα σας κύριοι.
( Άλλος Θανάσης εγώ ελπίζω να μην τα μπλέξουμε.) 
Μήπως θα ήταν απλούστερο να γράψουμε απλά όλους του τύπους στην δεύτερη γραμμή και αντί της With Range("K"... End With στον κώδικα να χρησιμοποιήσουμε Range("K2").Copy Destination:=Range("K" & FirstRow & ":K" & FinalRow)
Νομίζω ότι είναι πιο απλό από το να προσπαθούμε να γράψουμε στην VBA τις φόρμουλες σε R1C1 μορφή.
Ελπίζω να έχω καταλάβει το ζητούμενο και να μην κάνω λάθος.
Θανάσης Σ.
|