Deus o abençoe, obrigado Fábio.

Obrigado por me acompanhar.

Muito obrigado.

Obrigado por me acompanhar.

Obrigado por avisar, faltou subir o arquivo.

Quer fazer isso no vba ou com fórmula?

@@MarcosRieper No VBA Mestre. Estou carregando os dados da Plan1 no Treeview. Os dados são do intervalo ("A2:D80"). Assim, carrega os dados Arr = Plan1 ("A2:D80") Tenho outros dados que passam da coluna ("D80") . Como capturar os dados da Planilha sem ter q digitar?

@@klebersonmoreira1821 Exemplo do chatgpt: Sub CarregarDadosParaTreeView() Dim ws As Worksheet Dim treeView As Object Dim rng As Range Dim cell As Range Dim nodeParent As Object Dim nodeChild As Object ' Definindo a planilha onde os dados estão localizados Set ws = ThisWorkbook.Sheets("Planilha1") ' Substitua "Planilha1" pelo nome da sua planilha ' Definindo o controle TreeView Set treeView = Sheet1.TreeView1 ' Substitua "Sheet1" pelo nome da sua planilha que contém o controle TreeView ' Definindo o intervalo de dados Set rng = ws.Range("A2:D80") ' Limpar todos os nós existentes antes de carregar novos dados treeView.Nodes.Clear ' Loop através de cada linha no intervalo de dados For Each cell In rng.Rows ' Adicionar um nó pai para cada linha Set nodeParent = treeView.Nodes.Add(, , , cell.Cells(1, 1).Value) ' Loop através de cada célula na linha para adicionar nós filhos For Each cellChild In cell.Cells ' Adicionar nós filhos para cada célula na linha Set nodeChild = treeView.Nodes.Add(nodeParent.Index, tvwChild, , cellChild.Value) Next cellChild Next cell ' Expandir todos os nós treeView.Nodes(1).Expanded = True ' Expandir o primeiro nó pai MsgBox "Dados carregados com sucesso para o TreeView!", vbInformation End Sub Basicamente use o for each.

@@MarcosRieper Obrigado Professor 🤝