| Descricao: |
 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
 |