Fabuloso Wagner, Mais uma vez lhe agradeço a ajuda preciosa, o problema está resolvido. Pois os meus conhecimentos em vba são um pouco limitados e to...

Private Sub cmbcurativaalterarok_Click() Dim C As Range Application.ScreenUpdating = False If txtcurativaalteracodigo.Text = "&q...

Wagner, Sem sucesso, quando pesquisei o registo deu um erro: run-time error 91 object variable or with block variable not set o que poderá ser? ....

Wagner, enviei o ficheiro para o seu mail para poder dar uma vista de olhos. Como o ficheiro é grande não deu para colocar aqui

'gera codigo de registo sequencial Sheets("PESQUISA_HISTORICO_CURATIVA").Select Dim r As Long Dim d As Double r = Cells(Rows.Count, "h&...

viva 'codigo de registo sequencial Sheets("PESQUISA_HISTORICO_CURATIVA").Select Dim r As Long Dim d As Double r = Cells(Rows.C...

Brilhante wagner, muito bom mesmo!, Funciona na perfeição, era isto que eu procurava. Agradeço o tempo que dispendeu na resolução desta situação, aju...