02-10-13, 16:52
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.035
| |
Καλησπέρα!
Μάκη, δοκίμασε: Κώδικας: Private Sub CommandButton1_Click()
With Sheet1 ' Το κωδικό όνομα του φύλλου όπως εμφανίζεται στον Project Explorer πχ: Sheet1(Φύλλο1)
.Range("O3:O1009").FormulaR1C1 = "=IF(AND(RC7>=2,RC7<=5),IF(RC[-5]="""","""",RC[-5]),"""")"
.Range("P3:Q1009").FormulaR1C1 = "=IF(RC[-1]="""","""",IF(RC[-5]="""","""",RC[-5]))"
.Range("O3:Q1009").Value = .Range("O3:Q1009").Value
End With
End Sub
Καλή συνέχεια!
Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών |