Adicionado em: | 20/11/2010 |
Modificado em: | 20/11/2010 |
Tamanho: | Vazio |
Downloads: | 649 |
Saberexcel - o site das macros
Esses procedimentos do Aplicativo Microsoft Excel VBA, copia os dados da linha selecionada para a coluna(A1), selecionado o e listando os dados desejados. Isso com auxlio de uma entrada de dados (Inputbox)
Observe que usei a propriedade OffSet para deslocar uma linha abaixo para colar os dados.
É muito importante aprender sobre esta propriedade para um bom aprendizado em VBA, temos excelentes exemplos nos módulos COMO FAZER - Programação MS Excel VBA - Saberexcel.
Private Sub Worksheet_Activate()
Application.EditDirectlyInCell = False
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim vCelula As Long
Dim vEndereco As String
vCelula = ActiveCell.Row
vEndereco = Cells(vCelula, 3)
vEndereco = vEndereco & ", " & Cells(vCelula, 4)
vEndereco = vEndereco & ", " & Cells(vCelula, 5)
vEndereco = vEndereco & ", " & Cells(vCelula, 6)
vEndereco = vEndereco & ", " & Cells(vCelula, 7)
vEndereco = InputBox("Selecione a linha desejada!", Cells(vCelula, 4) & " - " & Cells(vCelula, 5) & "- [ Saberexcel ] ", vEndereco)
[A65000].End(xlUp).Offset(1, 0).Select 'deslocando para primeira célula em branco
ActiveCell.Value = vEndereco
End Sub
Aprenda tudo sobre o aplicativo Microsoft Excel VBA com Saberexcel
Adicionado em: | 20/11/2010 |
Modificado em: | 20/11/2010 |
Tamanho: | Vazio |
Downloads: | 1214 |
Saberexcel - site das macros
Essas macros do Aplicativo Microsoft Excel VBA, copiam dados de uma determinada coluna para outra, para células pre-determinadas.
Observem que um assunto também muito importante é aprender a depurar uma macro, vejam a diferença em um código gravado e um código devidamente depurado para tal finalidade. Em outro tutorial pretendo apresentar uma matéria de como inserir um subtotal em grupo de números em uma lista de grupo de numero muito intensa.
Baixe o exemplo de planilha no final da página. Fiquem com Deus, Boa Sorte.
E_Marcondes.
'linha de código depurada
Sub depurando_codigo_gravado()
Plan2.[K1:K23000].Copy Plan1.[C1]
End Sub
'aqui a mesma macro que foi gravada, com algumas linhas de códigos que poderiam muito bem
'serem suprimidas, chamamos isso de depuração de código.
Sub macro_gravada()
Sheets("Plan2").Select
Range("K1:K23000").Select
Selection.Copy
Sheets("Plan1").Select
Range("C1").Select
ActiveSheet.Paste
Range("E1").Select
End Sub
Sub deletar_teste()
[C1:C23000].ClearContents
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
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