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


Emne lukketuserform

 Besvar Besvar
Forfatter
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
Direkte link til dette indlæg Emne: userform
    Sendt: 16.Okt.2013 kl. 13:03
Ja, det må vel være noget med:
If Textbox1.Value = "" Then Exit Sub
...som den første linje i koden Geek
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top



Til top
hmeincke Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 31.Jan.2013
Land: danmark
Status: Offline
Point: 23
Direkte link til dette indlæg Sendt: 16.Okt.2013 kl. 10:03
Hjælp søges - jeg har 4 textbox som jeg via en formel kan tilføje data til et regneark - kan det lade sig gøre at der i textbox 1 skal være tastet noget ind før den vil tilføje til lager

her er min kode:

Private Sub CommandButton4_Click()
  
       
   Dim LastRow As Object

   Set LastRow = Ark6.Range("a65536").End(xlUp)

   LastRow.Offset(1, 0).Value = TextBox11.Text
   LastRow.Offset(1, 1).Value = TextBox1.Text
   LastRow.Offset(1, 3).Value = TextBox3.Text
   LastRow.Offset(1, 4).Value = TextBox2.Text


   MsgBox "1 nyt varenummer oprettet på lager"

   response = MsgBox("vil du tilføje flere nye varenummere ?", _
      vbYesNo)

   If response = vbYes Then
      TextBox1.Text = ""
      TextBox2.Text = ""
      TextBox3.Text = ""

   

   Else
    TextBox1.Text = ""
      TextBox2.Text = ""
      TextBox3.Text = ""
        TextBox11.Text = ""
  
   End If




End Sub

det er lavet i excel 2010

Tak på forhånd
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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