Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketVBA kode til at gemme data

 Besvar Besvar
Forfatter
BegynderPeter Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 05.Apr.2016
Land: Danmark
Status: Offline
Point: 7
Direkte link til dette indlæg Emne: VBA kode til at gemme data
    Sendt: 05.Apr.2016 kl. 13:43
Hey Alle,
 
Jeg har lidt af en udfordring i forbindelse med start på at oprette et userform. Det problem som jeg får fejl på hele tiden er, at jeg prøver, at få de data som bliver skrevet ind i userform2, dem skal jeg på kommandoknappen GEM have til at gemme i regnearket Data i lodrette linier Altså eksempelvis A1=dato B1=Kundens navn.
 
Ved ikke om det er logisk, men vedhæfter det jeg har oprettet indtil nu.
 
Takker på forhånd.
 
Peter
/uploads/1657/ombytninghovedprogram.xlsb"/uploads/1657/ombytninghovedprogram.xlsb
 
 
 
 


Redigeret af Allan - 05.Apr.2016 kl. 15:20
Til top



Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
Direkte link til dette indlæg Sendt: 05.Apr.2016 kl. 21:15
er du sikker på at du har et ark med det navn ?
excel version DK/UK ?
Skal data fra userform gemmes i skabelonen eller i hver sin række på et ark ?
hvilken fejl får du ?

som du kan se har jeg flere spørgsmål end dig, det burde vel være omvendt !!!
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
BegynderPeter Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 05.Apr.2016
Land: Danmark
Status: Offline
Point: 7
Direkte link til dette indlæg Sendt: 06.Apr.2016 kl. 13:24
er du sikker på at du har et ark med det navn ? ja  jeg har lige kopieret teksten "Data" direkte fra ark-navnet.
 
excel version DK/UK ?  Bruger Dk version 2007.
 
Skal data fra userform gemmes i skabelonen eller i hver sin række på et ark ?: Data fra textbox, dtpicker opreetet i Userform2 skal ligges ind på linie A1 til f.eks. N1 i ark kaldet Data.  Alle de data der løbende bliver tastet ind skal så gemmes løbende i samme ark.
 
Jeg  har prøvet alle mulige muligheder, men får fejl på alle linier, så alt er slettet fra den pågældende kommandoknap som skal bruges. (jeg har kaldt knappen CbGem).
 
mvh
Peter
 
 
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
Direkte link til dette indlæg Sendt: 06.Apr.2016 kl. 20:05
indsæt denne kode i gem knappen

Set sh = Sheets("Data")
rk = sh.Cells(65536, "A").End(xlUp).Row ' Næste tomme række i Data ark
If rk = 1 Then rk = 2 'Starter i række 2
Range("A" & rk) = TbKundensNavn.Text
Range("B" & rk) = osv osv
Range("C" & rk) = osv
tilføj selv resten

Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
BegynderPeter Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 05.Apr.2016
Land: Danmark
Status: Offline
Point: 7
Direkte link til dette indlæg Sendt: 07.Apr.2016 kl. 10:44
perfekt. takker for hjælpen. kan godt se min kodning var noget forkert. Men helt perfekt og mange tak for hjælpen.
 
God dag.
 
Peter
Til top
BegynderPeter Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 05.Apr.2016
Land: Danmark
Status: Offline
Point: 7
Direkte link til dette indlæg Sendt: 07.Apr.2016 kl. 16:10
nå var måske lidt hurtig. Den gemme rigtig nok filen i Data men den overskriver data allerede skrevet ind i række 2 . jeg vil godt have den bruger næste ledig række. Jeg har selv skrevet overskrifter i række 1, så fra 2 og fremefter.
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
Direkte link til dette indlæg Sendt: 07.Apr.2016 kl. 16:20
ups
rk = sh.Cells(65536, "A").End(xlUp).Row + 1

Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk