Instale este código no módulo da planilha de interesse. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If InStr(ActiveCell.Special...

Sub SalvarZipado() Cells(Rows.Count, 1).End(3)(2).Resize(, 6).Value = [A5:F5].Value: [A5:F5�...

Cabral, além das excelentes dicas do Patropi e do Edson, você pode digitar o sinal de igual em uma célula vazia e em seguida digitar "tam", ...

Ricardo, veja se entendi corretamente. Rode o código a partir da planilha "Registros". Há divergência entre o seu resultado esperado e o res...

Oi Osvaldo... Sim já tentei, mas também da erro. É estranho, deveria funcionar. Lembrando que o gráfico deve estar selecionado ao rodar aquele comand...

Experimentou substituir o ponto e vírgula pela vírgula? ... A1:B1;'Dados ... ... A1:B1,'Dados ...

Sub ArranjaDadosV2() Dim a As Long, k As Long, m As Long, x As Long, rng(), LR As Long, LC As Long LR = ActiveSheet.UsedRange.Find(what...

Experimente substituir estas linhas Dim Linha As Integer Linha = Sheets("LOGIN").Range("A" & Rows.Count).End(xl...

Experimente o código abaixo no seu segundo arquivo. O resultado será colocado a partir da quinta linha vazia abaixo da tabela existente. Sub CadaUsu...

Verdade. Vacilo meu substitua estas linhas Columns(1).Interior.ColorIndex = 4 Rows(1).Interior.ColorIndex = 4 por estas Range...

... eu gostaria que ao clicar em qualquer célula realçasse também as datas e os horários ... Na versão abaixo somente as células onde a FC estiver at...

Veja este simplificado. A diferença de funcionamento para o anterior é que o anterior mantinha pintada a seleção anterior ao selecionar uma célula das...

No post anterior sairam 2 códigos, o segundo está comentado, não use. O que vale é este abaixo. Private Sub Worksheet_SelectionChange(ByVal Target As...

Teste este: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim RngRow As Range Dim RngCol As Range Dim...

Veja se melhorou: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim RngRow As Range Dim RngCol As Range ...