Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Não consigo achar o...
 
Notifications
Clear all

Não consigo achar onde esta o erro

 
2024 - VBA & Macros
Post Recente por m_araujo 10 anos atrás
11 Posts
2 Usuários
0 Reactions
2,216 Visualizações
RSS
 m_araujo
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Bom dia !

Pessoal preciso da ajuda de vocês, ja olhei varias mais não consigo achar o erro para mim esta tudo certo mais quando vou executa apresenta o ERRO DE COMPILAÇÃO: VARIÁVEL NÃO DEFINIDA.

segue o o trecho do código onde ocorre o erro.

[code]
Private Sub Salvar_Click()

    On Error Resume Next
    Dim lastRow As Long
    Dim wsCadSetor As Worksheet

    'Aba Cadastro
    Set wsCadSetor = Worksheets("CadSetor")

    With wsCadSetor

        'Verifica qual a ultima Linha preenchida na coluna A
        'Descontando a primeira linha de cabeçalho
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row - 1

        TxtCodigo = VBA.Format("0000" & " " & lastRow + 1, "0000")
        'procedimento do botao cadastrar

        UltimaLinha = .Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1


        If UltimaLinha < 2 Then UltimaLinha = 2
        'Application.DisplayAlerts = False

        .Range("A" & UltimaLinha).Value = TxtCodigo.Value
        .Range("B" & UltimaLinha).Value = TxtDescricao.Value
        .Range("C" & UltimaLinha).Value = TxtData.Value
    

        .Select

    End With
    Call PreecherListCad

    MsgBox " Setor Cadastrado. " & "CÓDIGO:  " & (TxtCodigo.Value), vbInformation, "CADASTRO"
    
    With Me
        Call PreencherResumo(.TxtCodigo.Value, .TxtDescricao.Value, .TxtData.Value)
    End With
    ActiveWorkbook.Save

End Sub[/code]

Obrigado!

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 21/01/2015 6:18 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia m_araujo,

Tenta assim:

Option Explicit
Private Sub Salvar_Click()
Dim lastRow         As Long
Dim wsCadSetor      As Worksheet
Dim TxtCodigo       As Variant
On Error Resume Next

'Aba Cadastro
Set wsCadSetor = ThisWorkbook.Worksheets("CadSetor")

    With wsCadSetor

        'Verifica qual a ultima Linha preenchida na coluna A
        'Descontando a primeira linha de cabeçalho
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row - 1

        TxtCodigo = VBA.Format("0000" & " " & lastRow + 1, "0000")
        'procedimento do botao cadastrar

        UltimaLinha = .Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1

        If UltimaLinha < 2 Then UltimaLinha = 2
        'Application.DisplayAlerts = False

        .Range("A" & UltimaLinha).Value = TxtCodigo.Value
        .Range("B" & UltimaLinha).Value = TxtDescricao.Value
        .Range("C" & UltimaLinha).Value = TxtData.Value
        .Select

    End With
    
Call PreecherListCad

    MsgBox " Setor Cadastrado. " & "CÓDIGO:  " & (TxtCodigo.Value), vbInformation, "CADASTRO"
    
    With Me
        Call PreencherResumo(.TxtCodigo.Value, .TxtDescricao.Value, .TxtData.Value)
    End With
    
ActiveWorkbook.Save

End Sub

Se não funcionar, informe a linha que o VBE está destacando.

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/01/2015 7:06 am
 m_araujo
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Bom dia !

Bernardo continua apresentando o mesmo erro.

Private Sub Salvar_Click() no incio do codigo mesmo que fica parado destacado em amarelo.
    Dim lastRow As Long
    Dim wsCadSetor As Worksheet
    Dim TxtCodigo       As Variant
    On Error Resume Next
    'Aba Cadastro
    Set wsCadSetor = Worksheets("CadSetor")

    With wsCadSetor

        'Verifica qual a ultima Linha preenchida na coluna A
        'Descontando a primeira linha de cabeçalho
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row - 1

        TxtCodigo = VBA.Format("000" & " " & lastRow + 1, "0000")
        'procedimento do botao cadastrar

        UltimaLinha = .Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1


        If UltimaLinha < 2 Then UltimaLinha = 2
        'Application.DisplayAlerts = False

        .Range("A" & UltimaLinha).Value = TxtCodigo.Value
        .Range("B" & UltimaLinha).Value = TxtDescricao.Value
        .Range("C" & UltimaLinha).Value = TxtData.Value
    

        .Select

    End With
    Call PreecherListCad

    MsgBox " Setor Cadastrado. " & "CÓDIGO:  " & (TxtCodigo.Value), vbInformation, "CADASTRO"
    
    With Me
        Call PreencherResumo(.TxtCodigo.Value, .TxtDescricao.Value, .TxtData.Value)
    End With
    ActiveWorkbook.Save

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 21/01/2015 7:35 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Marujo, qual a linha que aparece amarelada ?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/01/2015 7:41 am
 m_araujo
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Private Sub Salvar_Click() essa aqui!

Grato!

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 21/01/2015 7:48 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Cara, utiliza o código que enviei e nos informe a linha amarelada.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/01/2015 7:56 am
 m_araujo
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Bernardo segue o erro destacado em amarelo.

Grato!

Marcelo Ferreira

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 21/01/2015 8:10 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Aparentemente o erro deve-se ao fato da não declaração da variável UltimaLinha
Experimente acrescentar
Dim LastRow as Long, UltimaLinha as Long

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/01/2015 8:14 am
 m_araujo
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Bom dia !

Reinaldo obrigado funcionou mais ele não salva com o codigo salva descrição e data. somente

Grato!

Marcelo Ferreira

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 21/01/2015 8:19 am
 m_araujo
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Bom dia !

Meus amigos achei o erro de não esta salvando o código mais agora q achei e reparei ele salva um codigo totalmente errado
segue o trecho do codigo:

        'Verifica qual a ultima Linha preenchida na coluna A
        'Descontando a primeira linha de cabeçalho
        LastRow = .Cells(Rows.Count, 1).End(xlUp).Row - 1

        TxtCodigo = VBA.Format("000" & " " & LastRow + 1)
        'procedimento do botao cadastrar

ele salva todos os outros dados normal mais na planilha coluna a linha 2 ele salva assim

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 21/01/2015 8:26 am
 m_araujo
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Pessoal conseguir resolver o problema.

        TxtCodigo = "000-" & " " & LastRow + 1 eu modifiquei essa linha e funcionou legal 
        'procedimento do botao cadastrar

Grato !

Marcelo Ferreira

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

 
Postado : 21/01/2015 8:48 am
Forum Jump:
  Tópico Anterior
Próximo Tópico