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...
Pergunta
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
Link para o comentário
Compartilhar em outros sites
7 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.