Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
VBA copiar valores ...
 
Notifications
Clear all

VBA copiar valores de planilha com critérios para célula

 
2024 - VBA & Macros
Post Recente por debd 5 anos atrás
7 Posts
2 Usuários
0 Reactions
2,263 Visualizações
RSS
 debd
(@debd)
Posts: 4
New Member
Topic starter
 

Boa Tarde pessoal

Sou nova aqui e preciso de ajuda
Tenho uma planilha com algumas abas, entradas e volume real
Na aba de entradas tenho colunas com datas (todos os dias do ano) e linhas com códigos de produtos.
Na aba de volume real tenho uma planilha a ser preenchida com volume de frascos
Preciso copiar o valor do volume para as célula na aba de entradas que seja da mesma data e mesmo código colocados na aba de volume.
Estou com dificuldade de selecionar a célula correta que atenda aos dois critérios para copiar
EX:

If Sheets("volumereal").Range("F8:I8") = Sheets("Entradas").Range("3:3") And Sheets("volumereal").Range("F5:I5") = Sheets("Entradas").Range("A:A") Then

Sheets("Plan1").Select
    Range("G20").Select
    Selection.Copy
    Sheets("Entradas").Select
Range("????????????").select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("UI10").Select

Agradeço desde já a ajuda

 
Postado : 16/10/2019 8:09 am
 srobles
(@srobles)
Posts: 231
Estimable Member
 

debd,

Se puder disponibilizar seu modelo em sites como SendSpace, GoogleDrive e postar o link aqui usando a ferramenta "[url]" para análise, poderemos te auxiliar melhor e com mais rapidez do que tentar adivinhar como funciona sua pasta de trabalho e como os dados estão dispostos na mesma.

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 16/10/2019 8:53 am
 debd
(@debd)
Posts: 4
New Member
Topic starter
 

Segue Modelo de planilha https://www.sendspace.com/file/316pke

 
Postado : 18/10/2019 8:39 am
 srobles
(@srobles)
Posts: 231
Estimable Member
 

debd,

Analisando o modelo disponibilizado, encontrei inconsistências, pois os dados inseridos na guia Plan1 divergem dos campos constantes na guia Entradas.

Na guia Entradas temos os campos Codigo, Em Branco(creio que seja a descrição) e campos que se repetem : Procedencia e Data. Porém, na guia Plan1 temos campos como Densidade, Data Fabricação, Data Envase, Massa frasco, uma lista com Frascos e suas respectivas Massas... Fiquem confuso. :?:

Quais informações serão inseridas na guia Entradas?

Desculpe por não entender qual sua demanda.

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 18/10/2019 12:17 pm
 debd
(@debd)
Posts: 4
New Member
Topic starter
 

Na verdade na combinação correta de data e código seria inserido o valor do volume final.
Na plan1 a pessoa digita a data e o código além de outros dados que não iriam pra planilha entrada e sim pra outra que vou criar.
Ex: Na data 02/10/2019 (coluna UK) e cod 500 ( linha 30) o volume seria de 500 Litros esse 500 teria que aparecer na célula(UK30)

 
Postado : 18/10/2019 7:14 pm
 srobles
(@srobles)
Posts: 231
Estimable Member
 

debd,

Veja se as alterações feitas no modelo, atendem sua demanda, ou, se pelo menos me aproximei.

Para lançar os demais dados na outra guia ( á que você criar posteriormente ), basta usar as referências á lista de dados criada na rotina, exemplo:

Link : https://www.sendspace.com/file/29t7uq

Na nova guia você irá lançar X dados (X será um dos indices) :

NomeDaGuia.Range(Celula) = dadosProduto(X) ' onde X será o respectivo indice da informação que deseja.

Estude a rotina que valida os dados ao digitar o código do produto, pois ao digitar o código será criada esta lista. Os indices estão comentados á frente de item da lista

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 19/10/2019 12:05 pm
 debd
(@debd)
Posts: 4
New Member
Topic starter
 

Muito mas muito obrigada mesmo, a macro ficou excelente e era exatamente isto que precisava.
:D :D :D
Você é um Salva-vidas, quem dera eu tivesse um pedaço do seu conhecimento

Obrigada novamente pela ajuda

Atenciosamente,
Debd

 
Postado : 20/10/2019 8:53 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico