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

Sub oculta() Dim i As Long, RowCnt As Long ActiveSheet.Calculate 'Calcula somente as fórmulas da planilha ativa For i = 1 To 40 With Shee...

Então , o que eu quero é que se Coluna B do vazio no na célula de entrada, a vai cadastrar data atual na plan dados, e na J e I o mês e ano da colun...

O seu problema é nas colunas 'B' e 'J' ou nas colunas 'J' e 'I' ? No seu código, se "DataEsp" estiver vazio, então as duas primeiras linhas...

Experimente: Sub COPIA_TELA() On Error Resume Next ActiveSheet.Shapes("semdados").Delete If Range("D1") < 9 The...

Resultado a partir de 'M1'. Sub TransporDados() Dim n As Range, k As Long, m As Long For Each n In Range("A3:A" & Cells(Rows�...

Experimente: Sub ReplicaDados() Sheets("prevenda").Range("A2:L" & Cells(Rows.Count, 1).End(3).Row)&...

Experimente: Sub ReplicaDados() Dim c As Range For Each c In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row) C...

... porém, não está funcionando (ou só funciona "de vez em quando")... ...mas o que nestas abas estão causando este problema? Alguma fórmula...