Experimente substituir as aspas em vermelho. substitua estas ... “Atualiza_TD” por estas ..."Atualiza_TD"

Experimente: Sub GeraArquivos() Dim v As Long, LR As Long, c As String, wb As Workbook Dim cab As Variant, ws As Worksheet, n As Long Application...

... não estava funcionando porque eu estava usando o botão para selecionar todas as células de uma vez, Que botão é esse quando fiz a seleção...

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