29-07-12, 01:04
|
 | Super Moderator Όνομα: Θανάσης Στυλιανίδης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-10-2009 Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 758
| |
Ορίζεις το όνομα
Database=OFFSET(Φύλλο1!$A$3;;;COUNTA(Φύλλ ο1!$A:$A)+1;COUNTA(Φύλλο1!$3:$3))
και με δεξί κλικ στον όνομα του φύλλου προσθέτεις τον κώδικα
Private Sub CommandButton1_Click()
ActiveSheet.ShowDataForm
End Sub
Δες και το συνημμένο που απλά έχω εφαρμόσει τα δυο παραπάνω βήματα.
Πες μας αν σε καλύπτει.
Θανάσης.
|