Planilha Excel

Cara, blz?

Da para automatizar esse processo com a linguagem VBA do Excel…

Posta o passo a passo ai para entendermos o processo.

Abç!

Bom,
tenho uma planilha com as seguintes colunas:

SKU’s Digitados | Código Não Encontrado no Catalogo do Fabricante | Sem Cross Reference | Sem Código Original | Sem Aplicação | Meta de Retorno | Retorno de SKU’s Digitados | Aplicação Não Encontrada | Categoria Não Encontrada | Total SKU’s Incluidos

elas preenchem esses dados no fim do dia,
dai preciso que quando elas digitam na planilha , onde elas fazem as correções/digitacoes que os dados sejam automaticamente atualizados na planilha de controle .

Você quer fazer um aplicativo que una elas ou unir de qualquer forma?

Bom tem algumas dicas de como unir, segue:

Imagine que eu e você somos os digitadores,
Estamos Digitando nome e RG de clientes por exemplo

Voce tem os seguintes nomes e RGs para digitar numa planilha:

Felipe Oliveira 000000001
Andre Silva 323320999

e eu tenho tambem dois nomes diferentes ,
quero que ao digitar o nome da pessoa,
Automaticamente apareça na minha planilha de controle,
se nao havia nenhum escrito , quero que quando terminar de digitar o nome , atualize la de 0 para 1
assim por diante,

Tanto faz o jeito, só preciso juntar mesmo…

Vou olhar os links que enviou.

Cara, você pode montar uma macro que pega todas as planilhas e consolida no seu controle.

Ve se te ajuda

Sub qualquer_nome()

   'seleciona o conteudo da sheet A e a celula B3
    
    Sheets("A").Select
    Cells(3, 2).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    
   'Copia o conteudo da sheet
    
    Application.CutCopyMode = False
    Selection.Copy
    
  'Seleciona a sheet B e a celula B2
    
   ActiveSheet.Next.Select
   Cells(2, 2).Select
   
   'Pula uma linha
   
   ActiveCell.Offset(1, 0).Select
   
   'Se a celula estiver vazia então cola o conteudo
   
   If ActiveCell = "" Then
         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
   Else
   
   'Senão pula para a ultima linha preenchida e cola o conteudo
   
         Selection.End(xlDown).Select
         ActiveCell.Offset(1, 0).Select
         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
         
   'Finaliza o If
   End If
   
End Sub

tente achar algo na documentação

http://www.andykhan.com/jexcelapi/tutorial.html

Abs

Pacato

Vou ver sim, Obrigado.

por nada… veja meu Tópicos criado, pois estou trabalhando em um sistema que faz upload de planilhas excel, grava em bd, mostra resultado na tela (JSP), faz consulta no BD, com valores de planilhas carregads…

tem muita coisa que abri de tópcio… abs

Pacato
Vou ver com certeza