Home Excel - Downloads / Areas Restritas Excel VBA - Linhas e Colunas

Excel VBA - Linhas e Colunas

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    Excel planilha vba linhas usadas conta lancamentos Excel planilha vba linhas usadas conta lancamentos

    popular!
    Adicionado em: 22/04/2011
    Modificado em: 22/04/2011
    Tamanho: Vazio
    Downloads: 1056

    Saberexcel - site dos que precisam aprender Microsoft Excel VBA(Visual Basic Application)

    Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), tem por finalidade inserir o total de lançamentos em determinada área de folha de planilha, observe que o exemplo poderá ajudá-lo muito na conclusão de um relatório.
    Usando a WorksheetFunction ContA (que corresponde a Funçao do Excel Cont.Valores()), o macros com variáveis que verificam o número de linhas e colunas usadas, vão inserir o total dos lançamentos efetuados na folha folha de planilha.
    Não deixe de ver as 340 Planilhas Exemplos de worksheetFunctions, desenvolví uma para cada Função do Excel, e onde foi possível inserir a worksheetFunction para ilustrar o exemplo foi feito.
    Sobre as 340 Planilhas worksheetfunction funções de planilhas retornam valores vba


    Sub Contando_lancamentos()
    Dim vLinhas
    vLinhas = Range("A65000").End(xlUp).Row + 2 'observe que será lançado após tres linhas abaixo
    Range("A" & vLinhas) = "Total Lançamentos efetuados...:'"
    Range("G" & vLinhas) = Application.WorksheetFunction.CountA(Range("A1:A" & vLinhas)) - 1
    Range("H" & vLinhas) = "Lançamentos'"
    End Sub


    Caso você queira inserir a fórmula conta.valores na célula J28,
    veja que usei o gravador de macro para capturar o código da fórmula e inserí aqui,
    Sobre Gravador de macros é o objeto de estudo de nosso Caderno_1, do Curso Completo Microsoft Excel VBA
    Domime bem esse assunto do Gravador de Macros. ajuda muito aos iniciantes. Fiquem com Deus - Expedito Marcondes

    Sub Inserindo_formula_contar()
    [J28].FormulaR1C1 = "=COUNTA(R[-26]C[-9]:R[22]C[-9])"
    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



     


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

    Excel planilha vba linha insere cinco linhas intervalos Excel planilha vba linha insere cinco linhas intervalos

    popular!
    Adicionado em: 03/05/2011
    Modificado em: 03/05/2011
    Tamanho: Vazio
    Downloads: 952

    Saberexcel o site de quem precisa aprender Macros Microsoft Excel VBA

    Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere linhas em branco alternadas às linhas existentes em uma determinada planilha, e atendendo ao pedido da Silvia, Campinas-SP, que pede uma forma bem simples de copiar dados de determinada folha planilha para outra folha de planilha. Silvia, observe que no macro Copiar_para_teste(), abaixo eu nomeei as células a serem copiadas da folha de planilha auxiliar como 'dados', e também a célula(A1) da folha de planilha que receberá os dados como 'sba', observe

    Sub Inserir_cinco_linhas_branco()

    Dim vLinhasBranco As Long, rgLocaliza As Range, rgLinha As Range
    Dim arrInserirLinhas() As String, vLinhaArray As Long
    vLinhasBranco = 5

    With Saber1 'determinando a planilha
    Set rgLocaliza = .Range("A1:A14") 'select range to test
    ReDim arrInserirLinhas(1 To 1)
    For Each rgLinha In rgLocaliza.Rows
    If rgLinha.Row > 1 Then 'skip row 1
    If rgLinha.Cells(1, 1) <> rgLinha.Offset(-1, 0) Then
    arrInserirLinhas(UBound(arrInserirLinhas)) = _
    rgLinha.Row + ((UBound(arrInserirLinhas) - 1) * vLinhasBranco) & _
    ":" & (rgLinha.Row + ((UBound(arrInserirLinhas) - 1) * vLinhasBranco)) + vLinhasBranco - 1
    vLinhaArray = UBound(arrInserirLinhas) + 1
    ReDim Preserve arrInserirLinhas(1 To vLinhaArray)
    End If
    End If
    Next rgLinha
    'inserir Linhas

    For vLinhaArray = LBound(arrInserirLinhas) To UBound(arrInserirLinhas)
    If arrInserirLinhas(vLinhaArray) <> "" Then
    .Rows(arrInserirLinhas(vLinhaArray)).Insert Shift:=xlDown
    End If
    Next vLinhaArray

    End With
    End Sub

    'Silvia aqui esta a macro auxiliar para ajudar na realização do teste, como expliquei acima, tentei simplificar ao máximo a macro copiar e colar,
    'atendendo seu pedido. Espero que o exemplo os ajude, Fique com Deus, Boa Sorte. Expedito Marcondes.
    Sub copiar_teste()
    [dados].Copy [sba]
    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




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

    Excel planilha vba identificando primeira e ultima linha Excel planilha vba identificando primeira e ultima linha

    popular!
    Adicionado em: 09/01/2012
    Modificado em: 09/01/2012
    Tamanho: Vazio
    Downloads: 1245

    Escola Saberexcel VBA Estudos - Treinamento com Macros, Fórmulas e Funções

    Esse Planilha faz parte das planilhas treinamento:
    LOCALIZAR, IDENTIFICAR, DESLOCAR DADOS - PLANILHAS CELULAS LINHAS E COLUNAS

    o objetivo desse exemplo é localizar e identificar a primeira e ultima linha da coluna(G) identificar
    em seguida, selecionar a mesma área de linha na coluna[c]; e colorí-la em amarelo. Observe que ao executar o Macro, o código "Clearformats' retira a formatação das células, para facilitar a identificação do resultado teste com o macro. a medida que for expandindo a digitação na coluna(G), também irá afetar a coluna(C). (----->) - se colore o intervalo de células em amarelo, isso quer dizer, que voce pode, copiar, negritar, sublinhar, recortar, deletar, etc ..... espero que o exemplo possa lhe ser útil. Fique com Deus.

    (*) - não deixe de ver nosso trabalho:
    120 - Planilhas de Loops (Excelente planilhas exemplos com todas instruções loops)
    PLANILHAS - trabalhando com deslocamento de dados em Células, linhas e colunas.

    ' - - - - - - - - - - - - - - - - - - - - - - - - - -
    Const s = vbInformation
    Const b = "Escola Saberexcel VBA Estudos®"
    ' - - - - - - - - - - - - - - - - - - - - - - - - - -
    Sub selecionar_numero_linhas_correspondentes_colC()
    Dim x As Range
    [a].ClearFormats

    UL = Range("G650000").End(xlUp).Row '.Value 'definir a UL(UltimaLinha)
    PL = Range("G2").End(xlUp).Row '.Value 'definir a PL(Primeira Linha)

    MsgBox "UL(Ultima Linha): [ " & UL & " ] - PL(Primeira Linha) [ " & PL & " ]", s, b

    'Range("c" & UL & ":" & "c" & PL).Select 'seleciona também

    Set x = Range("c" & UL & ":" & "c" & PL) '.Select
    x.Select
    x.Interior.ColorIndex = 36
    [h1].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 Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




    Excel planilha vba deletar linhas vazias Excel planilha vba deletar linhas vazias

    popular!
    Adicionado em: 05/10/2011
    Modificado em: 09/01/2012
    Tamanho: Vazio
    Downloads: 1185

    Escola Saberexcel VBA Estudos e Treinamentos, Macros Fórmulas e Funções

    Esse macro do aplicativo Microsoft Excel VBA(Visual Basic Application), deleta todas as linhas vazias no intervalo de células usados na coluna(A).

    Sub deletar_linhas_em_branco()
    On Error GoTo err:
    Range(Range("A65000").End(xlUp), Range("A2")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    [C2].Value = "VAZIAS DELETADAS"
    Exit Sub

    err: MsgBox ("não existe linhas vazias na área usada"), vbInformation, "Saberexcel - o site das macros"
    [C2].Value = "VAZIAS INEXISTENTES" 'caso o usuario insista em deletar linhas vazias sem existir.
    End Sub

    Sub copiar_teste()
    [a].Copy [b] 'copiando área de células(a) para célula(renomeada como(b))
    [C2].Value = "deletar vazias"
    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


    Excel planilha vba deletar linhas vazias

    Excel planilha vba cores colorir linhas e colunas cel ativa Excel planilha vba cores colorir linhas e colunas cel ativa

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

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

    Esses procedimento e macros do Aplicativo Microsoft Excel VBA, com auxlio do Evento SelectionChange, colore as linha(s) e Coluna(s) da célula ativa,
    também inserí com finaldidade didática um loop contador que insere as cores e numeros correpondentes na planilha auxiliar.
    Espero que o exemplo lhes sejam útil. Fiquem com Deus. Expedito Marcondes

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static vCelulaAtiva As Range

    If Not vCelulaAtiva Is Nothing Then
    vCelulaAtiva.EntireRow.Interior.ColorIndex = xlColorIndexNone
    vCelulaAtiva.EntireColumn.Interior.ColorIndex = xlColorIndexNone
    Target.Value = ""
    End If
    Target.EntireRow.Interior.ColorIndex = 36
    Target.EntireRow.Font.ColorIndex = 10
    Target.EntireColumn.Interior.ColorIndex = 4
    Target.Value = "Saberexcel_VBA_Treinamentos®"

    Set vCelulaAtiva = Target
    End Sub

    Sub cores_numeros_vb()
    [A2].Select
    For i = 1 To 56
    ActiveCell.Interior.ColorIndex = i
    ActiveCell.Offset(0, 1).Value = i
    ActiveCell.Offset(1, 0).Select
    Next i
    [d1].Select
    End Sub

    Sub limpar_celulas_teste()
    Saber2.[A2:B100].Clear
    Saber1.Cells.ClearContents
    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





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

    Página 5 de 5

    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