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


Emne lukketVBA begynder har brug for hjælp !
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Didrik Se dropdown
Forum Begynder
Forum Begynder


Medlem: 07.Mar.2013
Land: Danmark
Status: Offline
Point: 16 		Direkte link til dette indlæg Emne: VBA begynder har brug for hjælp !
    Sendt: 07.Mar.2013 kl. 09:20
Hej !
 
Jeg har lige købt bogen: Excel 2007 - programering med VBA.
Og jeg har faktisk fulgt bogen rimelig godt og synes det er super spændende !
 
Nu er jeg så gået igang med mit eget personlige projekt.
Et vba projekt som handler om at gemme resultater som historik ved hjælp af en userform.
 
Jeg er gået lidt i stå.
Problemet er at jeg har lavet min userplatform, så det er kodningen.
Det er sådan at der er 3 "optionsbuttom", hvor når du marker en af dem, åbnes en del af userformen ( de 2 resterende er så "disabled" ).
De data jeg skriver ind og vælger, kommer ikke ud på mit "resultat ark" når jeg trykker på knappen "indsend resultat".
 
NÅr jeg prøver at kører det, siger den der er fejl i offset.
Og ja tror det har noget med slutningen af mine offsets at gøre.
 
Håber jeg kan få lidt hjælp til denne her,
fordi som sagt er vba utroligt spændende og vil helst ikke kører død i det.
 
Jeg har oploadet excel arket her:/uploads/801/Personligt_Excel_projekt.xlsm" rel="nofollow">
/uploads/801/Personligt_Excel_projekt.xlsm" rel="nofollow">uploads/801/Personligt_Excel_projekt.xlsm
 
Hilsen Henrik.
 
Til top



Til top
Didrik Se dropdown
Forum Begynder
Forum Begynder


Medlem: 07.Mar.2013
Land: Danmark
Status: Offline
Point: 16 		Direkte link til dette indlæg Sendt: 07.Mar.2013 kl. 09:33
Jeg bruger forresten excel  2007 =)
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.Mar.2013 kl. 16:03

Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Worksheets("results").Activate
rk = Cells(65536, "A").End(xlUp).Row + 1 ' næste ledige række

Cells(rk, 1).Value = Me.ComboBox1 'Spillerne.Text
Cells(rk, 2).Value = Me.ComboBox2 'D4.Text
Cells(rk, 3).Value = Me.ComboBox3 'Placements.Text
Cells(rk, 4).Value = Me.TextBox1 'TextBox2.Text
Cells(rk, 5).Value = Me.TextBox2 'TextBox2.Text

End If
End Sub
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
Didrik Se dropdown
Forum Begynder
Forum Begynder


Medlem: 07.Mar.2013
Land: Danmark
Status: Offline
Point: 16 		Direkte link til dette indlæg Sendt: 08.Mar.2013 kl. 09:37
Hey tak for hjælpen, det virkede !
 
Er det sådan at jeg kan copy paste koden til optionbuttom 2 og 3 ?
 - Altså med nogen ændringer i navne og rækker.
 
Kan du forklarer mig hvad følgende gør:
 
rk = Cells(65536, "A").End(xlUp).Row + 1 ' næste ledige række

Cells(rk, 1).Value = Me.ComboBox1 'Spillerne.Text
Cells(rk, 2).Value = Me.ComboBox2 'D4.Text
Cells(rk, 3).Value = Me.ComboBox3 'Placements.Text
Cells(rk, 4).Value = Me.TextBox1 'TextBox2.Text
Cells(rk, 5).Value = Me.TextBox2 'TextBox2.Text

Udfra den bog jeg brugte, var det jo offset, så yea en forklaring  ville være rigtig fedt =)
 
Og tak for det igen, det virkede rigtig godt =)
 - Siddet i snart 4 timer med problemet hehe
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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