|
 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
Publicidade
Compre com segurança, garantia e ótimos preços
 |