Private Sub CommandButton1_Click() Dim cod As Range, codAdd As String, m As Long, p As String, c As Long, pr As Range, r As Long r = Cells(Rows...

Na imagem anexa, contém mais dados para entendimento dos colegas. A imagem é inútil, disponibilize uma amostra do seu arquivo Excel com o código inst...

Selecione qualquer célula da linha onde deseja inserir a nova linha e rode o código abaixo. Sub InsereLinhaColaFórmulas() Rows(ActiveCell.Row)&...

Esta questão está sendo tratada em outro fórum conforme link abaixo. Marcos, você tem o péssimo hábito de espalhar as suas questões por vários fóruns...

Precisa ser via macro? =SOMARPRODUTO((MÊS(Plan2!A5:A26)=1)*Plan2!C5:C26)

Amigo, você poderia disponibilizar uma amostra do seu arquivo?

"#,##0.000"

Experimente: ... ... Application.Wait Now + TimeSerial(0, 0, Sheets("Menu").[G6]) Loop &#...

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