Boa noite.
Realizo a consulta necessária e clico no registro desejado, faço as alterações e quando clico no botão que vai alterar a informação e a mantém na mesma linha, informa erro de execução 13 tipo incompatível..
Realizei uma redução, pois o arquivo original está muito grande. Este é uma copia do original em versão reduzida
Private Sub Alterar_Click()
Dim intlinha As Double
intlinha = Me.Lbl_Linha.Caption
ThisWorkbook.Worksheets("centro_de_custo").Cells(intlinha, 1) = CDbl(Me.Id_CeCusto.Caption)
ThisWorkbook.Worksheets("centro_de_custo").Cells(intlinha, 2) = CStr(Me.Txt_ClassCeCusto.Text)
ThisWorkbook.Worksheets("centro_de_custo").Cells(intlinha, 3) = CStr(Me.Txt_CeCusto.Text)
ThisWorkbook.Worksheets("centro_de_custo").Cells(intlinha, 4) = CStr(Me.Txt_CalcCeCusto.Text)
End Sub
Em seu projeto não há um controle Lbl_Linha, o que gera erro
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Boa tarde, coloquei um controle(Label) e alterei o nome dele para linha, porem continua ao alterar alguma informação e quando vai salvar continua dando erro 13
Realizei a alteração e está funcionando perfeitamente, porém ao salvar os dados não são alterados.
Em que comando estarei errando.
Experimente (somente botão alterar):
Cross Post https://www.tomasvasquez.com.br/forum/viewtopic.php?f=20&t=6584
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel