E ae pessoal sou novo aqui
Pesquisei antes e como não consegui fazer gostaria da ajuda de vocês
Bom meu problema é o seguinte:
Eu trabalho num depósito de uma empresa, sou responsável pelos equipamentos de informatica
Toda vez que chega algum equipamento eu tenho que planilhá-lo e etiqueta-lo
o problema que estou tendo é na hora de separar cada marca numa pasta de trabalho diferente
por exemplo digamos que chegaram 5 equipamentos 1 ACER, 1 ASUS, 2 DELL's e 1 HP
para agilizar planilho todos em uma unica planilha mas depois tenho o trabalho de copiar e colar cada um em sua devida planilha
Abro a pasta de trabalho ACER, copio a linha com a descrição, código, data e numero da nf sempre na primeira linha em branco disponível.
Depois faço isso para as outras marcas.
O que eu quero é fazer um botão onde o Excel trate a coluna C como variavel e de acordo com o fabricante descrito em cada linha da coluna faça uma cópia da linha e cole na respectiva pasta de trabalho desse fabricante.
Eu até consegui fazer alguma coisa mas travei, o código só percorre a primeira linha e mesmo assim só consegui fazer com que vá para outra planilha da mesma pasta de trabalho
Segue:
Sub Organizar()Dim i As IntergerDim k As Intergerk = 2i = 2While Sheets("info").Cells(i, 1).Value <> "" If Sheets("info").Cells(i, 3).Value = "ACER" Then 'Coluna C é a coluna das Fabricantes Sheets("info").Range("A" & i & ":K" & i).Copy Sheets("ACER").Cells(k, 1) Sheets("info").Rows(i).ClearContents Else i = i + 1 End IfWendEnd Sub
Ele só verifica até achar o primeiro caso com o nome ACER, copia para a planilha ACER e para, se tiver mais casos ele não faz
Da uma ajudae pessoal. De preferência gostaria de copiar e colar na pasta de trabalho correspondente, mas se for muito complexo tudo bem, indo pra planilha correspondente ja ta de bom tamanho.
Gosto muito de programação mas sou fraquinho ainda, me recomendem um livro
valeu