Midori

Se anexar a planilha será mais fácil ajudar. Pode ser com dados fictícios,

Com Subtotal fica assim, =SUBTOTAL(9;INDIRETO(ENDEREÇO(MÍNIMO(LIN(B2:B14));COL(B:B))&":"&ENDEREÇO(LIN(B2:B14);COL(B:B))))

É válido sim.

@Alexandre José Costa As macros estão ativadas? Tentou rodar alguma para verificar isso? Pode ser um Msgbox. A macro vai pegar os dados da coluna E/ULT_Dados. Se não tiver nada lá o histórico vai ficar em branco. Estes são os resultados dos meus testes, Coloquei valores aleatórios para simular a atualização.

Talvez as macros ou os eventos estejam desativados. Tenta rodar manualmente. Selecione Calculate e digite F5.

Não tem similar. Mas se o teste for simples, sem a necessidade de abrir um bloco, dá para fazer na mesma linha, p.ex, If X = 5 Then If Y = 5 Then MsgBox "X = 5 e Y = 5" Assim só acontece o teste do Y se X = 5.

É só no teste do procedimento AtualizaDados. As linhas de EnableEvents não devem ser modificadas.

A atualização só acontece para True. Aqui essa coluna está Boolean. Talvez o seu Excel esteja interpretando como String e se for esse caso coloque True entre aspas lá no código.

Faça dois Ifs. Primeiro o teste dos Maps e depois o array, If (MapX >= 0 And MapX <= 9) And (MapY >= 0 And MapY <= 9) Then If LevelMap0(MapY, MapX) <> vbBlue Then End If End If

Não fiz o registro do horário porque isso ainda não ficou muito claro. A tabela pode ter mais de um True com históricos variados, nesse caso como o horário deve ser registrado? Sub Eventos() Application.EnableEvents = True End Sub Private Sub Worksheet_Calculate() Application.EnableEvents = False Call AtualizaDados(Range("E5:E13,E18:E26"), 10) Application.EnableEvents = True End Sub Sub AtualizaDados(Dados As Range, Colunas As Integer) Dim Ultimo As Range Dim Sequencia As Range Dim Conta As Integer For Each Ultimo In Dados If Ultimo(, 0).Value = True Then Set Sequencia = Ultimo(, 2).Resize(1, Colunas) Conta = WorksheetFunction.CountA(Sequencia) If Conta <> 0 Then Conta = IIf(Conta < Colunas, Conta, Conta - 1) Set Sequencia = Ultimo(, 2).Resize(1, Conta) Sequencia.Offset(0, 1).Value = Sequencia.Value End If Ultimo(, 2).Value = Ultimo.Value End If Next Ultimo End Sub

@Lucia Andrade A condição deve ser >= 0. Corrigi isso no código pouco depois (estava > 0).

Pode efetuar a busca com Find, https://learn.microsoft.com/en-us/office/vba/api/excel.range.find Faça isso no evento Change e passe Target.Value para a função.

@Lucia Andrade Por isso não consegue selecionar a planilha. Você criou a variável n do tipo Integer para receber o índice (valor numérico) e não o nome da planilha. Para o nome pode ser assim, Private Sub salvar_Click() If Me.CB_Cartao.ListIndex >= 0 Then Dim Aba As Worksheet Dim Lin As Long Set Aba = Sheets(Me.CB_Cartao.Text) Lin = Aba.Range("B" & Aba.Rows.Count).End(xlUp).Row + 1 Aba.Cells(Lin, 2) = Me.CAIXA_ID.Text Aba.Cells(Lin, 3) = Me.CB_Cliente.Text Aba.Cells(Lin, 4) = Me.TX_Data.Text Aba.Cells(Lin, 5) = Me.CB_Cartao.Text Aba.Cells(Lin, 6) = Me.TX_Compras.Text Aba.Cells(Lin, 7) = Me.TX_Valor_Parcelas.Text End If End Sub

@Lucia Andrade Vai funcionar da mesma forma se for um índice válido, seja de uma constante como nesse teste, de uma variável ou do ComboBox. Quais valores numéricos adicionou no CB_Cartao?

@Lucia Andrade O que não deu certo? A macro apresenta algum erro? Testei aqui e funcionou. Cole o código no módulo para fazer o mesmo teste. Os dados serão salvos na aba CARTÃO 3. Private Sub Teste() Dim lin As Integer, n As Integer 'If IsNumeric(CB_Cartao.Value) Then n = 5 'End If If n >= 1 And n <= Sheets.Count Then With Sheets(n) lin = .Range("B" & .Rows.Count).End(xlUp).Row + 1 .Cells(lin, 2) = "A" 'Me.CAIXA_ID.Text .Cells(lin, 3) = "B" 'Me.CB_Cliente.Text .Cells(lin, 4) = "C" 'Me.TX_Data.Text .Cells(lin, 5) = "D" 'Me.CB_Cartao.Text .Cells(lin, 6) = "E" 'Me.TX_Compras.Text .Cells(lin, 7) = "F" 'Me.TX_Valor_Parcelas.Text End With Else MsgBox "Índice inválido", vbExclamation End If End Sub

@Lucia Andrade Faltou passar o valor do índice. Entendi que ele vem de um combo, então é só fazer isto antes do If, If IsNumeric(CB_Cartao.Value) Then n = CB_Cartao.Value End If Na atribuição da linha seu range está "B32" e deve ser só "B".

@Lucia Andrade Atribuiu algum valor a variável n? Se sim, é um valor entre 1 e a quantidade de abas? Como ficou o seu código?

@Ewerton de Miranda Não precisa selecionar a tabela, veja se o loop assim resolve, For a = 1 To qtd_tabelas Call doc.Tables(a).AutoFitBehavior(wdAutoFitWindow) Next a

@Lucia Andrade Pode ser assim, If n >= 1 And n <= Sheets.Count Then With Sheets(n) lin = .Range("B" & .Rows.Count).End(xlUp).Row + 1 .Cells(lin, 2) = Me.CAIXA_ID.Text .Cells(lin, 3) = Me.CB_Cliente.Text .Cells(lin, 4) = Me.TX_Data.Text .Cells(lin, 5) = Me.CB_Cartao.Text .Cells(lin, 6) = Me.TX_Compras.Text .Cells(lin, 7) = Me.TX_Valor_Parcelas.Text End With Else MsgBox "Índice inválido", vbExclamation End If Obs: Veja que coloquei o ponto antes dos ranges, já que usou a instrução With.

Isso pode acontecer se tentar rodar Atualiza manualmente (com F5, p.ex). Esse procedimento só deve ser chamado por outro que nesse caso é o Calculate. Tenta resolver só o primeiro range e se der certo aplique para outro. O segundo parâmetro é a quantidade de colunas usadas para salvar os dados. Assim vai até a coluna 16380 e é quase a quantidade limite de colunas da atual versão do Excel. Se quiser guardar o histórico sem depender desse limite, é melhor fazer por linhas e não colunas.

O primeiro índice da planilha é 1. Aí a variável n só foi declarada e como não recebeu nenhum valor passar zero como argumento. Para evitar esse erro você pode testar antes se n é um índice válido.

Qual macro não existe? Copiou o procedimento Atualiza e colocou o Calculate na planilha?

Se a sua versão for a 365 poderá usar a fórmula ÚNICO e fazer assim, =MOD(CORRESP(A1;ÚNICO($A$1:$A$13);0);2) Dessa forma poderá usar a posição dos dados encontrados no array e aplicar a formatação nas posições ímpares.

Salvou o arquivo como xlsm? Caso necessário, as configurações de segurança ficam no excel em opções > central de confiabilidade.

Neste tópico teve uma questão parecida, https://www.clubedohardware.com.br/forums/topic/1606559-excel-copia-e-guarda-x-valores-entregues-pelo-rtd-real-time-data/ A mesma macro pode servir. No Calculate tenta editar o loop para o range dessa planilha.