Igor de Araujo

Sub procurarValor() 'este código é utilizado para achar um valor em uma tabela de fluxo de caixa e jogá-lo para outra planilha onde os gastos estão separados por dia(colunas) e por categoria(linhas) 'estou tendo problema com a utlização do DO UNTIL LOOP dentro de outro LOOP, ajuda por favor!!! 'variáveis Dim ultimaLinha As Long Dim dia As Long Dim colunaProcura As Long Dim linhaProcura As Long Dim colunaDiaAchada As Long Dim linhaCategoriaAchada As Long Dim x As Long Dim categoria As String colunaProcura = 1 linhaProcura = 1 x = 0 'achar o dia na planilha Fluxo Planilha4.Select Range("TabelaFluxo[[#Headers],[Saldo]]").Select Selection.End(xlDown).Select ultimaLinha = ActiveCell.Row Do Until ultimaLinha = 10 ultimaLinha = ultimaLinha - x 'dia está na coluna P(16) dia = Planilha4.Cells(ultimaLinha, 16).Value 'achar a coluna que contém o dia na planilha Resultados Mês 'a linha de dias nessa planilha é a 6 Do Until Planilha5.Cells(6, colunaProcura).Value = dia colunaProcura = colunaProcura + 1 Loop 'coluna do dia foi achada colunaDiaAchada = colunaProcura 'achar categoria na tabela Fluxo 'categoria está na coluna I(9) categoria = Planilha4.Cells(ultimaLinha, 9).Value 'achar a linha que contém a categoria na planilha Resultados Mês 'a coluna de categorias nessa planilha é a 1 Do Until Planilha5.Cells(linhaProcura, 1).Value = categoria linhaProcura = linhaProcura + 1 Loop linhaCategoriaAchada = linhaProcura 'linha categoria foi achada 'colocar o valor na determinada célula 'valor está na coluna L(12) da planilha Fluxo Planilha5.Cells(linhaCategoriaAchada, colunaDiaAchada).Value = Planilha4.Cells(ultimaLinha, 12).Value x = x + 1 Loop ' End Sub