Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Erro de sub e compi...
 
Notifications
Clear all

Erro de sub e compilação.

 
2024 - VBA & Macros
Post Recente por Syrax 7 anos atrás
2 Posts
2 Usuários
0 Reactions
986 Visualizações
RSS
 rodrigopac
(@rodrigopac)
Posts: 1
New Member
Topic starter
 

Ola, alguém para me ajudar?

minha planilha esta dando erro de compilação: Sub ou Function não definida . exel 2016 para mac

Sub btnEntrada_Clique()
    Set tbEntradas = Sheets("Entradas").ListObjects("tbEntradas")
    
    Set novaEntrada = tbEntradas.ListRows.Add

    novaEntrada.rage(4, 3) = Sheets("movimento de Caixa").Range("D6").Value
    novaEntrada.rage(4, 4) = Sheets("movimento de Caixa").Range("D8").Value
    novaEntrada.rage(4, 5) = Sheets("movimento de Caixa").Range("D10").Value
    novaEntrada.rage(4, 6) = CDate(Sheets("movimento de Caixa").Range("D12").Value)
    novaEntrada.rage(4, 11) = Month(Sheets("movimento de Caixa").Range("D12").Value) _
                   & "-" & Year(Sheets("movimento de caixa").Range("D12").Value)
    novaEntrada.rage(4, 7) = Sheets("movimento de Caixa").Range("D14").Value
    novaEntrada.rage(4, 8) = Sheets("movimento de Caixa").Range("D16").Value
    novaEntrada.rage(4, 9) = Sheets("movimento de Caixa").Range("D18").Value
    novaEntrada.rage(4, 10) = Sheets("movimento de Caixa").Range("D20").Value
    novaEntrada.rage(4, 11) = Sheets("movimento de Caixa").Range("D22").Value
    novaEntrada.rage(4, 12) = Sheets("movimento de Caixa").Range("D24").Value
    novaEntrada.rage(4, 15) = Sheets("movimento de Caixa").Range("D26").Value

     MsBox "Entrada Efetuada Com Sucesso!"
     Sheets("Movimento de caixa").Range("D6:D26").CLEARCONTENTES
End Sub
 
Postado : 25/04/2017 12:26 pm
Syrax
 Syrax
(@syrax)
Posts: 160
Estimable Member
 

Veja o código

é Range e não rage, outra coisa, range só aceita a referência da célula

ou seja, apenas 

Range("A1")  ' exemplo

o que aceita colunas, linhas em valores númericos é o cells

cells(1,1).value


 MsBox "Entrada Efetuada Com Sucesso!"

o correto é msgbox

MsgBox "Entrada Efetuada Com Sucesso!"

outra coisa é o 

Sheets("Movimento de caixa").Range("D6:D26").CLEARCONTENTES

o correto é 

Sheets("Movimento de caixa").Range("D6:D26").CLEARCONTENTS

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

 
Postado : 25/04/2017 1:02 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico