SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

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