O Objetivo desta macro, é eliminar o espaço da Direita ... Aqui o arquivo abriu sem espaço à direita dos valores. Porém os valores estão inseridos c...

Com base nas suas explicações e no arquivo que você disponibilizou eu não consigo te ajudar pois continuo sem entender qual é o problema. Deixo para a...

1. consigo ver somente a planilha "Modelo", não vejo a planilha "Revisão" que você citou. 2. no seu arquivo há 2 códigos: Workboo...

Sugestão - disponibilize uma amostra do seu arquivo Excel e explique o que significa "eu aplico algumas senhas".

Experimente: substitua esta linha c.Select por esta .Rows(c.Row).EntireRow.Delete

E na sua primeira questão: substitua esta linha Set c = .Find(TextBox1.Value, LookIn:=xlValues) por esta Set c = .Find(TextBox1&#...

... parece funcionar. Mas tenho de ver bem se fica correto com todos os funcionários. E ...

Veja se ajuda. Sub InsereLinhas() Sheets("Plan2").Rows("5:" & 5 - 1 + Sheets("Plan1").[D10 ...

Veja se ajuda. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column <> 3 Then ...

Experimente: Sub somarMesV2() With Cells(Rows.Count, 1).End(3)(2) .Offset(, 5).Value = "TOTAL" .Offset(, 6)...

No código WB_Open foi colocado o comando Application.EnableEvents = False e não foi tornado para True ao final do código. Se necessária a existência ...

substitua Private Sub Workbook_Close(Cancel As Boolean) por Private Sub Workbook_BeforeClose(Cancel As Boolean)

O erro que houve no terceiro nome foi justamente devido a essa linha v = y + k - 14, honestamente não sei como esse 4 foi parar aí. Remova o 4, deve f...

Experimente: Sub ExcluiLinhasAmarelas() Dim k As Long Application.ScreenUpdating = False For k = Cells(Rows.Count, 1).End(3)...

Ricardo, obrigado pelo retorno. Só pra confirmar, no arquivo que anexei antes, há 2 planilhas com a FC aplicada, sendo uma com Intervalo Nomeado e a ...