Lógico que o código que eu coloquei faz isso, pode até olhar Lógico que NÃO FAZ. Mas se você imagina que faz, então deixa pra lá! Seu código está dan...

Seu código não está dando certo, pois quando excluo linhas, tipo 3 e 4 ele faz isso 1,2,5,6 Amigo, esse assunto de excluir linhas e refazer a sequênc...

Seu código não está dando certo, pois quando excluo linhas, tipo 3 e 4 ele faz isso 1,2,5,6 Não enetendi

Só faltou copiar as bordas vertical da A1:E1 que não inseriu Acrescente a segunda linha abaixo. ... ... Cells(UltL + ...

Experimente Sub CopiaFórmulas() Dim LR As Long, k As Long LR = Cells(Rows.Count, 2).End(xlUp).Row For k = 5 To LR Step 2 Rows(3...

Experimente. Sub InserirLinhaV2() Dim UltL As Long UltL = Cells(Rows.Count, 2).End(xlUp).Row If UltL > 10 Then Rows(UltL ...

Carlos, se ainda houver interesse, seguem duas alternativas. Solução com fórmulas - não consegui uma fórmula que funcionasse para quantidades variávei...

Olá, Rodrigo. Veja se ajuda. Acrescente as duas linhas sugeridas abaixo. ... ... For Each C In Selection If Not C....

Olá, Maciel. Experimente. Sub SubstituiCifrão61() ActiveCell.Resize(, 15).Replace "$61", ActiveCell.Offset(1, 15).Val...

Veja esta versão. Desfiz a mesclagem de células em 'C3'.

@ JoseA Fala, Mestre. Grato pela recepção. O Adalberto (Patropi) me deu um toque sobre este fórum. Só tem MVPs aqui, incluindo você! Ótimo para aprend...

se quiser ordenar as datas na coluna 'I' ative a penúltima linha do código removendo o apóstrofo inicial Sub ListaDatas() Dim LRa As Long, LRi As ...