Experimente o código abaixo no lugar do seu. Funciona no intervalo 'A2:W17'. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Me.Pr...

Obviamente não se deve tornar público dados confidenciais. Leia de novo a minha sugestão - UMA AMOSTRA DO SEU ARQUIVO. Amostra é diferente do arquivo ...

sugestão - disponibilize uma amostra do seu arquivo Excel com o código instalado

Este comando cont = Range("AU1").Value atribui à variável "cont" o conteúdo da célula "AU1" da planilha ativa no momento...

Experimente: substitua esta linha Selection.AutoFilter por esta ActiveSheet.AutoFilterMode = False obs. se você quiser colar valores som...

Coloque os números na linha 1, começando por 'A1'. O código irá colocar as fórmulas na linha 2, a partir de 'A2'. Sub Macro1() Dim coluna As Long, ...

Experimente: Sub ExcluiLinhas() Dim k As Long For k = Cells(Rows.Count, 1).End(3).Row To 2 Step -1 If Cells(k, 1) = "exclui...

Experimente: Sub COPIA_TELA() Dim wsPlan As Worksheet For Each wsPlan In Worksheets(Array("Mensal", "Mensal2")) On Error Re...

Fala, Fernando. Pois é, cara, mentes brilhantes como a de vocês tendem a conceber soluções igualmente brilhantes, tecnicamente evoluídas. Já os limit...

Agora surgiu uma nova demanda em cima desta, seria ter duas planilhas similares, e que esse comando copiasse a mesma tela para essas duas planilhas ao...

Sub InsereTextoEmCélulasVazias() Range("C2:C" & Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlBlanks) = &quo...

Letra do drive na célula ActiveWorkbook.SaveAs Filename:=Sheets("Plan3").[A5] & ":MinhaPastaNomeArq&...

Porém, ela não está funcionando para intervalos do tipo quadras 2 a 4, excluindo a quadra 3. Ao fazer isso, ela mostra os dados das quadras 1 e 5 tamb...

Gravei a macro abaixo e acrescentei as células com os critérios. Testei com B2 = 1, D2 = 5, B3 = 2 e D3 = 4, o filtro exibe as quadras 1, 3 e 5. ...

Considerei que a segunda ficha estará a partir da linha 23. Sub ImprimirV2() Dim r As Long, k As Long, ws2 As Worksheet Set ws2 = Sheets("Pont...