Página 1 de 1

Macro de importação

Enviado: Ter Set 18, 2012 1:18 pm
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!!

Re: Macro de importação

Enviado: Ter Set 18, 2012 9:02 pm
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.

Re: Macro de importação

Enviado: Ter Set 18, 2012 10:26 pm
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.

Re: Macro de importação

Enviado: Qua Set 19, 2012 4:26 pm
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

Re: Macro de importação

Enviado: Qua Dez 05, 2012 12:26 am
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

Re: Macro de importação

Enviado: Ter Dez 18, 2012 8:17 am
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

Re: Macro de importação

Enviado: Qua Dez 19, 2012 1:08 pm
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.