Este fórum está sendo desativado

[SandroLima]

Boa noite, pessoal

Como corrijo isso???

Código: Selecionar todos

Sub IniciaCadastro()

    Dim MaxNumber As Integer, NumCadastro As Range
        
    Set NumCadastro = wshCadastro.Range("Cadastro") 
    
    MaxNumber = Application.WorksheetFunction.Max(NumCadastro)
       
    Me.txt_Cadastro.Value = MaxNumber + 1 
        
    Me.txt_Data = Date
       
End Sub

Nessa parte

Código: Selecionar todos

Me.txt_Cadastro.Value = MaxNumber + 1 

ele traz como erro : Uso inválido da palavra-chave Me

e se eu escrevo

Código: Selecionar todos

txt_Cadastro.Value = MaxNumber + 1 

ele traz como erro: Variável não-definida

Como proceder?

[ExcelFlex]

Veja se o nome do seu textbox é esse mesmo, se não existe outra variável com o mesmo nome. Se pude postar a planilha aqui fica mais fácil para identificar o problema.

[osvaldomp]

Substitua o Me pelo nome do objeto que contém a TextBox.

Se planilha ~~~> NomeDaPlan ou se planilha ativa ~~~> ActiveSheet

Se Form ~~~> NomeDoForm

[SandroLima]

Obrigado, ExcelFlex.... Obrigado, Osvaldomp

Funcionou direitinho... é um form.

Complementei assim:

Código: Selecionar todos

With Frm_Cadastro
        .txt_Cadastro.Value = MaxNumber + 1
        .txt_Data = Date
End With

Tenham um bom dia... muito obrigado.