Excel planilhas vba selecionar e copiar linhas e colunas

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

Esse macro do Aplicativo Microsoft Excel VBA, seleciona linhas e colunas pre-determinadas pelas variáveis em um macro. Também copiará os dados selecionados para Plan2, e G29, --- apenas para lhes para aprendermos como fazer uma forma simples - copiar e colar.

Sub selecionar_celulas()
'seleciona 6 seis linhas
'seleciona colunas até a 15ª Coluna + 4
'começa a selecionar a partir da coluna( 4+ 2) = (4 + i)
'variável (i) determinará a posição de linhas e colunas (+)
k = 1
i = 2

With Sheets("Selecionando_dados_variaveis")
.Range(.Cells(6, 4 + i), .Cells(k, 15 + i)).Select
End With

End Sub

Sub copiar_se_selecao_for_maior_uma_celula()
Dim Resposta As String

If Selection.Count = 1 Then 'caso contiver somente uma célula selecionada, poderia ser outra quantidade.
    MsgBox ("nao há seleção para ser copiada"), vbInformation, "Saberexcel - execute o macro"
     selecionar_celulas
     Resposta = MsgBox("Deseja copiar a seleção para planilha [Plan2 e G17]", vbYesNo + vbInformation, "Saberexcel")

    If Resposta = 6 Then ' 6 é igual a vbyes
       Selection.Copy Saber2.[A1]
       Selection.Copy [G29]
       MsgBox ("Seleção copiada para Planilha 'Auxiliar'e Célula[G29]"), vbInformation, "Saberexcel - site das macros"
    Else
     [C1].Select
    End If

Else
'copia os dados se caso já o macro 'Selecionar_Celulas' for acionado primeiramente na folha de planilha.
Selection.Copy Saber2.[A1]
Selection.Copy [G29] 'será copiado também os dados para mesma folha de planilha para célula G29
MsgBox ("Seleção copiada para Planilha 'Auxiliar'e Célula[G29]"), vbInformation, "Saberexcel - site das macros"
End If
End Sub

Sub limpar_teste()
Saber2.Cells.ClearContents
'esta linha abaixo vai limpar da célula G29 abaixo,
'Esses estudos de deslocar linhas e colunhas estão em nosso Modulo COMO FAZER - Programação MS Excel (Offset-Desloc)
Range("G29", [G29].End(xlDown).End(xlToRight)).ClearContents 'limpa dados G29 em diante, poderia ser select ou outra programação qualquer
MsgBox ("Os dados da folha de planilha 'Plan2' e G9 em diante foram deletada"), vbInformation, "Saberexcel - site das Macros"
End Sub

Sub ir_plan2()
Saber2.Select 'observe que sempre seleciono a folha de planiha pelo nome da folha de código,
                   'se o usuário mudar o nome da folha de planilha não ocorrerá erro.
End Sub

Sub voltar()
Saber1.Select
End Sub

Esse macro(código) é para auxiliar no teste, e também com finalidade didática, para mostrar o shapes(autoforma) contendo macro, ou se desejar
poderá mostrar diretamente a o Módulo VBE(Visual Basic Editor)
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:="selecionar_celulas"
Else
    Saber1.Shapes("sb").Visible = True
End If

End Sub

esse macro é para ocultar o shapes(autoforma)
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
Excel planilhas vba selecionar e copiar linhas e colunas (76.92 KB)

Publicidade
Compre com segurança, garantia e ótimos preços

Tags: