locked
Manipular - Macro RRS feed

  • Pergunta

  • Sub Consolidar()
    k = 2
    For Each Planilha In ThisWorkbook.Worksheets
    If Planilha.Name <> "Menu" Then
        For i = 3 To Planilha.Cells(Rows.Count, 2).End(xlUp).Row
        With Worksheets("Menu")
        .Cells(k, 1) = Planilha.Name
        .Hyperlinks.Add Anchor:=.Cells(k, 1), Address:="", SubAddress:=Planilha.Name & "!A1", TextToDisplay:=Planilha.Name
        .Cells(k, 2) = Planilha.Cells(i, 2)
        .Cells(k, 3) = Planilha.Cells(i, 3)
        .Cells(k, 4) = Planilha.Cells(i, 4)
        End With
        k = k + 1
        Next i
    End If
    Next Planilha
    End Sub

     

    Bom, gostaria de saber como faço, para utilizar essa macro, para que eu possa montar uma planilha conforme descrita abaixo:

     

     

    Obra Prioridade Valor da Obra R$
    Conteudo da Célula da plan1.... B6  plan1 -  E7 plan1 - F28
    Conteudo da Célula da plan2 ... B6  plan2 - E7

    plan2 - F28

     

    ou seja resumindo:

    Gostaria de listar de todas as planilhas do documento, o conteudo da célula B6, na planilha menu, a partir da celula c4, por exemplo.

     

    listar  de todas as planilhas do documento, o conteudo da célula E7, na planilha menu, a partir da celula d4

     

    terça-feira, 23 de setembro de 2008 21:05