Sub Limpar6()
application.screenupdating= false
Range("K4,K5,K6,K7,K8,K9,K10,K11,K12,K13,K15,K17,K18,I27:I30").ClearContents
Plan26.Select
Range("D7:D15").ClearContents
Plan22.Select
application.screenupdating= true
End Sub
ou
Sub Limpar6()
Plan22.Range("K4,K5,K6,K7,K8,K9,K10,K11,K12,K13,K15,K17,K18,I27:I30").ClearContents
Plan26.Range("D7:D15").ClearContents
End Sub
Postado : 22/04/2018 6:22 pm