Marcos Pensador

Obrigada pela ajuda osvaldomp! Já consegui

Boa tarde! Tenho uma planilha com várias folhas. Numa dessas folhas tenho uma lista de referencias. O que pretendo fazer, é uma macro que vá localize as referencias dessa lista, uma a uma, em todas as outras folhas, e depois copie determinados dados abaixo dessa. É possível isso?

Já consegui com que fizesse o que queria! No entanto, as referencias que tenho de procurar são 800 no meio de 15000... Eu tenho uma lista das 800 numa outra planilha.. Com este código a seguir ele localiza a referencia (tenho de a escrever, uma de cada vez), copia os dados e cola numa planilha que tenho de criar antes (AABB).. Dá para de alguma forma alterar o código e ele passar a ir buscar as 800 referências à outra planilha da lista, criar uma nova e colar depois tudo do mesmo jeito? Sub Localizar() Pesquisa = InputBox("Pesquisar", "Pesquisar Valores") If Pesquisa = "" Then Exit Sub For Each plan In Worksheets Set x = plan.Cells.Find(what:=Pesquisa) If Not x Is Nothing Then firstAddress = x.Address Do plan.Select x.Select MsgBox "Texto encontrado na célula " & x.Address & Chr(10) & "Planilha: " & plan.Name & _ Chr(10) & "Texto: " & x.Text ActiveCell.Offset(1, -1).Select Dim Cell As Range, Keyword$, N%, SearchAgain As VbMsgBoxResult Dim ass As Variant Dim Cellev As Range, prakash$, P%, SearchAgaina As VbMsgBoxResult Dim asa As Variant StartSearch: N = 1 Keyword = "Data" If Keyword = Empty Then GoTo StartSearch For Each Cell In Range(ActiveCell, ActiveCell.End(xlDown)) If Cell Like "*" & Keyword & "*" Then ass = Cell.Address P = 1 prakash = "Stock" If prakash = Empty Then GoTo StartSearch For Each Cellev In Range(ActiveCell, ActiveCell.End(xlDown)) If Cellev Like "*" & prakash & "*" Then asa = Cellev.Address Range(asa, ass).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Sheets("AABB").Select Range("A1").Select Do If ActiveCell <> "" Then ActiveCell.Offset(1, 0).Select End If Loop Until ActiveCell = "" ActiveCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Worksheets("Folha1").Select P = P + 1 End If Next Cellev N = N + 1 End If Next Set x = plan.Cells.FindNext(x) Loop While Not x Is Nothing And x.Address <> firstAddress Else MsgBox "Texto não encontrado na planilha " & plan.Name End If Next End Sub

Eu tenho 12 planilhas com dados de várias referencias, como os que aparecem no primeiro print.. De cada uma das planilhas quero selecionar as linhas completas apenas das datas e colocar numa nova planilha, tudo sequencial, como está no print 2

Boa tarde! Estou tentando copiar dados de determinada referencia, que aparecem no meio de inumeras outras referencias em 12 diferentes planilhas, para uma nova planilha. No entanto quero apenas algumas linhas abaixo dessa referencia. Por exemplo na plan1 (print1), para o produto 5678, quero copiar apenas as linhas que têm a data, ou seja, as linhas 19, 20 e 21, e colá-las numa nova planilha. Depois, a mesma macro localiza a mesma referencia na plan2, e copia as respetivas linhas de data (que podem ser mais ou menos de 3), e cola na planilha anterior por baixo do que colou antes... No final, preciso obter algo como está aqui no print 2. Espero que me possam ajudar, obrigado desde já!

Boa noite! Tenho 12 planilhas de excel com dados agrupados em tabelas segundo aproximadamente 15000 referências. Pretendo criar uma macro que selecione 800 referências especificas distribuidas entre estas 15000 (em todas as 12 planilhas), e colocá-las em 800 diferentes planilhas. Por vezes, determinada referencia não aparece nas 12 planilhas, mas só em algumas delas. Por exemplo, no primeiro print, as referencias selecionadas a vermelho e a azul (pertencentes às 800 específicas) têm de ficar em diferentes planilhas, mas apenas com os dados selecionados a verde a amarelo, respetivamente. No final, por exemplo para a referencia 7764, ficam os dados de todas as 12 planilhas seguidos, como no segundo print que tirei.

Boa tarde Tenho uma planilha que tem inumeras linhas, das quais quero agrupar algumas após uma determinada frase (Totais). Resumindo, preciso que as 3 linhas que estão no quadrado preto da imagem fiquem numa só sempre que aparecem, mas esse "mesmo quadrado" aparece inumeras vezes ao longo da planilha