Macro voor apostrof

[wimix69]

Hallo,

Ik heb een formulier gemaakt waar in cijfer code's worden ingevoerd die beginnen met nullen. Nu zet ik handmatig een apostrof voor maar hoe doe ik dit met een macro?

Groet
Wimix

 

[Haije]

bijvoordeeld

a=chr(39) & "000"& 123

 

[OctaFish]

Of zo:

Private Sub CommandButton1_Click()
    Range("Jouwveld").Value = "'" & Right("000000" & Me.TextBox1.Value, 6)
    Unload Me
End Sub

 

[snb]

Sub M_snb()
  c00 = "0000456"
  cells(1) = Format(c00, "'" & String(Len(c00), "0"))
End Sub

 

[wimix69]

Sub M_snb()
  c00 = "0000456"
  cells(1) = Format(c00, "'" & String(Len(c00), "0"))
End Sub

 

[wimix69]

Macro voor apastrof

Hallo,

In heb een macro toegevoegd om automatisch een apostrof te krijgen maar ik krijg een foutmelding. wat doe ik verkeerd? in cel een heb ik de apostrof handmatig geplaats.

 

[emields]

dat gaat ook zonder macro maar met aangepaste cel opmaak

 

[sylvester-ponte]

of met macro met systeem van snb voor 7 karakters lang (dat is een gokje) of wil je dat de maro bij het selecteren al direct een "'" plaatst?
zodat je zelf de nullen kunt plaatsten.

 

[wimix69]

Perfecte oplossing met aangepaste cel opmaak