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
