critério para deletar - planilhas nas posições (índice) ímpar ---> 1, 3, 5, ..., 97, ..., 365, ... funciona se as guias estiverem ordenadas --->...

Olá, Doni. Sugestão - para facilitar a obtenção de ajuda disponibilize uma amostra de cada Pasta de Trabalho, com algumas linhas com dados, com o res...

.Cells(indice, 16) = IIf(Opt_Q01_Sim.Value = True, "SIM", IIf(Opt_Q01_Nao.Value = True, "NÃO", ""))

Experimente o código abaixo, considerei que os controles estão em um Form. Private Sub CommandButton1_Click() Dim TC As Control For Each TC In Me&...

Testaí: Private Sub Worksheet_Change(ByVal Target As Range) Dim k As Long If Target.Count > 1 Then Exit Sub If Target.Column > 1...

...as células da coluna B vão ser bloqueadas para edição,... Esta é uma nova demanda! quando eu apagar os valores (der delete para limpar a célula A)...

Utilize o segundo código que passei.

Substitua esta linha If Application.Intersect(Target, Range("G8:J5000")) Is Nothing Then por esta If Application.Inters...

Abaixo o seu código corrigido. Private Sub Worksheet_Change(ByVal Target As Range) Dim PL1 As Worksheet, PL2 As Worksheet, cont As Long, x As Long ...

Paulo, veja se o arquivo anexo te ajuda. Instalei uma cópia do código que sugeri acima no Módulo1. Se rodar a macro hoje, 6/set, a planilha "6&...

... se OFF deixa vazio para eu digitar manualmente E o que você vai digitar ? Se o conteúdo que você vai digitar é sempre igual você pode inclui-lo n...

Olá. Experimentou as funções TRUNC E INT ? Exs: =TRUNC(A1) =INT(A1)

Pq quando troco o nome na plan2 na celula A2 não funciona ? Sempre chama o formulaLocal da Empresa B Isso ocorre porque as fórmulas que você elaborou...

Mas colega, tudo bem, mas eu quero q o botão vá para a planilha q esteja correspondente ao dia do mês. ( hoje é dia 5, ele vai para a planilha 5, aman...

Experimentem o evento Worksheet_Calculate no lugar do evento Worksheet_Change