Pessoal, boa tarde!
O Loop que eu fiz abaixo está quase perfeito. O problema é que como insere linha na planilha o código não chega no final das linhas.
E eu não sei resolver. Já tentei colocar UltimaLinha = UltimaLinha + 1, mas o loop continua parando antes.
Como resolvo isso.
A variável UltimaLinha tem que mudar, pois as linhas aumentarão.
For M = 2 To UltimaLinha
If Range("B" & M) <> Range("B" & M - 1) Then
Rows(M & ":" & M).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("E" & M) = Range("B" & M)
Range("F" & M) = Range("B" & M)
Range("G" & M) = "UN"
Range("H" & M) = "1"
Range("I" & M) = "1"
Range("J" & M) = "1"
Else
End If
Next
Postado : 21/06/2018 11:41 am