Copiar Dados De Outra Planilha

[bEbEr]

Galera..

seguinte.. na planilha PRODUTOS tenho os seguintes dados:

Referência Tipo

5000 BANCO

5001 MOTO

5002 BANCO

5003 CARRO

5004 CARRO

5005 BICICLETA

e na planilha VAZIO tenho os seguintes dados:

NUM C_DAT RE QNT VAL EMRRESA TIPO

02000001 9/4/2005 5000 3,0000 10,00 x BANCO

02000001 9/4/2005 5000 3,0000 20,00 x BANCO

02000001 9/4/2005 5001 3,0000 30,00 x

02000001 9/4/2005 5006 3,0000 40,00 x

02000002 9/4/2005 5000 3,0000 50,00 x

e tenho um botão com a seguinte ação:

Private Sub CommandButton1_Click()

i = 2

e = 2

While Worksheets("vazio").Range("A" & i).Value <> ""

If Worksheets("vazio").Range("C" & i).Value = Worksheets("produtos").Range("A" & e).Value Then

Worksheets("vazio").Range("G" & i).Value = Worksheets("produtos").Range("B" & e).Value

Worksheets("vazio").Range("H" & i).Value = Worksheets("produtos").Range("C" & e).Value

Worksheets("vazio").Range("I" & i).Value = Worksheets("produtos").Range("D" & e).Value

Worksheets("vazio").Range("J" & i).Value = Worksheets("produtos").Range("E" & e).Value

Worksheets("vazio").Range("K" & i).Value = Worksheets("produtos").Range("F" & e).Value

Worksheets("vazio").Range("L" & i).Value = Worksheets("produtos").Range("G" & e).Value

Worksheets("vazio").Range("M" & i).Value = Worksheets("produtos").Range("H" & e).Value

i = i + 1

e = 2

Else

e = e + 1

End If

Wend

End Sub

ele faz o seguinte.. quando você clica nele.. ele procura na planilha produtos o tipo da referencia selecionada na vazio pra jogar naquela planilha.. ate ai td certo.. so que quando ele encontra uma referencia que não tem no produtos ele para pelo caminho.. e eu gostaria que ele adicionasse aquela referencia em produtos com o tipo DIVERSOS...

flwww

[RenatoMejias]

ele faz o seguinte.. quando você clica nele.. ele procura na planilha produtos o tipo da referencia selecionada na vazio pra jogar naquela planilha.. ate ai td certo.. so que quando ele encontra uma referencia que não tem no produtos ele para pelo caminho.. e eu gostaria que ele adicionasse aquela referencia em produtos com o tipo DIVERSOS...

Mas se as REFERÊNCIAS estão em PRODUTOS, como ele não encontraria uma REFERENCIA?

Obs: Poderia me enviar essa planilha por e-mail? Facilitaria para poder te ajudar.

[bEbEr]

te adicionei no MSN

ou se não.. coloquei o arquivo no meu site

www.carnadim.com.br/controle.xls

falou

Editado Março 2, 2007 por bEbEr

[RenatoMejias]

O link que você enviou dá erro. Envie no meu e-mail, prefiro que as dúvidas sejam tiradas aqui no fórum, porque se for resolvido por MSN outras pessoas não desfrutarão da solução do problema.

[bEbEr]

conseguiu pra mim renato!?

valeu

[RenatoMejias]

conseguiu pra mim renato!?

valeu

Opa, ano de TCC é dureza, ainda não mexi em sua planilha, explique melhor seu problema, aqui tem excelentes programadores que também podem lhe ajudar. Vou tentar mexer com sua planilha no sábado.

[Guest beberl]

alguém pode me ajuda?!

:S:S

[marblesmusic]

Vou tentar te ajudar...

Vamos pensar numa macro assim...

sub iserir_dados

sheets("dados").select

r = activecell.row

range("A" & r).select

activecell.value = conta

range("B" & r).select

activecell.value = banco

range("C" & r).select

activecell.value = veículo

range("D & r).select

activecell.value = preço

with range("A" & r).select

sheets("vazio").select

range("A3").select

Do

if isempty(activecell) = False Then

activecell.offset (1, 0 ).select

End If

Loop until isempty(activecell) = True

range("A3").select

activecell.formulaR1C1 = conta

activecell.offset(0, 1).select

activecell.formulaR1C1 = preço

activecell.offset(0, 2).select

activecell.formulaR1C1 = veículo

activecell.offset(0, 3).select

activecell.formulaR1C1 = banco

End With

Crie um botão na planilha dados com a macro, quando você selecionar uma célula válida na coluna "A"(sem se importar com qual célula, desde que tenha valores), os dados desta linha são direcionados para a planilha desejada.

Você também pode mudar as ranges da linha inicial apartir dos offsets, direcionado o segundo valor por exemplo para

activecell.offset(4, 6).select. O valor inicial está em A3, mas o segundo vai para D9. Com o loop ativo, se A3 estive cheia, ele assume A4 e o segundo valor D10.