Ir ao conteúdo
  • Cadastre-se

Marcos Pensador

Membro Júnior
 Perfil  Explorar Conteúdo

  • Posts

    7

  • Cadastrado em

  • Última visita

 Tipo de conteúdo 

posts postados por Marcos Pensador

    Copiar dados de várias tabelas usando macro

    em Microsoft Office e similares

    Postado

    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

    Copiar dados de várias tabelas usando macro

    em Microsoft Office e similares

    Postado

    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á!

     

    post-730443-0-58564200-1405961119_thumb.

    post-730443-0-07719500-1405961122_thumb.

    Macro para seleção de dados

    em Microsoft Office e similares

    Postado

    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.

    post-730443-0-35599100-1405904812_thumb.

    post-730443-0-59921400-1405904814_thumb.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Mais

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!