Ορίζεις το όνομα
Database=OFFSET(Φύλλο1!$A$3;;;COUNTA(Φύλλ ο1!$A:$A)+1;COUNTA(Φύλλο1!$3:$3))
και με δεξί κλικ στον όνομα του φύλλου προσθέτεις τον κώδικα
Private Sub CommandButton1_Click()
ActiveSheet.ShowDataForm
End Sub
Δες και το συνημμένο που απλά έχω εφαρμόσει τα δυο παραπάνω βήματα.
Πες μας αν σε καλύπτει.
Θανάσης.
|