Sub NaoEntendiSuaDuvida()
Range("E2:F2").Select
Selection.AutoFill Destination:=Range("E2:F" & Range("D65536").End(xlUp).Row)
Range("E3:F" & Range("D65536").End(xlUp).Row).Select
Selection.Copy
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("E3").Select
End Sub
Utilizei esta macro acima, porem fiz um incremento para limpar o resultado das linhas que estão sem informação.
Segue um exemplo.
Os dados anteriores iam até da linha a8 até c20, porém quando eu atualizava a macro preenchia de d8 até g20. Eliminei os dados da linha a15 até c20.
Qual comando devo acrescentar nesta macro preencher da d8 até g14.
Postado : 10/03/2013 8:59 pm