Gegevens opslaan in DATABASE zonder form ?

[excel001]

Hallo,
Er zijn twee tapbladen "invoer" en "database". Ik wil graag gegevens vanaf tapblad "ïnvoer" automatsch worden opgeslagen in tapblad "database". Ik wil geen gebruik maken van form, maar via MACRO. zie vb.
Is dit mogelijk, zoja wie kan mij helepen. Ik ben niet zo goed in vb.

alvast bedankt.

 

[HSV]

Hang onderstaande code eens aan de knop.

Sub invoeren()
  Dim i As Integer, q As String, y As Integer
    y = 0
With Sheets("Invoeren")
   For i = 3 To .Range("E3:E" & .Cells(.Rows.Count, 5).End(xlUp).Row).Rows.Count + 2 Step 2
    If .Cells(i, 5) > 0 Then
     q = q & .Cells(i, 5) & "|"
      y = y + 1
     End If
    Next
  End With

With Sheets("Database")
  .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, y) = Split(q, "|")
 End With
End Sub

 

[excel001]

bedankt

 

[HSV]

Graag op opgelost zetten a.u.b.

 

[excel001]

Ben nog niet helemaal klaar.
Ik zou graag willen wete of iemand een macro formule heeft waarnee ik gegevens kan vewijderen uit database.
Ik heb hier een formule gevonden waarmee ik gegevens kan wijzegen, werkt niet helaam goed.

grt.

 

[HSV]

Hoe had je het in gedachten.

 

[excel001]

Zie voorbeeld.

 

[HSV]

En als er meerdere met dezelfde achternaam zijn?

Maar voor nu:

Sub Verwijderen()
 naam = Sheets("verwijderen").Range("E2").Value
   With Sheets("Database")
    On Error GoTo einde
     rij = WorksheetFunction.Match(naam, .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row), 0)
   If rij > 0 Then
    If MsgBox("Weet je zeker dat je '" & naam & "' wil verwijderen ?", vbYesNo, "Verwijderen uit database ?") = vbYes Then
     .Cells(rij, 1).EntireRow.Delete
       MsgBox "'" & naam & "' is verwijderd uit de database", , "Verwijder bericht"
   Else
       MsgBox "U heeft er voor gekozen om '" & naam & "' in de database te laten staan ", , "Niets veranderd"
      End If
     End If
    End With
   Exit Sub
einde:    MsgBox "'" & naam & "' komt niet in de database voor ", , "Niets gevonden"
End Sub