Guru do Excel e Power BI

Boa noite, pessoal

Como corrijo isso???

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?

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.

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

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

Se Form ~~~> NomeDoForm

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.

Guru do Excel e Power BI

Correção de código - variável não definida

Correção de código - variável não definida

Correção de código - variável não definida

Re: Correção de código - variável não definida

Re: Correção de código - variável não definida