Ledenlijst

[danny147]

Beste,

Heb een bestaande lijst aangepast en nu werkt deze niet.
Krijg steeds foutmelding op volgende regel:

  Sheets("Klanten").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 9) = Split(TextBox1.Text & "|" & TextBox2.Text & "|" & TextBox3.Text & "|" & TextBox4.Text & "|" & TextBox5.Text & "|" & TextBox6.Text & "|" & TextBox7.Text & "|" & TextBox8.Text, "|" & TextBox9.Text, "|")

Zie ook bijgevoegd bestandje.

Groetjes Danny. :thumb:

 

[ExcelAmateur]

danny147,

Zo werkt hij wel.
Als je de For i gebruikt om de TextBoxen leeg te maken, zet hij het 9x neer.
Dus in iedere cel de 9 TextBoxxen.
Kun je niet met een andere verwijzing de TextBoxen leeg laten maken?

Ik hoop dat je er wat mee kunt.

Private Sub CommandButton2_Click()
  Sheets("Klanten").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 9) = Split(TextBox1.Text & "|" & TextBox2.Text & "|" & TextBox3.Text & "|" & TextBox4.Text & "|" & TextBox5.Text & "|" & TextBox6.Text & "|" & TextBox7.Text & "|" & TextBox8.Text, "|" & TextBox9.Text)
Maakleeg
End Sub

Sub Maakleeg()
   For i = 1 To 9
     Me("TextBox" & i).Value = ""
   Next
End Sub

 

[danny147]

Beste ExcelAmateur

Ziehier het vorige dat ik wilde aanpassen.
Met 8 lukt het wel met 9 niet !

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Sheets("Klanten").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 9) = Split(TextBox1.Text & "|" & TextBox2.Text & "|" & TextBox3.Text & "|" & TextBox4.Text & "|" & TextBox5.Text & "|" & TextBox6.Text & "|" & TextBox7.Text & "|" & TextBox8.Text & "|" & TextBox9.Text, "|")

 

[danny147]

Beste Warme bakkertje

Dit gaat mijn petje te boven

Wat is het verschil tussen jouw code en mijn code in mijn eerste topic ???

Groetjes Danny. :thumb:

 

[Warme bakkertje]

De overbodige komma na Textbox8 en het ontbreken van een ampersand na Textbox8.

 

[danny147]

Beste Warme bakkertje

Bedankt voor de uitleg
Het ligt aan de kleine details.

Groetjes Danny :thumb: