Boa tarde!!

É sempre bom mostrar a postagem cruzada..

http://profwillianexcel.forumeiros.com/ ... ina-em-vba

Em outros foruns isso é regra.
Att

anexa, parte da planilha, fica mais facil pra obter resposta, abrç

Obrigado williwam, para a proxima vou estar mais atento. Eu julgo que anexei a folha de calculo e o respetivo pdf, certo? Fico a aguardar as vossas sugestões e entretanto vou fazendo isto de uma forma pouco eficaz...

Obrigado a todos.

Noel

Boa tarde!!

Foi vc que me mandou um email, se foi veja
http://www.sendspace.com/file/31k0sb

Att

Boas, pessoal da barra!!!

Quero agradecer-lhe imenso a sua ajuda na resolução deste meu problema. Era mesmo isto que eu estava a precisar.

Posso perguntar (ou melhor, pedir) mais uma coisa? Tem como inserir um código VBA que permita fazer a pesquisa imediatamente a seguir ao valor digitado? Isto é, eu digito o valor (por ex: 1235) e depois de clicar em enter o código vai fazer a busca automática sem ter que clicar no botão que voçê atribuíu?

1001 Obrigados por tudo...

Continuem com o vosso bom trabalho e partilha de conhecimentos e de informação...

Carlos Noel

Boa tarde!!

Veja se vai dar certo!!!

Sub AutPROCV_AleVBA()
    Dim lr As Long
    With Sheets("NOVA.B.D")
        lr = .Cells(.Rows.Count, "B").End(xlUp).Row 
        With .Range("C2:H" & lr)
            .Formula = "=IF($B2<>"""",VLOOKUP($B2,BASE.DADOS.ANTIGA!$A$2:$G$16980,COLUMN()-1,0),"""")"
            .Value = .Value
        End With
    End With
End Sub

Bom dia Alexandre.

Obrigado pela sua disponibilidade e prontidão em ajudar-me.

Não consegui fazer com que este código. Copiei e colei num novo modulo, mas não funcionou. O que é que estou a fazer de errado?

Grato por tudo...

Noel

Bom dia!!

Baie e veja se é isso, faça todos os teste possíveis.
http://www.sendspace.com/file/dcgp7i

Att

Boa noite Alexandre...

Estive a testar a folha de cálculo e até ao momento está a funcionar muito bem. Era mesmo isto que eu pretendia.

Amanhã vou estar todo o dia a inserir dados e depois digo mais alguma coisa.

Mais uma vez obrigado por tudo, e muito sinceramente não sei como posso agradecer.

Cumprimentos,

Noel

Boa noite!!

Eu fico grato pelo retorno, assim que finalizar os teste, lembre se de marcar sua postagem como Resolvido, obrigado!!

Att

Boa noite, ilustres gurus do excel (+VBA)

Se não for muito inconveniente, gostaria que me ajudassem, caso seja possível, numa possivel rotina que copie para uma nova folha determinado intervalo (registos) definido pelo usuário.

Imagino algo neste género: um botão que ao ser clicado faria o seguinte: 1º pergunta ao utilizador qual o intervalo de registo a copiar (o utilizador digita por exemplo o registo 8 até ao 16), a macro procura e selecciona as células (linhas) que contenham o registo [8;9;10;11;12:13;14;15;16], copia e cola numa nova folha, de forma a que eu possa definir a localização das peças catalogadas, nas respetivas caixas.

Observem por favor a folha "CAIXA 1" este é o layout final pretendido.

http://www.4shared.com/rar/DIp_KDsQ/PRO ... _Cpia.html

Alexandre um muito obrigado pela sua macro elaborada anteriormente, está a funcionar perfeitamente e já inseri cerca de 7000 registos.

Um grande louvor para voçês todos que fazem parte deste forum e que ajudam os que tem menos conhecimentos...

Boa noite!!

Eu me lembro de ter postado algo muito próximo do que precisa, use a pesquisa do fórum!!

Att

Bom dia Alexandre,

estive a pesquisar no forum e não consegui encontrar o que eu pretendo.

Será que me consegue orientar?

Um muito obrigado...

Bom dia!!

Cara eu não sei se vi é o suficiente...

Sub Copiar_InputBox()
'Na cixa de entrada deve ser posto o destino onde o mesmo
'deve ser do mesmo tamanho que o de origem, caso contrário haverá erro
Dim IB As String
IB = Application.InputBox("Entre com a célula ou intervalo de destino", "Copiar Células")
Selection.Copy Destination:=Range(IB)
End Sub

Att