Makro der overfører data til eksisterende Access database

Her er et eksempel på hvordan det kunne gøres:
'Åbn dit regneark og tryk Alt-F11
'I VBA-editoren indsæt et nyt modul
'indsæt koden
'I tools/references sæt flueben i "Microsoft DAO 3,6 object
'
'indsæt din database hvor der står C:\testbasebase.
'Indsæt dit tabelnavn hvor der står Testtable.
'erstat A1,B1,c1 med dine egne celler


Sub AddRecordToAccess()
Dim db As Database
Dim rs As Recordset
'Åbn et link til accessdatabasen
Set db = OpenDatabase("C:\Testdatabase.mdb")
'åbn kanal til tabellen testtabellen
Set rs = db.OpenRecordset(Name:="Testtable", Type:=dbOpenDynaset)
'Put A1, B1 og C1 ind i felterne navn, pris, og omkostninger
With rs
.AddNew
.Fields("Navn").Value = Range("A1").Value
.Fields("Pris").Value = Range("B1").Value
.Fields("Omkostninger").Value = Range("C1").Value
.Update
End With
' Luk tabellen
rs.Close
'Luk Database
db.Close
'Clean up
Set rs = Nothing
End Sub

undskyld ventetiden bak men der var lige en masse arbejde
mange tak det virker 100%
du har redet de resterende hår i min hovedbund fra at blive grå

...hvordan gir jeg dig point??.....(pinligt)

et hurtigt tillægsspørgsmål:
hvordan eksekverer jeg dette modul fra en knap?

Point -> du kan kun mig point når jeg har lagt et svar og det gør jeg hermed.
knap -> du har/oprettet en knap, højrekliker på og vælger Tildel makro / assign macro. I den liste der nu kommer op vælger du din nye makro.