Guru do Excel e Power BI

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim i As Integer
Dim colConsolidado As Integer
Dim lConsolidado As Long
Dim lPlanAtual As Long
Dim achou As Boolean
Dim w As Workbook

Workbooks.Open “C:\Users\Dados\Downloads\NotasTrimestrais.xlsx”

Set w = ActiveWorkbook
'percorrer todas as planilhas do arquivo de NT
For i = 1 To w.Sheets.Count
'se não for a planilha Consolidado
If Sheets(i).Name <> “Consolidado” Then
'percorre as colunas de 2 a 20da planilha Consolidado
For colConsolidado = 2 To 20
'verifica se o nome da planilha atual é o mesmo que está na primeira
'linha da planilha Consolidado (Plan1, Plan2, Plan3… Plan20)
If ThisWorkbook.Sheets(“Consolidado”).Cells(1, colConsolidado).Value = Sheets(i).Name Then
'a partir da linha 2 da planilha Consolidado
lConsolidado = 2
'percorrer a coluna A da planilha Consolidado
'Até encontrar uma linha em branco
While ThisWorkbook.Sheets(“Consolidado”).Range(“A” & lConsolidado).Value <> “”
'a partir da linha 2 da planilha atual
lPlanAtual = 2
'ainda não encontrou a COMBINAÇÃO
achou = False
'percorre a coluna A da planilha atual
'Até encontrar uma linha em branco
While Sheets(i).Range(“A” & lPlanAtual).Value <> “”
'compara as COMBINAÇÕES da planilha atual com as matrículas da planilha Consolidado
'se as COMBINAÇÕES forem iguais
If Sheets(i).Range(“A” & lPlanAtual).Value = ThisWorkbook.Sheets(“Consolidado”).Range(“A” & lConsolidado).Value Then
'encontrou a COMBINAÇÃO
achou = True
'escreve na planilha Consolidado o valor que está na planilha atual “B” ThisWorkbook.Sheets(“Consolidado”).Cells(lConsolidado, colConsolidado).Value = Sheets(i).Range(“B” & lPlanAtual).Value
End
If
'passa para a próxima linha da planilha atual
lPlanAtual = lPlanAtual + 1 Wend
'passa para a próxima linha da planilha Consolidado
lConsolidado = lConsolidado + 1 Wend End If
'passa para a próxima coluna da planilha Consolidado (2 a 20)
Next colConsolidado End If
'passa para a próxima planilha deste arquivo
Next i
w.Save
w.Close
Application.ScreenUpdating = True
End
Sub

Existe a possibilidade de existir a mesma sequência em diferentes ficheiros com índices diferentes?

Cells(i, "R").Value = Filename