Fórmulario - Formatação numérica VBA

[Igor F.]

1. Estou tentando fazer com que o número 1 se transforme em 000001 ao ser gravado em uma planilha através do meu projeto VBA.

Porém da um erro e não sei resolver kkk

Como faço para passar o número para a planilha nesse formato?

(IMAGEM 1)

 

2. Gostaria de quando fosse aberto a planilha o número do recibo fosse alterado conforme a formatação. (IMAGEM 2)

Código: 

Private Sub UserForm_Initialize()
    Sheets(1).Activate
    Me.ctxtdata.Text = Range("G16")
    Me.txtcrecibo.Text = Range("G3")
End Sub

 

(imagem 1)

 

(imagem 2)

[Basole]

A planilha (aba) Sheets(2) está protegida.

Desproteja antes de gravar os dados em seguida proteja novamente. 

 

Ex.:

Sheets(2).Unprotect 1234 ' altere a senha se tiver
' seu codig.....
Sheets(2).Protect 1234 ' altere a senha se tiver

 

[Igor F.]

 

Em 29/09/2017 às 13:53, Basole disse:

A planilha (aba) Sheets(2) está protegida.

Desproteja antes de gravar os dados em seguida proteja novamente. 

 

Ex.:

Sheets(2).Unprotect 1234 ' altere a senha se tiver
' seu codig.....
Sheets(2).Protect 1234 ' altere a senha se tiver

 

Tópico certo? kk