Pagina einde selecteren

[HSV]

Open mijn geplaatst bestand waarin zich dat niet voordoet.

 

[dutchmarshalls]

Dank je wel Harry :thumb:

 

[dutchmarshalls]

He Harry,

Nog even een vraag. Ik ben een beetje wezen freubelen met je code en wilde een letter aan het begin van het cijfer 000216001 toevoegen.
De eerste regel gaat perfect maar bij de tweede invoer krijg ik direct en foutmelding. Ik begrijp dat ergens de cod alleen cijfers herkent maar wet niet waar ik de wijziging ka maken voor een letter erbij. Voorbeeld: R000216000

Private Sub CommandButton1_Click()
 Sheets("data").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 19) _
 = Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19)
 Unload Me
End Sub


Private Sub UserForm_Initialize()
With Cells(Rows.Count, 1).End(xlUp)
    If .Row = 1 Then
       TextBox1 = "R000216001"
     Else
       TextBox1 = Format(.Value + 1, "R000000000")
     End If
 End With
End Sub

(Zie waar ik de 'R' geplaatst heb wat helaas niet werkt.

Kun je licht hierop doen schijnen

Al vast bedankt.

 

[HSV]

Private Sub UserForm_Initialize()
With Cells(Rows.Count, 1).End(xlUp)
    If .Row = 1 Then
       TextBox1 = "R000216001"
     Else
       TextBox1 = Format(Replace(.Value, "R", 0) + 1, "R000000000")
     End If
 End With
End Sub

 

[dutchmarshalls]

Beste Harry, onze complimenten. Geweldig!

Dank je voor de oplossing.

:thumb:

 

[HSV]

Graag gedaan,

Ook naar de anderen toe van "Onze".