Tópicos: 19
/
Respostas: 184
RE: Não limpa as fórmulas das células
Private Sub Worksheet_Change(ByVal Target As Range)Application.ScreenUpdating = False'On Error Resume NextDim i As LongDim Cota As IntegerDim Platafor...
4 anos atrás
RE: Não limpa as fórmulas das células
Private Sub Worksheet_Change(ByVal Target As Range)Application.ScreenUpdating = False'On Error Resume NextDim i As LongDim Cota As IntegerDim Platafor...
4 anos atrás
RE: Exclusão de linha com condição.
@dunguinha
Sub apagarlinha()If ActiveCell.Column = 1 ThenPlan1.Range("A" & ActiveCell.Row).EntireRow.DeleteEnd IfEnd SubSub deslocarlinh...
4 anos atrás
Super Globals
Options and Features