|
Hej igen ! Tak for hjælpen sidste gang ! Hjalp en del ! Jo jeg har jo udvidet mit ark lidt. Med 2 nye felter, og jeg har et problem i min kodning (se kode) Jeg har vedhæftet dokumentet, så det er nemt at redigere i det. Jo det er basicly bare, at jeg ønsker man kan trykke på nogen "optionsbuttoms" så dele bliver fremhævet og sløret. Men den data indtastning ønsker jeg skulle komme over på mit ark. Jeg har leget lidt med det, men det er meget svært synes jeg, så håber I kan hjælpe mig ! Det er et "resultatark" som jeg ønsker vil komme til at fungere, så jeg kan drage analyse in i det. Håber I kan hjælpe mig ! Her er koden: 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 If OptionButton2.Value = True Then
Worksheets("results").Activate
rk = Cells(65536, "A").End(xlUp).Row + 1 ' næste ledige række Cells(rk, 6).Value = Me.ComboBox4 'Spillerne.Text
Cells(rk, 7).Value = Me.TextBox3 'TextBox3.Text
Cells(rk, 8).Value = Me.ComboBox6 'Status.Text
Cells(rk, 9).Value = Me.ComboBox5 'Scorerne.Text
Cells(rk, 10).Value = Me.TextBox4 'TextBox4.Text
Cells(rk, 11).Value = Me.TextBox5 'TextBox5.Text End If
End Sub Her er mit dokument: uploads/801/Personligt_Excel_projekt22.xlsm" rel="nofollow - uploads/801/Personligt_Excel_projekt22.xlsm
|