Home Excel - Dicas Microsoft Excel VBA Excel VBA - Copiar Excel planilha vba copia conteudo colb para colc

Excel planilha vba copia conteudo colb para colc

E-mail Imprimir PDF

Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, copia os dados da coluna(A) para a Coluna(C), observe que macro copia os dados o números de vezes que foi atribuido na célula representando a quantidade

Sub copia_para_coluna_C()

Dim vLinha As Integer
Dim vQtd As Integer
Dim vProduto As String
Dim vColunaPosicao As Integer
Dim j As Integer
Dim vInicio As Integer
Dim vFinal As Integer

'Pesquisa de valores em coluna B que começa em linha 2
vLinha = 2

'copia valores para coluna C começando na linha 2
vColunaPosicao = 2

'Pesquise em valores na coluna B até que uma célula em branco seja encontrada
While Len(Range("B" & CStr(vLinha)).Value) > 0

'Recupere o nome de produto e a quantidade
vQtd = Range("A" & CStr(vLinha)).Value
vProduto = Range("B" & CStr(vLinha)).Value

' posicionando o fim para cópia a coluna C
vInicio = vColunaPosicao
vFinal = vColunaPosicao + vQtd

'O copia o número de dados que é dado que é representado pela quantidade
For j = vInicio To vFinal - 1
Range("C" & CStr(j)).Value = vProduto
Next

'atualiza a posição na coluna C
vColunaPosicao = vFinal

vLinha = vLinha + 1

Wend

MsgBox "Copiou os dados para a coluna C.", vbInformation, "www.saberexcel.com"
End Sub

Sub limpar()
Range("C2:C1000").ClearContents
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 da macro acima
 vba copia conteudo colb para colc (17.22 kB)

Última atualização em Qua, 10 de Agosto de 2011 08:24  

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_counterHoje53
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana29817
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês43546
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10466375
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