subscrever o vídeo do dia aeiou:
subscrição efectuada.
  • Vídeo Aula 08 – Parte 2 – Pesquisar valores, carregar e atualizar dados em formulários

    teste
    FAVORITO
    3.00/5
    Partilha no teu site ou blog:

    Essa vídeo aula complementa a vídeo aula 08 e mostra como fazer a atualização das informações em um formulário VBA no excel, fazendo com que as informações cadastradas nele sejam atualizadas na planilha…

    Código da aula

    Private Sub CommandButton1_Click()

    Dim codigo As Integer
    Dim quantidade As Double
    Dim valor As Currency

    linha = 2
    codigo = txt_codigo
    quantidade = txt_quantidade
    valor = txt_valor_unitario

    Sheets(“estoque”).Select
    Do Until Sheets(“estoque”).Cells(linha, 1) = “”
    ‘condicção para localizar o código
    If Sheets(“estoque”).Cells(linha, 1) = codigo Then
    ‘seleciona célula com o código
    Sheets(“estoque”).Cells(linha, 1).Select

    ActiveCell.Offset(0, 1).Select
    ActiveCell = txt_produto

    ActiveCell.Offset(0, 1).Select
    ActiveCell = txt_unidade

    ActiveCell.Offset(0, 1).Select
    ActiveCell = quantidade

    ActiveCell.Offset(0, 1).Select
    ActiveCell = valor

    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = “=RC[-2]*RC[-1]“

    MsgBox (“Dados alteradados com sucesso!”)

    End If

    linha = linha + 1
    Loop

    Call txt_codigo_AfterUpdate

    End Sub

Comentários

A preparar comentários...