Home Excel - Dicas Microsoft Excel VBA Excel VBA - Linhas e Colunas Excel planilhas vba selecionar e copiar linhas e colunas

Excel planilhas vba selecionar e copiar linhas e colunas

E-mail Imprimir PDF

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
Eletrônicos - Submarino.com.br

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

Comentários  

 
# Victor Hirano 25/04/2013 11:13
Muito boa as dicas que você dá, parabéns!
Estou entrando agora nesse mundo e ainda tenho muitas dificuldades, você poderia me dar uma dica em algo que necessito?
Obrigado

Prezado Hirano,
Obrigado pelo seu contato, (bondade sua)
pode enviar seu email, com sua dúvida,
email...: contato@saberex cel.com.br
Fique com Deus,
Expedito Marcondes
Responder | Responder com citação | Citação
 

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_counterHoje4
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana29768
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês43497
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10466326
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