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