Excel VBA - Dados

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    vba insere dados em outra planilha determinando linha e coluna vba insere dados em outra planilha determinando linha e coluna

    popular!
    Adicionado em: 18/11/2010
    Modificado em: 23/12/2010
    Tamanho: Vazio
    Downloads: 573

    Essa macro do Aplicativo Microsoft Excel VBA, insere dados em determinadas linhas e colunas, baseada em um número
    da célula(C16). Exemplo se a célula(C16) contiver o número 11, a macro vai inserir
    a palavra 'Saberexcel' na planilha(Plan2) na linha 11 e nas colunas(15,16,17)

    Sub insere_dados()
    Plan2.Select
    Plan2.Range(Cells(Plan2.Range("C16").Value, 15), _
    Cells(Plan2.Range("C16").Value, 17)).Value = "Saberexcel"
    Plan1.Select
    End Sub

    Aprenda Microsoft Excel VBA com Saberexcel



    vba dados encripta desencripta frase vba dados encripta desencripta frase

    popular!
    Adicionado em: 02/12/2010
    Modificado em: 02/12/2010
    Tamanho: Vazio
    Downloads: 1092

    Saberexcel - O site das Macros
    Essas macros do Aplicativo Microsoft Excel VBA, encripta e desencripta uma determinada frase em uma célula da folha de planilha

    Sub Encripta()
    Range("e7").Select
    On Error Resume Next
    Dim c As Range, i As Long, sCode As String, sCode2 As String
    Application.ScreenUpdating = False
    For Each c In Selection
    If LowerCase = True Then c = LCase(c)

    For i = 1 To Len(c) + 2
    If i Mod 2 = 0 Then
    sCode = sCode & Mid(c, i, 1)
    Else
    sCode = sCode & Mid(c, i - 2, 1)
    End If
    Next
    For i = Len(sCode) To 1 Step -1
    sCode2 = sCode2 & Chr(Asc(Mid(sCode, i, 1)) + 1)
    Next
    c = sCode2
    Next
    Application.ScreenUpdating = True
    For i = Len(sCode) To 1 Step -1
    sCode2 = sCode2 & Chr(Asc(Mid(sCode, i, 1)) + 1)
    Next
    [f12].Select
    End Sub

    Sub Desencripta()
    Range("e7").Select
    On Error Resume Next
    Dim c As Range, i As Long, sCode As String, sCode2 As String, sCode3 As String

    Application.ScreenUpdating = False
    For Each c In Selection
    sCode = ""
    sCode2 = ""
    sCode3 = ""
    For i = Len(c) To 1 Step -1
    sCode = sCode & Mid(c, i, 1)
    Next
    For i = 1 To Len(sCode) + 2
    If i Mod 2 = 0 Then
    sCode2 = sCode2 & Mid(sCode, i, 1)
    Else
    sCode2 = sCode2 & Mid(sCode, i - 2, 1)
    End If
    Next
    For i = 1 To Len(sCode2)
    sCode3 = sCode3 & Chr(Asc(Mid(sCode2, i, 1)) - 1)
    Next
    c = sCode3
    Next
    Application.ScreenUpdating = True

    sCode = ""
    sCode2 = ""
    sCode3 = ""
    For i = Len(TextBoxCode) To 1 Step -1
    sCode = sCode & Mid(TextBoxCode, i, 1)
    Next
    For i = 1 To Len(sCode) + 2
    If i Mod 2 = 0 Then
    sCode2 = sCode2 & Mid(sCode, i, 1)
    Else
    sCode2 = sCode2 & Mid(sCode, i - 2, 1)
    End If
    Next
    For i = 1 To Len(sCode)
    sCode3 = sCode3 & Chr(Asc(Mid(sCode2, i, 1)) - 1)
    Next
    ' TextBoxCode = sCode3
    [f12].Select

    End Sub


    Aprenda tudo sobre o Aplicativo
    Microsoft Excel VBA com SaberExcel





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

    Excel vba planiha tipo dados celula ativa funcao Excel vba planiha tipo dados celula ativa funcao

    Adicionado em: 18/07/2011
    Modificado em: 18/07/2011
    Tamanho: Vazio
    Downloads: 0

    Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA

    E
    sse procedimento do Aplicativo Microsoft Excel VBA, auxiliado por uma função retorna o TipoValor contido nas células, neste caso,
    células vazias, se contém números, se contém datas ou Texto. observe que também inserimos a função como fórmula na célula, que retorna
    também o valor contido na célula.

    Private Sub Worksheet_BeforeDoubleClick
    (ByVal Target As Range, Cancel As Boolean)
    sbx = TipoValor(ActiveCell)
    ActiveCell.Offset(0, 2).Value = sbx 'deslocando duas colunas a direita e inserindo o resultado armazenado pela variável (sbx)
    End Sub

    'Função que retorna o tipo de dados contidos na célula
    Private Function TipoValor(Celula As Range) As String

    If Celula.Value = "" Then
    TipoValor = "Celula Vazia"
    ElseIf IsNumeric(Celula.Value) Then
    TipoValor = "Contém número"
    ElseIf IsDate(Celula.Value) Then
    TipoValor = "Contém Data"
    Else

    TipoValor = "Contém texto"
    End If

    End Function

    Excel planilha vba importar dados planilhas escolhidas Excel planilha vba importar dados planilhas escolhidas

    popular!
    Adicionado em: 21/05/2011
    Modificado em: 21/05/2011
    Tamanho: Vazio
    Downloads: 2698

    Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA

    E
    ssa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), importa dados de todas as folhas de planiha em determinadas range, e as copiam para folha de planilha 'Auxiliar. Baixe o exemplo no final da página.
    Esse exemplo de Planilha faz parte do MODULO COMO FAZER - PROGRAMAÇÃO MS EXCEL VBA
    COMO FAZER - relação dos módulos como fazer programação ms excel vba

    Sub Transferir_dados_planilhas()
    'determinando as variáveis a serem usadas
    Dim vUltimaLinha As Integer 'ultima linha para transferencia
    Dim vUltimaLinhaTransf As Integer 'ultima linha para busca de dados
    Dim vNumeroLinhas As Byte 'numero de linhas que vamos transferir
    Dim wksDestino As Worksheet, vTodasPlans As Worksheet 'variaveis planilhas
    Dim vRegiao As Range, vRegiaoTransf As Range 'variaveis range
    Set wksDestino = Worksheets("Auxiliar") 'Referenciando 'setando' a variavel planilha destino

    wksDestino.Range("A2:D1000").ClearContents 'limpando a area da planilha destino
    For Each vTodasPlans In Worksheets 'determinando variável para a coleção de planilhas
    If vTodasPlans.Name <> wksDestino.Name Then 'se o nome da folha de planiha dados for diferente do _
    do nome da folha de planilha destino
    With vTodasPlans 'com essa planilha
    vUltimaLinha = .Range("A65536").End(xlUp).Row 'determina a última linha não vazia
    Set vRegiao = .Range("A2:D" & vUltimaLinha) 'determina a região para exportar dados
    End With

    vNumeroLinhas = vRegiao.Rows.Count 'determina o número de linhas da região
    With wksDestino 'com a planilha destino
    vUltimaLinhaTransf = .Range("A65536").End(xlUp).Row + 1 'determina última linha a partir daquela _
    que foi nomeada na região (vRegiao)
    Set vRegiaoTransf = .Range(.Cells(vUltimaLinhaTransf, 1), .Cells(vUltimaLinhaTransf - 1 + vNumeroLinhas, 4)) 'é determinado aqui _ o intervalo que vai receber os itens na Regiaotransf.

    vRegiaoTransf.Value = vRegiao.Value
    End With
    End If
    Next
    MsgBox ("Dados importados com Sucesso!!"), vbInformation, "Saberexcel - site das macros"
    End Sub


    Sub limpar_dados()
    Dim wksDestino As Worksheet
    Set wksDestino = Worksheets("Auxiliar")
    wksDestino.Range("A2:D1000").ClearContents
    MsgBox ("Dados deletados com sucesso para teste!"), vbInformation, "Saberexcel o site das macros"
    End Sub

    Sub visualizar_macros_vbe()
    Dim Resposta As String

    Resposta = MsgBox("Deseja visualizar as macros no módulo VBE?", vbYesNo, "Saberexcel - o site das macros")
    If Resposta = 6 Then ' 6 é igual a vbyes
    Application.Goto reference:="Transferir_dados_planilhas"
    Else
    Saber1.Shapes("sb").Visible = True
    End If

    End Sub

    Sub oc()
    Saber1.Shapes("sb").Visible = False
    End Sub



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



    Baixe o exemplo de planilha contendo os macros acima



    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    Excel planilha vba exportar dados baseado data Excel planilha vba exportar dados baseado data

    popular!
    Adicionado em: 18/05/2011
    Modificado em: 18/05/2011
    Tamanho: Vazio
    Downloads: 1181

    Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA

    Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), exporta determinados dados, resultado de busca em uma Lista Suspensa e auxílio da Função Procv(), por data em um banco de dados. Esse Macro localiza a última linha na planiha 'Auxiliar' e envia os resultados da busca por data para o final dos dados nesta folha de planilha. Resumindo:
    Macros buscam dados na folha de planilha Banco de dados e Macro exporta dados para última linha usada na planilha Auxiliar.

    Observe que usei a instrução Sendkeys, com intutíto didático, para abrir a caixa suspensa na célula B1, quando for selecionada, caso houver mais uma caixa suspensa(Validação de Dados) na Coluna(B), abriria automáticamente também. Acho bem bacana, e é útil.
    Clique nas células da coluna (B) e observe o resultado, (não tem caixa suspensa, mas surge o efeito, faça esse exercício em outro local)
    Fique com Deus. Expedito Marcondes

    Este exemplo de Planilha faz parte dos Módulos
    COMO FAZER - PROGRAMAÇÃO MS EXCEL VBA - SABEREXCEL
    Planilhas inteligentes e didáticas
    .

    Veja o Precedimento com evento Selection_Change, que foi inserido na folha de código da folha de planilha.
    que abre automáticamente todas as listas de validação existentes na coluna(B). há vários exemplos nos
    Módulos Como Fazer programção com Validação de Dados (excelentes exemplos)

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 2 And Target.Count = 1 Then
    If Target = "" Then SendKeys "%{down}"
    SendKeys "%{down}"
    End If
    End Sub

     - Aqui estou mostrando dois exemplos de como fazer essa exportação, o segundo exemplo a folha de planilha teste está em outra
    matéria, mas voce poderá fazer o exercício, reproduzindo a situação em outra planilhas teste.
    Espero que tenham gostado do exemplo. Fique com Deus, Expedito Marcondes.

    O exemplo de planilha ligado abaixo para download é referente à esse macro, o exemplo abaixo está em outra matéria nesta mesma categoria.

    Sub Exportar_dados_I()
    'Simplificando o código :
    Range("B3:B12").Copy
    Sheets("Auxiliar").Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    'a segunda parte é algo mais localizar última célula usada e insere novos dados abaixo.
    Range("B1") = Range("B1") + 1
    Range("B3:B12").Copy
    Sheets("Auxiliar").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    [C1].select
    Application.SendKeys ("{ESC}") 'acionando a tecla esc para retirar a seleção (COPY)
    End Sub

    '----------------------------------'
    'esse é um outro exemplo que copia os dados para área desejada.
    'fiz outro exemplo_I - veja...
    Sub exportar_dados_dois()
    Sheets("Auxiliar").Range("A3:A" & Sheets("Auxiliar").Range("A65536").End(xlUp).Row).ClearContents
    Range("B3:B12").Copy
    Sheets("Auxiliar").Range("A3").PasteSpecial Paste:=xlPasteValues
    Range("B1") = Range("B1") + 1
    Range("B3:B12").Copy
    Sheets("Auxiliar").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    Range("C1").Select
    End Sub




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





    Baixe o exemplo de planilha contendo os macros e procedimentos acima



    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    Página 1 de 2

    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