Este fórum está sendo desativado

[WarleySCCCO]

Olá Gurus do Excel.

Projeto continua caminhando com a ajuda de vcs. Algumas coisinhas eu consigo resolver via Youtube, outras trava pois tento alternativas e mesmo assim não vai. Beeeellezzza, vamos ao que interessa.

ERRO:

Aparentemente esta tudo certo porem não tá, segue o código do botão Salvar, apos vc usuário já ter tido consultado, desejado alterar e alterado algum dado das TextBox permitidas, ao clicar salvar, acontece o ERRO.

imagen: https://uploaddeimagens.com.br/imagens/O-H8Gqk

Código: Selecionar todos

Private Sub BtnCsalvar_Click()

If TxtCsei = "" Then
MsgBox "Faça a consulta, logo clique alterar, então SALVAR", vbCritical, "FALTA DE AÇÃO"
Else

  'ALTERAR
Sheets("Plan1").Select
Range("A6").Select
  
  While ActiveCell <> ""

    If TxtCsei.Text = ActiveCell Then
         
     ActivaCell.Offset(0, 1).Value = Txtnumero.Text
     ActivaCell.Offset(0, 2).Value = Txtdatareg.Text
     ActivaCell.Offset(0, 3).Value = Txtservidor.Text
     ActivaCell.Offset(0, 4).Value = Txtdatache.Text
     ActivaCell.Offset(0, 5).Value = Txtmeio.Text
     ActivaCell.Offset(0, 6).Value = Txtremetente.Text
     ActivaCell.Offset(0, 7).Value = txtassunto.Text
     ActivaCell.Offset(0, 8).Value = Txtorcliente.Text
     ActivaCell.Offset(0, 9).Value = Txtsolicitacao.Text
     ActivaCell.Offset(0, 10).Value = Txtalvo.Text
     ActivaCell.Offset(0, 11).Value = Txtdataven.Text
     ActivaCell.Offset(0, 12).Value = Txtresumo.Text
     ActivaCell.Offset(0, 13).Value = Txtsituacao.Text
     ActivaCell.Offset(0, 14).Value = Txtdestino.Text
     ActivaCell.Offset(0, 15).Value = Txtseisaida.Text

    End If
    
    ActivaCell.Offset(1, 0).Activate

Wend
End If
End Sub

[lucasExcel]

Amigo não é activacell.offset e sim Activecell.offset, e não é activacell.offset(0,1).activate e sim activecell.offset(0,1).select

[WarleySCCCO]

LucasExcel,

Fiz as alterações que me passou, posso dizer que ERRO parou, porem ao invés de Gravar os Dados das TextBox e ComboBox destravadas a ação está localizando alinha correta (Beleza), porem aos invés de gravar os valores presente esta gravando valores vazio.

Segue imagem.: https://uploaddeimagens.com.br/imagens/ZChlnC4

Código como ficou.:

Código: Selecionar todos

Private Sub BtnCsalvar_Click()

If TxtCsei = "" Then
MsgBox "Faça a consulta, logo clique alterar, então SALVAR", vbCritical, "FALTA DE AÇÃO"
Else

  'ALTERAR
Sheets("Plan1").Select
Range("A6").Select
  
  While ActiveCell <> ""

    If TxtCsei.Text = ActiveCell Then
         
     ActiveCell.Offset(0, 11).Value = Txtdataven.Text
     ActiveCell.Offset(0, 12).Value = Txtresumo.Text
     ActiveCell.Offset(0, 13).Value = Txtsituacao.Text
     ActiveCell.Offset(0, 14).Value = Txtdestino.Text
     ActiveCell.Offset(0, 15).Value = Txtseisaida.Text
     
    End If
    ActiveCell.Offset(1, 0).Select
    
     'Travar novamente
     For Each ctrl In Me.FrCresultado.Controls
      If TypeName(ctrl) = "TextBox" Then
           ctrl.Locked = True
           ctrl.BackColor = &HE0E0E0
    End If
    If TypeName(ctrl) = "ComboBox" Then
          ctrl.Locked = True
          ctrl.BackColor = &HE0E0E0
    End If
    Next ctrl

Wend
End If
End Sub

[lucasExcel]

Olá amigo, no formulário que você criou você colocou os seguintes nomes:

TxtCdataven
TxtCresumo
TxtCsituacao
TxtCdestino
TxtCseisaida

Porém no seu código você está chamando o recurso com esses nomes:

Txtdataven.Text
Txtresumo.Text
Txtsituacao.Text
Txtdestino.Text
Txtseisaida.Text

O seu código VBA não estava salvando simplesmente porque esse Txtdataven não existe, o que existe é o TxtCdataven, arrumei o seu código, agora está salvando normalmente.

[WarleySCCCO]

Nossa Lucas. Viagei na hora de digitar. Deve ser o cansaço. Mas de qualquer forma vlw de mais. Segunda vou testar, pois estou sem PC em casa.

Grande abraço.