09-07-18, 17:39
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Κάνε μια αλλαγή στον κώδικα με αυτό: Κώδικας: Private Sub lbxSheets_Click()
Dim Nme As Name
Me.lbxNamedRanges.Clear
For Each Nme In ThisWorkbook.Names
If Range(Nme).Parent.Name = Me.lbxSheets.List(Me.lbxSheets.ListIndex) _
Then Me.lbxNamedRanges.AddItem Nme.Name
Next Nme
End Sub
να μου πεις συμπεριφορά...
|