Excel VBA - Datas

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel vba datas loop deleta dados anteriores data desejada Excel vba datas loop deleta dados anteriores data desejada

    popular!
    Adicionado em: 21/02/2011
    Modificado em: 21/02/2011
    Tamanho: Vazio
    Downloads: 506

    Saberexcel - site das macros

    Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), deletará todos os dados após determinada data,
    um Loop(laço) identificará a primeira data e deletará os dados anteriores à determinada data.
    Essa data será determinada por meio de uma entrada de dados (InputBox)

    Sub Deletar_selecao()
    For i = [A65000].End(xlUp).Row To 1 Step -1
    If Application.CountA(Rows(i)) = 0 Then
    Rows(i).Delete
    End If
    Next i
    End Sub

    Essa macro rola a tela até a data de hoje
    vamos montar o exemplo copie os dados acima e cole na celula A1 na abertura do wkb
    rolará a tela e selecionará a primeira célula com a data de hoje()

    Sub auto_open()
    p = Application.Match(CDbl(Date), [A1:A100], 1)
    Application.Goto [A1].Offset(p - 1 + IIf(Cells(p, 1) = Date, 0, 1)), scroll:=True
    End Sub

    Sub localizar_data_hoje()
    On Error Resume Next
    Sb = Application.Match(CDbl(Date) - 1, [A1:A100], 1) 'deletará data hoje -1
    Application.Goto [A1].Offset(Sb - 1 + IIf(Cells(Sb, 1) = Date, 0, 1)), scroll:=True

    ActiveCell.Select
    ActiveCell.Offset(-1, 0).Select
    Do While IsEmpty(ActiveCell.Offset(0, 0)) = False 'faça enquanto houver dados na coluna(A)
    ActiveCell.Value = ""
    ActiveCell.Offset(0, 1).Value = ""
    ActiveCell.Offset(0, 2).Value = ""
    ActiveCell.Offset(0, 3).Value = ""
    ActiveCell.Offset(0, 4).Value = ""
    ActiveCell.Offset(-1, 0).Select
    Loop
    ' If Err <> 0 Then MsgBox "Data nao encontrada!"
    End Sub

    Sub Macro1()
    Range("L1:L16").Select
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("E2").Activate
    'SendKeys ("{Esc}")
    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 planilha adiciona planilha meses e ano Excel vba planilha adiciona planilha meses e ano

    popular!
    Adicionado em: 28/03/2012
    Modificado em: 28/03/2012
    Tamanho: Vazio
    Downloads: 582

    Escola Saberexcel VBA Estudos® - o Site de quem precisa aprender sobre Macros MS Excel VBA

    E
    sta macro adiciona(cria) folhas de planilihas com nome dos meses do ano, concatenando com o número do mês, observe que o formato da variável
    vMeses esta no formato (mmmm), que retorna o "nome" 'extenso' dos meses.
    Abaixo uma macro que deleta todas as folhas de planilhas e preserva somente as folhas de planilha desejadas no livro.
    Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.
    ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'

    Sub sbx_gerar_planilhas_meses()
    '- - - - - - - - - - - - -
    'http://www.microsoftexcel.com.br
    '[email protected]
    '- - - - - - - - - - - - -
    Dim vContador As Integer
    Dim vPlanilha As Worksheet
    Dim vMeses As String
    ' criar um contador com instrução for para repetir um determinado número de vezes
    For vContador = 1 To 12

    'Adiciona uma Planilha
    'instrução set - (referenciar um objeto)
    Set vPlanilha = Worksheets.Add(, after:=Worksheets(Worksheets.Count))

    'Referenciando o mês do ano atual
    vMeses = vContador & " - " & Saber1.Range("A1").Value

    'Renomear a planilha que foi adicionada
    On Error GoTo SaberErro:
    vPlanilha.Name = vMeses & " - " & Format(vMeses, "mmmm")

    Set vPlanilha = Nothing 'nothing' dessassocia um objeto de uma variável
    Next vContador
    Saber1.Select
    MsgBox ("Todas as folhas de planilhas foram deletadas" & vbCrLf & _
    "Preservando a Folha de Planilha 'Auxiliar' e Produtos_Saberexcel"), vbInformation, "Escola Saberexcel VBA Estudos®"
    Exit Sub

    SaberErro: ' tratando um erro:
    Resposta = MsgBox("Não poderá ser criar planilhas já existentes" & vbCrLf & _
    "a menos que você delete as existentes para criar novas, Deseja fazer isso?", vbYesNo, "Escola Saberexcel VBA Estudos®")
    If Resposta = 6 Then
    Deleta_Planilhas_Exceto_Desejada
    sbx_gerar_planilhas_meses
    End If
    Saber1.Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
    Esse macro é para auxiliar no teste com os macros acima:
    'Deleta todas as folhas de planilha e preserva as desejadas.
    Sub Deleta_Planilhas_Exceto_Desejada()
    For Each nm In Worksheets
    Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
    If nm.Name <> "Auxiliar" And nm.Name <> "Produtos_Saberexcel" Then
    nm.Delete
    End If
    Next nm
    MsgBox ("Todas as folhas de planilhas foram deletadas" & vbCrLf & _
    "Preservando a Folha de Planilha 'Auxiliar' e Produtos_Saberexcel"), vbInformation, "Escola Saberexcel VBA Estudos®"
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'


    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



    vba datas adicionando doze planilhas referentes meses vba datas adicionando doze planilhas referentes meses

    popular!
    Adicionado em: 20/11/2010
    Modificado em: 20/11/2010
    Tamanho: Vazio
    Downloads: 502

    Macros do Aplicativo Microsoft Excel VBA, adicionam 12(doze) folhas de planilhas no livro(workbook) com os nomes dos doze meses do ano, e outra macro que deleta todas as folhas de planilha, preservando uma, a desejada.
    Sub adiciona_Meses()
    Dim Meses As Variant
    Meses = Array("minha", "Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", "Agosto", "Setembro", "Outubro", "Novembro", "Dezembro")
    ActiveWorkbook.Sheets.Add , , 12
    For i = 1 To 12
    Sheets(i).Name = Meses(i)
    Next i
    Sheets("Plan1").Select ' quando encerrar a macro, seleciona a folha de planilha (Plan1)
    End Sub

    Esta macro é uma macro auxíliar, para ajudar no teste do aluno-desenvolvedor, que deleta todas as folhas de planilhas preservando apenas uma determinada pela macro.
    Sub Deleta_todas_menos_a_desejada()
    Dim Plan As Worksheet
    On Error Resume Next
    Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
    For Each Plan In Worksheets
    If (Plan.Name <> "Plan1") Then
    Plan.Delete
    End If
    Next
    Application.DisplayAlerts = True
    End Sub

    Núbia voce poderá conseguir selecionar todas as planilhas gravando uma macro, veja o resultado.

    Sub seleciona_todas_planilhas()
    Sheets(Array("Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", _
    "Agosto", "Setembro", "Outubro", "Novembro", "Plan1")).Select
    Sheets("Janeiro").Activate
    Range("J27").Select
    Sheets("Plan1").Select
    Range("G18").Select
    End Sub

    Essas informações que voce quer inserir na folha de planilha poderá ser algo mais ou menos parecido com a macro abaixo, veja:
    Sub Recado_p_Núbia()
    Range("D17").Value = "Esta vendo o ""porque"" da coleção de Macros"
    Range("D18").Value = "é somente o código sem ter necessidade da planilha modelo"
    Range("D20").Value = "já a planilha toda com o código fica mais pesado"
    Range("D21").Value = "ficaria inviável"
    Range("D23").Value = "Fique com Deus, Esforce-se!"
    Range("D24").Value = "Se precisar de alguma coisa, Comunique comigo"
    Range("D25").Value = "Expedito Marcondes... Excel VBA."
    Range("D26").Select
    End Sub

    Macro auxiliar também para ajudar nos testes de planilha com o aluno-desenvolvedor
    Sub Limpar_Recados()
    Range("D17") = "" ' duas aspas sem nada significa (que não tem nada) em branco
    Range("D18") = ""
    Range("D20") = ""
    Range("D21") = ""
    Range("D23") = ""
    Range("D24") = ""
    Range("D25") = ""
    Range("D26") = ""
    End Sub

    'Com este código acessa o módulo modulo vai para
    Sub ver_código()
    SendKeys ("%{F11}")
    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA


    vba datas exemplo retorna dia mes ano vba datas exemplo retorna dia mes ano

    popular!
    Adicionado em: 20/11/2010
    Modificado em: 20/11/2010
    Tamanho: Vazio
    Downloads: 894

    Saberexcel - o site das macros
    Esta macro do Aplicativo Microsoft Excel VBA retorna Funções DATAS, retorna mensagem de datas como , dia, mes, ano, e também retorna na folha de planilha determinadas células . VBA possui diversas funções que auxiliam no desenvolvimento. Vejamos as principais Funções de Datas
    Você sabia que as datas e horas datas e horas são armazenadas internamente na memória como números. Isto de certa forma nos permite realizar os calculos com datas e também horas, como por exemplo adicionar dias ao dia de hoje para obtenção de uma data futura.
    O Visual Basic realiza esses cálculos como muita facilidade com as funções que retornam datas e horas como também a atual, e gera esses dados baseado em string e ou outra expressão. Temos excelentes exemplos de planilhas nos Módulos [COMO FAZER - PROGRAMAÇÃO MS EXCEL VBA- SABEREXCEL] - com fórmulas e uso das Funções.

    Função
    Descrição
    Date.................................: Retorna a data atual
    Time.................................: Retorna a hora atual
    Now..................................: Retorna a data e hora atual
    Hour, Minute, Second .........: Retornam Hora, Minuto e Segundo atual
    Day, Month, Year ...............: Retornam Dia, Mês e Ano de uma data qualquer
    DataDiff ............................: Retorna a diferença entre duas datas

    Public Const sb = vbInformation
    Public Const titulo = "Saberexcel - o site das macros"

    Sub Funcao_data_retorna_planilha()

    [A1].Select
    [A1:D10].ClearContents

    ActiveCell.Value = Date
    ActiveCell.Offset(0, 2).Value = "Data atual"
    MsgBox "Data Atual.......: " & Date, sb, titulo: ActiveCell.Value = Date

    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = Day(Date)
    ActiveCell.Offset(0, 2).Value = "dia de hoje"
    MsgBox "Dia de Hoje....: " & Day(Date), sb, titulo: ActiveCell.Value = Day(Date)


    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = Format(Date, "MMMM") & " ( " & Month(Date) & " )"
    ActiveCell.Offset(0, 2).Value = "Mês atual"
    MsgBox "Mês Atual......: " & Month(Date) & " = " & Format(Date, "Mmmm"), sb, titulo


    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = Year(Date)
    ActiveCell.Offset(0, 2).Value = "Ano atual"
    MsgBox "Mês Atual......: " & Year(Date), sb, titulo


    ActiveCell.Offset(2, 0).Select
    ActiveCell.Value = "Ituverava(SP)," & Day(Date) & " de " & Format(Date, "Mmmm") & " de " & Year(Date) & "."
    ActiveCell.Offset(0, 2).Value = "Local e Data"
    MsgBox "Data...........: " & "Ituverava(SP)," & Day(Date) & " de " & Format(Date, "Mmmm") & " de " & Year(Date) & ".", sb,
    titulo
    [D1].Select
    End Sub

    Fiz essa mensagem, com objetivo didático, para que voce veja as declarações públicas de variáveis no ínicio do módulo, isso simplifica quando voce tem que enviar um uma determinada mensagem várias vezes dentro de um módulo, não precisa ficar digitando só inserir as variáveis.

    Sub aprender_vba_saberexcel()
    MsgBox "Aprenda microsoft Excel VBA com qualidade", sb,
    titulo
    End Sub

    'funçao somente com retorno da mensagem
    Sub Funcao_datas_msg()
    MsgBox "Data Atual : " & Date, sb, titulo
    MsgBox "Dia de Hoje : " & Day(Date), sb, titulo
    MsgBox "Mês Atual : " & Month(Date), sb, titulo
    MsgBox "Mês Atual : " & Year(Date), sb, titulo
    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com SaberExcel





    Publicidade
    Compre com Segurança, garantia e ótimos preços e produtos nas lojas SubMarino
    Informática - Submarino.com.br

    vba datas funcao converte data ao digita insere barras vba datas funcao converte data ao digita insere barras

    popular!
    Adicionado em: 20/11/2010
    Modificado em: 20/11/2010
    Tamanho: Vazio
    Downloads: 614

    Saberexcel - site das macros
    Funçao do Aplicativo Microsoft Excel VBA, converte datas digitadas em células, inserindo as barras de separação de datas dia, mes, ano,
    por exemplo voce diigita : (*) Baixe o exemplo de planilha no final da página.
    Observe que fizemos uma formatação personalizada na coluna (Data Digitada) @
    para aceitar o zero.

    Espero tê-lo ajudado! - Fique com Deus, Boa sorte.

    DATA DIGITADA - RETORNO - FUNÇAO USADA
    01072012 01/07/2010 =SE(C6="";"";ConverteData(C6))
    01052010 01/05/2010 =SE(C7="";"";ConverteData(C7
    ))

    Funçao converte datas digitas inserindo as barras de separação:

    Function ConverteData
    (vdate) As Date
    Application.Volatile
    ConverteData = CDate(Left(vdate, 2) & "/" & Mid(vdate, 3, 2) & "/" & Right(vdate, 2))
    End Function

    Function RetornaFormula(vCelula As Range) As String
    'Application.Volatile = True
    RetornaFormula = vCelula.FormulaLocal
    End Function


    Aprenda tudo sobre o plicativo Microsoft Excel VBA com Saberexcel



    ESSE EXEMPLO DE PLANILHA FAZ PARTE DOS MÓDULOS COMO FAZER - PROGRAMAÇÃO MS EXCEL VBA - SABEREXCEL

     

    Publicidade:
    compre com garantia, segurança e ótimos preços, Lojas Submarino
    Esporte & Lazer - Submarino.com.br

    Página 3 de 4

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    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