Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Macro de importação

Ponto de encontro entre aqueles que precisam e fornecem soluções baseadas no Microsoft Excel e VBA. Precisa de uma solucão em VBA? É um consultor ou programador independente? Esse é o lugar!
dtedesco
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Set 18, 2012 12:45 pm

Macro de importação

Mensagem por dtedesco »

Bom dia pessoal

estou precisando criar uma macro para importação de dados da seguinte forma de uma planilha para outra, mas atendendo alguns critérios.

Plan 1 Plan 2

NF Data Entrega CT-e NF Data Entrega Ct-e
234 24/09/12 532 266
233 24/09/12 532 267
266 24/09/12 532
289 24/09/12 532
297 24/09/12 532

Eu preciso que importe da Plan1 para a Plan2 somente o que foi igual no campo NF, ou seja, a macro vai ter q olhar a NF na plan 2 e importar os dados Data Entrega e CT-e da Plan 1.

Preciso da ajuda de voces.
Muito obriagdo!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
kedim43
Colaborador
Colaborador
Mensagens: 45
Registrado em: Dom Fev 05, 2012 3:12 pm
Localização: Goias
Contato:

Re: Macro de importação

Mensagem por kedim43 »

Blz.

Olha só.
No seu caso, seria meio complicado de Fazer Esta Macro.
Pois, você teria que dizer o que ela vai buscar e as condições de busca.

Uma saida rapida pra isso é desenvolver uma busca onde se entra com a nota fiscal e as mesma, busca os dados nas planilhas que você deseja.

Já com Macro, deve - se lembrar que os caminhos terão que ser traçados por você.
A busca deve ser definida pelo usuário.
Usando auto - filtros
Usando os ajustes e demais itens.

Qualquer outro fato, me envie a Planilha Modelo que vejo o que se pode Desenvolver neste contexto.

Form de Busca ou Macro.

Valeu.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Macro de importação

Mensagem por Mikel Silveira Fraga »

Boa noite dtedesco e Kendim43.

Se entendi bem, essas informações que vc esta gerando tem a origem de um arquivo.txt? Se sim, a estrutura do arquivo deve ser preenchida e, desta forma, até a importação deste arquivo.txt pode ser automatizada.

Independente da forma, um exemplo ajudaria mto na análise da solução deste problema.

Abraços.


dtedesco
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Set 18, 2012 12:45 pm

Re: Macro de importação

Mensagem por dtedesco »

Boa tarde,

Em primeiro lugar queria agradecer a pronta resposta.

Segue em anexo o exemplo.

Vou tentar mais uma vez explicar o que necessito, re-lendo a postagem novamente, percebi que não ficou muito claro minha necessidade.

Bom, eu tenho duas planilhas distintas. A primeira eu extraio do meu sistema uma serie de informações que preciso alimentar na segunda-planilha.

Atualmente faço isso manual, olho o número da NF na planilha do cliente e consulto na planilha extraida do meu sistema, localizando, eu dou um CTRC+C nas informações (03 campos), e depois um CTRC+V na planilha do cliente.

Gostaria de automatizar essa operação, pois nesta última sexta-feira, recebi três planilhas do meu cliente, a menor tinha 655linhas e a maior tinha 1051linhas, perdi muito tempo fazendo as consultas.

Muito obrigado pela ajuda.

Dtedesco
Anexos
exemplo.rar
(6.13 KiB) Baixado 416 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


rdmartins
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qua Dez 05, 2012 12:14 am

Re: Macro de importação

Mensagem por rdmartins »

boa noite amigo, você já conseguiu sua resposta?

Caso não, te digo que é muito fácil fazer isso.

começe implementando na planilha base os codigos dentro de uma macros (Modulo)

Dim xlw As Excel.Workbook
Dim xl As New Excel.Application

depois os seguintes codigos

Private Sub ComboBox1_Change()
TextBox1.Enabled = False
Set xlw = xl.Workbooks.Open(TextBox1)
End Sub

Private Sub CommandButton1_Click()

TextBox1 = Application.GetOpenFilename("XLS Arquivos (*.xlsx), *.xlsx")

If TextBox1 <> "" Then
ComboBox1.Clear
Set xlw = xl.Workbooks.Open(TextBox1.Text)

For contador = 0 To xlw.Sheets.count - 1
ComboBox1.AddItem xlw.Sheets(contador + 1).Name
Next contador

ComboBox1.Enabled = True
xlw.Close False
End If

Set xlw = Nothing
Set xl = Nothing

End Sub

e pra finalizar precisarei das suas duas planilhas pra mostar o algoritmo de busca

pode ser dados genericos
Anexos
barraOpe.zip
muitos algoritmos e layouts
(358.86 KiB) Baixado 415 vezes


dtedesco
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Set 18, 2012 12:45 pm

Re: Macro de importação

Mensagem por dtedesco »

Bom dia RdMartins

Rapaz eu ainda não consegui fazer rodar a macro.

Agradeço muito sua ajuda.

Mas se possível, gostaria de um esclarecimento.

Segundo o código que vc mandou, tenho que gravar três macros?correto.

E depois salvo as planilhas em em abas separadas?

Me desculpe pela perturbação, muito obrigado


Avatar do usuário
PRMPOKER
Consultor
Consultor
Mensagens: 206
Registrado em: Ter Dez 04, 2012 8:57 am

Re: Macro de importação

Mensagem por PRMPOKER »

Boa tarde amigo...
Precisando de ajuda?
Olha meu tópico:
viewtopic.php?f=21&t=2375#.UNHmhuTAde8

Espero poder te ajudar.

Um abração.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder