Excel VBA - Digitacao

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel vba digitacao altera data hora envia dados plan Excel vba digitacao altera data hora envia dados plan

    popular!
    Adicionado em: 07/03/2011
    Modificado em: 07/03/2011
    Tamanho: 20.4 KB
    Downloads: 659

    Saberexcel - o Site das Macros

    Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), auxliado pleo Evento_Change(ao digitar) em determinadas células da folha de planilha altera data e hora automaticamente, também envia uma mensagem para Planilha(Alteracao) informando data, hora e valores alterados nas células. Espero que o exemplo possam lhe ser útil.
    Este exemplo faz parte do Módulo - COMO FAZER - Programação MS Excel VBA_IV
    Modulos Como Fazer - Relação de Planilhas dos Módulos


    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C1:D20")) Is Nothing Then
    Saber2.Cells(Target.Row, 4).Value = "Ultima alteração ocorreu na Linha..: [ " & Target.Row & "] Valor..: [ " & Target.Value & " ]"
    Saber2.Cells(Target.Row, 5).Value = Date
    Saber2.Cells(Target.Row, 6).Value = Time
    End If
    End Sub





    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), com baixo custo, praticando com os produtos didáticos Saberexcel




    Excel vba digitacao altera data hora envia dados plan1 Excel vba digitacao altera data hora envia dados plan1

    popular!
    Adicionado em: 26/04/2011
    Modificado em: 26/04/2011
    Tamanho: 67.68 KB
    Downloads: 588

    Saberexcel - site das Macros

    Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), atualiza data e hora se umas células (C1 ou D1), for modificada,
    observe que a propriedade OffSet, para deslocar os dados desejadados para a Coluna(I), isto é, verifica a última linha usada, desloca uma abaixo e insere os dados desejados.
    PROPRIEDADE OffSet(muito importante no aprendizado Aplicativo Microsoft Excel VBA(Visual Basic Application), veja nosso Módulo de estudos:
    COMO FAZER - Trabalhando com a Propriedade Offset(DESLOC) COMO FAZER - relação dos módulos como fazer programação ms excel vba



    Option Explicit
    Dim Memorizacao As Variant

    Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("C1:D1")) Is Nothing Then
    Memorizacao = Range("A1").Value
    End If
    End Sub

    Sub Worksheet_Calculate()
    On Error GoTo sbErro

    If Range("A1").Value <> Memorizacao Then
    Range("A3").Value = Date
    Range("A4").Value = Time
    End If

    [I5].Select
    [I65000].End(xlUp).Offset(1, 0).Select 'usando a propriedade offset para deslocar uma linha abaixo preservando e inserindo dos dados.
    ActiveCell.Value = Format([A3].Value, "dd-mmm-yyyy") & Format([A4].Value, "hh:mm:ss") _
    & " Valores..: [ " & [C1].Value & " ] - [ " & [D1].Value & " ]"
    [I4].Select
    Exit Sub


    sbErro: MsgBox ("Digite número porque há uma soma e memorização de valores"), vbInformation, "Saberexcel - site das amcros"
    End Sub



    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



    Excel vba digitacao altera data hora envia dados plan1 Excel vba digitacao altera data hora envia dados plan1

    popular!
    Adicionado em: 29/05/2011
    Modificado em: 29/05/2011
    Tamanho: 18.23 KB
    Downloads: 519

    Saberexcel - site das Macros

    Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), atualiza data e hora se umas células (C1 ou D1), for modificada,
    observe que a propriedade OffSet, para deslocar os dados desejadados para a Coluna(I), isto é, verifica a última linha usada, desloca uma abaixo e insere os dados desejados.
    PROPRIEDADE OffSet(muito importante no aprendizado Aplicativo Microsoft Excel VBA(Visual Basic Application), veja nosso Módulo de estudos:
    COMO FAZER - Trabalhando com a Propriedade Offset(DESLOC) COMO FAZER - relação dos módulos como fazer programação ms excel vba



    Option Explicit
    Dim Memorizacao As Variant

    Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("C1:D1")) Is Nothing Then
    Memorizacao = Range("A1").Value
    End If
    End Sub

    Sub Worksheet_Calculate()
    On Error GoTo sbErro

    If Range("A1").Value <> Memorizacao Then
    Range("A3").Value = Date
    Range("A4").Value = Time
    End If

    [I5].Select
    [I65000].End(xlUp).Offset(1, 0).Select 'usando a propriedade offset para deslocar uma linha abaixo preservando e inserindo dos dados.
    ActiveCell.Value = Format([A3].Value, "dd-mmm-yyyy") & Format([A4].Value, "hh:mm:ss") _
    & " Valores..: [ " & [C1].Value & " ] - [ " & [D1].Value & " ]"
    [I4].Select
    Exit Sub


    sbErro: MsgBox ("Digite número porque há uma soma e memorização de valores"), vbInformation, "Saberexcel - site das amcros"
    End Sub



    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



    vba digitacao digitando palavra ou item insere dados vba digitacao digitando palavra ou item insere dados

    popular!
    Adicionado em: 22/02/2011
    Modificado em: 22/02/2011
    Tamanho: 26.74 KB
    Downloads: 577

    SaberExcel - Site das Macros

    Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere dados, estabelecendo um 'status' para determinado produto,
    ao digitar os dados na coluna(A), se o nome do Produto contiver os números '123', '222', '223', em qualquer posição, insere na coluna 'STATUS' um determinado critério para indentificar uma determinada situação.
    Observe que inserí o procedimento no Módulo de Edição do Objeto WorkBook, que afetará todas as folhas de planihas contidas no livro.

    Por exemplo.: SBX123BXLH - SBE222SQP - SBVVBA
    223 - aparecendo em qualquer posição a condição será considerada True(Verdadeiro)
    1 -) Se no nome do Produto contiver (123),(222),(223), mudará automaticamente o status , na coluna (C) - (Saberexcel - Embarcado!)
    2 -) Caso não haja os 'prefixos ou sufixos' específicos no nome do produto retornará outra mensagem na coluna (C ) - (ENTREGA PROGRAMADA)

    Módulo de Edição do Objeto WorkBook, eventos ao digitar em qualquer planilha
    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    'Se a clicar em outra coluna a que não seja a coluna 1 sai da macro, finaliza o processo
    If Target.Column <> 1 Then Exit Sub
    'se a célula na coluna A estiver desmarcada, limpa a célula da coluna C
    If Target.Value = "" Then Target.Offset(0, 2).Value = ""
    'Se a célula na coluna A contém "123"ou "223" ou "222 ", a célula na coluna C é definido como "Saberexcel - Embarcado"
    If Target.Value Like "*123*" Or Target.Value Like "*223*" Or Target.Value Like "*222*" Then
    Target.Offset(0, 2).Value = "Saberexcel - Embarcado!"
    Else
    Target.Offset(0, 2).Value = "ENTREGA PROGRAMADA!"
    End If
    End Sub




    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

    vba digitacao planilhas desloc registra mudancas planilha vba digitacao planilhas desloc registra mudancas planilha

    popular!
    Adicionado em: 21/11/2010
    Modificado em: 21/11/2010
    Tamanho: 20.89 KB
    Downloads: 599

    SaberExcel - o site das macros
    Essa macro do Aplicativo Microsoft Excel VBA, registra a mudança nos valores da planilha e também os valores digitados, esse registro é efetuado na coluna(A), foi usado a Propriedade OffSet para deslocar os dados localizando sempre a próxima célula em branco.

    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Target.Font.ColorIndex = 5
    [A65000].End(xlUp).Offset(1, 0) = Target.Address
    [A65000].End(xlUp).Offset(0, 1).Value = Target.Value
    [A65000].End(xlUp).Offset(0, 2).Value =
    Now()
    Application.EnableEvents = True
    End Sub



    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel



    Baixe o exemplo de planilha com o evento acima.


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA