Είμαι ακόμα αρκετά αρχάριος χρήστης του VBA και είμαι πολύ αυτοδίδακτος. Προσπαθώ να γράψω μια μακροεντολή που θα χρησιμοποιεί μια τιμή σε ένα κελί για να εκκινήσει μια μακροεντολή που έχει έναν τύπο σε ένα άλλο κελί. Έχω μια μακροεντολή που λειτουργεί, ωστόσο δεν μπορώ να βρω πώς να την κάνω να τρέξει για μια σειρά κελιών. Δείτε παρακάτω και συμβουλέψτε πώς μπορώ να το αλλάξω έτσι ώστε να ενεργοποιηθεί για το εύρος μου O6:O26. Θα καταλήξω να έχω 7 διαφορετικούς τύπους που μπορούν να επιλεγούν και επομένως θα είχα περισσότερους εάν στοχεύει ίσες επιλογές σε αυτήν την ενότητα. Είναι το πρώτο κομμάτι που θα ήθελα να αλλάξω για να μπορέσω να το κάνω να λειτουργήσει για το εύρος και όχι μόνο για το ένα κελί.
Ευχαριστώ!

Υπό τύπος()
'
Formula Macro
Ορισμός στόχου = Εύρος ("O6")
Αν στόχος.Τιμή = "1" Τότε
Καλέστε το Macro1
End If
Αν στόχος.Τιμή = "2" Τότε
Καλέστε το Macro2
End If
Sub End

_________________________________________________________________________________________
Sub Macro1 ()
'
Macro1 Macro

Εύρος ("P6"). Επιλέξτε
ActiveCell.FormulaR1C1 = _
"=(1.08)/(0.06+(0.08*(RC[-2])))"
'
Sub End

_____________________________________________________________________________________________
Sub Macro2 ()
'
Macro2 Macro
'
Εύρος ("P6"). Επιλέξτε
ActiveCell.FormulaR1C1 = _
"=(1.06)/(0.08+(0.08*(RC[-2])))"
'
Sub End