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