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

Experimente: Sub TransferirValores() Workbooks.Open ("C:UsersUserDesktopDados.xlsx") Cells(Rows.Count,...

Gostaria que a formatação das colunas A e B, e a linha 1, fossem manual (sem a interferência desse código)!! substitua estas linhas Set RngRow = Ran...

1.consigo gerar as parcelas 2.consigo lança-las em cada planilha 3.MEU PROBLEMA: a última parcela está repetindo após o fim. No seu projeto há um cód...

Segue uma sugestão: Ao clicar com o direito na célula bloqueada que se deseja editar, o código sugerido abaixo exibirá uma "ImputBox" pedind...

No arquivo definitivo o preenchimento do intervalo é feito com validação com lista, isso pode interferir no funcionamento do código? O código deveria ...

Desculpe, Luiz, passei batido em relação à senha Veja se melhora com a alteração abaixo. substitua esta linha ActiveSheet.Protect UserInte...