Erro em tempo de ex...
 
Notifications
Clear all

Erro em tempo de execução "9"

4 Posts
2 Usuários
0 Reactions
1,279 Visualizações
(@silvano)
Posts: 8
Active Member
Topic starter
 

Boa noite.

Tentei adaptar um código na minha planilha com a finalidade de realizar alterações na planilha através de textbox, mas quando clico no botão aparece este erro.

Este é o código que aparece o erro.

Function editarItem(ByVal Aba As String)
With ThisWorkbook.Sheets(Aba)

If TxtData <> "" And TxtDescrição <> "" And TxtValor <> "" Then
.Cells(ActiveCell.Row, 1) = Me.TxtData
.Cells(ActiveCell.Row, 2) = CDbl(Me.TxtValor)
.Cells(ActiveCell.Row, 3) = UCase(Me.TxtDescrição)

End If
End With
End Function

Segue a planilha em anexo.

 
Postado : 15/09/2018 4:09 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Essa função inicialmente requer que o parâmetro Aba seja fornecido. Porem esse parametro está "vindo" vazio, motivo do erro.
Na chamada dessa função voce está utilizando (corretamente) --> editarItem planilhaAtiva<--
Não há em lugar algum a definição para o valor dessa variavel (planilhaAtiva); e a mesma está declarada como Global, e não vi essa necessidade.
Primeiro: Definir qual o valor para essa variável (como e quando atribuir esse valor).
Segundo Talvez não seja necessário essa variável
Pelo que entendi, para cada botão deve efetuar alteração/manutenção na sheet/planilha de mesmo nome então a chamada poderia ser sem a variável planilha ativa -->por exemplo Teka

Private Sub CmdTeka_Click()

editarItem CmdTeka.Caption

Call BtnTeka_Click

End Sub

Verificando superficialmente a função, causa estranheza a mesma já efetuar alteração na celulaAtiva, sem verificar qual e a celula ativa nesse momento; e correto essa espectativa??

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

 
Postado : 15/09/2018 5:01 pm
(@silvano)
Posts: 8
Active Member
Topic starter
 

Boa Noite.

Coloquei conforme seu exemplo e o erro continuo, qual a outra maneira ou formúla que atenda a minha necessidade?

 
Postado : 15/09/2018 6:16 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não sei o que fez, mas no seu modelo/exemplo funcionou.

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

 
Postado : 16/09/2018 5:00 am