A grosso modo: Por alguma razão, os a "resposta" aos eventos foi desabilitada. Evento é uma ação que vc tem no Excel (clicar em algum luga...

Vc pode usar esta linha: If Intersect(ActiveCell, Range("H5:I7")) Is Nothing Then Exit Sub Coloque o novo intevalo com o comando OR, ficari...

Nesse caso, pode ser uma possibilidade tentar o seguinte: Deixe no teu projeto uma planilha em branco oculta com o xlsheetveryhidden. Em vez de cria...

Bem, não sei se tem como fazer isso, vamos ver se alguém sabe. Aliás, creio eu que dá pra rodar aquele código mesmo com o código protegido. Uma suge...

1. Copie as informações das colunas D e E para o fim das colunas A e B; 2. Apague as colunas D e E; 3. Copie as informações da coluna A para a colun...

Veja agora: Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(ActiveCell, Range("H5:I7")) Is N...

Estranho, pra mim funcionou: =MÍNIMO(D2:H2) Se apareceu um erro #NOME? é porque o nome da função está errado (pode ter sido a falta do acento no í). ...

Experimente esta: =MÁXIMO(D2:H2)

Eu não lembro da tua planilha, mas, se é só pra ocultar, não dá pra usar um filtro?

Pode ser assim: Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(ActiveCell, Range("H5:I7")) ...

Eu não entendi: se a Plan2, vai ser igual à Plan1, (e todas as outras vão ser exatamente iguais), pra que vc precisa ter tantas cópias assim da mesma ...

Creio que o Marciel se referia a uma planilha modelo. Não parece difícil fazer o que vc quer, dá pra ser com fórmulas (e acho que fórmulas simples), ...

então acho que daria pra adaptar algo tipo: For x = 4 To lrow z = Application.WorksheetFunction.Ceiling(x, 11) + 3 'INSERIDO GT 'Ve...

Não entendi muito bem, mas pela tua descrição, seria algo +/- assim: Sub experimente_GT() Dim i As Long Dim UL As Long 'ú...

Peguei o bonde andando, e na verdade, não avaliei todo o código comparado com o que foi discutido no tópico, mas, Reinaldo, sobre esse item 2, não dar...