Print side | Luk vindue

HURTIG HJÆLP

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=1641
Udskrevet den: 05.Mar.2025 kl. 02:37


Emne: HURTIG HJÆLP
Besked fra: ThyPoker
Emne: HURTIG HJÆLP
Posteringsdato: 26.Apr.2014 kl. 14:55
uploads/1136/Spiller_og_Medlems_Liste.xlsm" rel="nofollow - uploads/1136/Spiller_og_Medlems_Liste.xlsm Kan ikke lige finde ud af hvad der er galt når jeg vil tilføje spiller der er noget galt i userform
en der vil hjælpe hurtigt 


Svar:
Besked fra: excelent
Posteringsdato: 26.Apr.2014 kl. 18:39

Private Sub CommandButton1_Click()
'Dim LastRow As Object
Set sh = Sheets("Spiller liste")
    LastRow = sh.Cells(65536, "A").End(xlUp).Row
       '  LastRow = Ark2.Range("a65536").End(x1Up).Row

          sh.Cells(LastRow, 1).Offset(1, 0).Value = TextBox1.Text
          sh.Cells(LastRow, 1).Offset(1, 1).Value = TextBox2.Text
          sh.Cells(LastRow, 1).Offset(1, 2).Value = TextBox3.Text
          sh.Cells(LastRow, 1).Offset(1, 3).Value = TextBox1.Text
          sh.Cells(LastRow, 1).Offset(1, 4).Value = TextBox2.Text
          sh.Cells(LastRow, 1).Offset(1, 5).Value = TextBox3.Text
         
         

          MsgBox " Vil du tilføje Spiller til Spiller Liste"

          response = MsgBox("Vil du også tilføje Flere?", _
              vbYesNo)

          If response = vbYes Then
              TextBox1.Text = ""
              TextBox2.Text = ""
              TextBox3.Text = ""
              TextBox4.Text = ""
              TextBox5.Text = ""
              TextBox6.Text = ""
              TextBox1.SetFocus

          Else
              Unload Me
          End If
End Sub




-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: ThyPoker
Posteringsdato: 26.Apr.2014 kl. 18:59
Tusinde tak flot og hurtigt svar


Print side | Luk vindue