Kokoloko
Mensagens : 3 Data de inscrição : 29/11/2012 Idade : 47 Localização : VNG - Portugal
| Assunto: Macro para Qui Nov 29, 2012 7:10 pm | |
| Boa tarde, Necessito de ajuda para criar uma macro que efectue um procv na coluna A e caso a coluna C seja igual a um texto coloque o que está na coluna B na respectiva coluna da folha2:
Folha1 (O nome é sempre o mesmo para o mesmo "bloco" de perifericos. O nome tambem nunca está por ordem e o ficheiro pode ter umas 3000 linhas) Nome Número serie Tipo de Sistema 003 10000xxx MB 003 41-yyyyy MONITOR 003 41-zzzzz IMPRESORA 003 MB000000 SCANNER 003 41-AVAVA CPU 003 20220202 LEITOR
Resultado pretendido na folha2: Nome MB MONITOR IMPRESSORA SCANNER CPU LEITOR 003 10000xxx 41-yyyyy 41-zzzzz MB000000 41-AVAVA 2020202 | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Macro para Qui Nov 29, 2012 8:12 pm | |
| Boa tarde!! Poste seu arquivo. - Código:
-
Sub teste()
Dim MyLookup As Range Set MyLookup = Worksheets("Folha1").Range("a1:b100") ActiveCell.Value = WorksheetFunction.VLookup(ActiveCell.Offset(0, -3).Value, MyLookup, 2, False) End Sub
| |
|
Kokoloko
Mensagens : 3 Data de inscrição : 29/11/2012 Idade : 47 Localização : VNG - Portugal
| Assunto: ? Qui Nov 29, 2012 10:01 pm | |
| Como é que posso anexar um ficheiro neste forum ??? | |
|
Kokoloko
Mensagens : 3 Data de inscrição : 29/11/2012 Idade : 47 Localização : VNG - Portugal
| Assunto: sendspace Qui Nov 29, 2012 10:32 pm | |
| | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Macro para Seg Dez 03, 2012 2:09 pm | |
| Bom dia!!
Mande o link por inteiro!! | |
|