Instale o código em um módulo comum, assim: 1. copie o código daqui 2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o edito...

... alguém tem uma macro para deletar as células que estiverem em branco e movimenta as demais para a direita até o fim da seleção? Tenho uma aqui qu...

Veja se ajuda. Me.TextBox1.Text = Format(Me.TextBox1.Text / 100, "#0.00%") para obter -----> digite 25,00% --...

Range("A" & firstrow & ":A" & lastrow).Select ou Range("A2:A" & lastrow).Select

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...