Reginaldo Mendes Sousa

Ajuda com um loop Ola pessoal eu estou com uma Planilha de controle de peças que eu montei aqui, e estou precisando de uma ajuda com um codigo Eu quero que planilha funcione da seguinte maneira Eu tenho uma Planilha de dados que contem a quantidade de peça que eu devo produzir na nas quatro semanas do mes( cada semana em uma coluna) Quando eu der entrada, eu quero que essa entre em uma outra coluna (1ª semana movimentação), pois essa coluna vai comparar com a de dados e se tiver > que a quantidade de peças, Passar para proxima coluna e assim por diante eu fiz o codigo, a comparação é feita, mais ele inseri o valor nas quatro semanas. E eu preciso que a semana seguinte comece com zero esse é o codigo que eu fiz... Sub Entradas() Dim Entrada As Integer Dim EntAnterior As Integer Dim Total As Integer Dim Linha As Integer Dim QuantTotal As Integer Dim Col As Integer Dim Cols As Integer Col = 2 Cols = 8 For Col = 2 To 5 QuantTotal = Dados.Cells(DadosLInha, Col).Value Entrada = Dados.Cells(DadosLInha, Cols).Value Do While Entrada < QuantTotal Entrada = TelaInicial.Range("ENT").Value EntAnterior = Dados.Cells(DadosLInha, Cols).Value Total = Entrada + EntAnterior TelaInicial.Cells(5, Col).Value = Total Dados.Cells(DadosLInha, Cols).Value = Total Exit Do Loop Cols = Cols + 1 Next Col End Sub