Home Excel - Dicas Microsoft Excel VBA Excel VBA - Linhas e Colunas Excel planilhas vba linha insere cinco linhas intervalos

Excel planilhas vba linha insere cinco linhas intervalos

E-mail Imprimir PDF

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




  Baixe o exemplo de planilha contendo os macros acima
Excel planilha vba linha insere cinco linhas intervalos (33.42 KB)


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

Última atualização em Sáb, 13 de Agosto de 2011 19:19  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje848
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana30612
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês44341
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10467170
Aprenda MS Excel VBA

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