[giannopoulos]

Αρχική Δημοσίευση από spirosgr

Καλησπέρα
1. Δημήτρη μπορείς να βάλεις "Απεριόριστες" εγγραφές (όσες σειρές έχει η excel)
2. Βάλε ένα κουμπί και σύνδεσε τον κώδικα:

Sub AddTblRow()
Application.ScreenUpdating = False
ActiveSheet.Range("B5").ListObject.ListRows.Add (1)
End Sub

όπου B5 το κελί που έχει την κεφαλίδα "Ονοματεπώνυμο" (αν το έχεις αλλάξει βάλε το σωστό)

Με το πάτημα του κουμπιού θα προστίθεται κάθε φορά μία νέα γραμμή στην πρώτη θέση του Πίνακα

Σπύρο συγνώμη

Αλλά μου βγάζει σφάλμα στο εξής :
Private Sub CommandButton1_Click()

Συγνώμη αλλά είμαι άρκετα αρχάρειος!!!
Ευχαριστώ