Detalhes de vba copia conteudo colb para colc

PropriedadeValor
Nome:vba copia conteudo colb para colc
Descricao:

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 Aplicativo Microsoft Excel VBA - Saberexcel



Nome do arquivo:vba copia conteudo colb para colc.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:SaberExcel
Criado em: 20/11/2010 18:57
Visitas:Todos
Responsavel:Editor
Acessos:898 Acessos
Atualizado em: 20/11/2010 18:58
Site: