invoeren data naar database

[123biertje]

Goedenavond

mijn vraag is , hoe kan ik gegevens naar een database kopieeren via een druk op een knop
.

Bvd Henk

Bekijk bijlage test-database.xlsx

 

[edmoor]

Eigenlijk denk ik dat je voorbeeldje dusdanig simpel is gesteld dat je echte situatie totaal anders in elkaar steekt en dat je niks zal hebben aan voorbeelden die n.a.v. je voorbeeld gegeven gaan worden en dat je dus beter een relevant voorbeeld kan geven van je echte situatie.

Daarnaast heb je het over "een database" en Excel is niet echt een database maar een rekenblad.
Een goed voorbeeld is dus gewenst.

 

[Jack Nouws]

eens met edmoor

Sub Knop1_Klikken()
    With Range("B3:K3")
        .Copy Cells(Rows.Count, 17).End(xlUp).Offset(1)
        .Clear
    End With
End Sub

 

[123biertje]

goedenavond

bedankt voor de snelle reactie
ik wou gegevens van blad invoer naar blad database kopieeren


mvg henk

 

[edmoor]

Dat maak niet zo heel veel verschil en kan je prima die van Jack voor gebruiken, met een kleine aanpassing:

Sub Knop1_Klikken()
    With Range("B3:K3")
        .Copy Sheets("Database").Cells(Rows.Count, 1).End(xlUp).Offset(1)
        .Clear
    End With
End Sub

 

[123biertje]

bedankt voor de snelle reactie
hier kan ik mee verder