Comunidade DATAB

Olá, @Maiquel .

Uma possibilidade é com a utilização da função INDIRETO().

Exemplos:
no lugar de =G6-H6 utilize =INDIRETO("G6")-INDIRETO("H6")
no lugar de =E4*5 utilize =INDIRETO("E4")*5

Salve, @Saulo . O erro foi meu, peço desculpas, pois na sua primeira mensagem já está claro: "... exibir a data/hora na célula "L10", Somente Para as Planilhas (Plan 1, Plan 2 e Plan3) ...". Possivelmente o que me induziu ao erro foi que, no arquivo anexado, você destacou L10 em ...

Quero aplicar a formtação condicional em toda coluna ... Aplicar FC na coluna inteira não é recomendável pois poderá provocar lentidão ou travamento ao abrir o arquivo e também no recálculo da planilha. Só se justificaria se você realmente fosse utilizar todas as células da coluna. Eu sugiro que vo...

Selecione o intervalo que deseja pintar | Formatação Condicional | Nova Regra | Usar uma fórmula

=E($I2<>"";$J2<>"";$J2>=$I2) ~~~> amarelo

=E($I2<>"";$J2<>"";$J2<$I2) ~~~> roxo ( )

Olá, @Saulo .

Instale uma cópia do código abaixo no módulo de EstaPastaDeTrabalho

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 [L10] = Now
End Sub

Os comandos GoTo Acabou ... Acabou: e Else: GoTo Acabou ... Acabou: são desnecessários, pois a instrução If ...Then ... Else é mais esperta e inteligente do que você supõe.

Exclua esses comandos que citei, execute os seus códigos no modo Depurar (via F8) e observe.

Olá, Álvaro. If ActiveSheet. Range("A12:G12").Value = "" Then Utilizada na forma acima, a Propriedade Value só pode se referir a uma única célula, e não a um intervalo com múltiplas células, por isso retorna erro. Para verificar o preenchimento de um intervalo há opções como as f...

Insira uma linha na planilha e nomeie-a como MinhaLinha em seguida instale uma cópia do código abaixo no módulo da mesma planilha. Altere o valor em A1 para alterar o comprimento da linha. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub Me.Shap...

Experimente:

If Application.CountA(Range("A12:G12")) <> 0 Then Range("A12:G" & Cells(Rows.Count, 1).End(3).Row).Value = ""

Olá, @AndreaCamila . Veja se o código abaixo pode ser um início para o que você procura. Sub ReplicaDados() Dim Lin As Long, Col As Long With Sheets("XLM") Col = .Range("1:1").Find("DATA").Column 'identifica a coluna com o texto DATA na linha 1 Lin = .Cells(Rows.Count, ...

Agora irei estudar o código e vê onde eu coloco a msgbox ao analisar tudo e vê que nenhum bate com a data de hoje Segue uma ideia em vermelho abaixo. Dim proc_mat As String, proc_ass As String, v As Long If Application.CountIf(Sheets("Dashboard (6)").[I:I], Date) = 0 Then MsgBox "NEN...

... pois não está pulando linha a linha em "proc_ass" Fiz a correção da minha falha. No código abaixo acrescentei a variável "v" para incrementar a linha pesquisada. Sub revisão_atualV2() Dim LINHA As Long, assunto As Long, k As Long, nome2 As String Dim proc_mat As String, proc...

leowp escreveu: ... qual a posição que devo inserir o AllowFiltering:True, ?
Duas boas fontes que poderão lhe ajudar em algumas das suas futuras dúvidas: o recurso Gravar Macro do Excel e o Sábio Google.

Olá, @leowp .

Para proteger o Projeto VBA:
abra o editor de VBA (Alt+F11) | menu Ferramentas | Propriedades de VBAProject | Proteção

Experimente: =SE(INT(G2)-INT(B2)<2;G2-B2;1-MOD(B2;1)+MOD(G2;1)+DIATRABALHOTOTAL(B2;G2;'Base de marcações'!A$2:A$8)-2) Formate as células como Número | Personalizado | [h]:mm ou [h]:mm:ss Resultados encontrados em horas: [h]:mm ##### [h]:mm:ss 16:07 ##### 16:07:07 15:01 ##### 15:01:46 25:52 ##### 25:...

Você poderia disponibilizar uma amostra do seu arquivo Excel com o seu código original instalado ?

Veja abaixo da minha assinatura como anexar arquivos aqui no fórum.

Wevin7 escreveu: Colocar o meu código inteiro no campo que mencionou? Seria o código começando a partir de IF até END IF?
Yes, Sir. E também as declarações das variáveis.
A propósito, você não declarou proc_mat, mas declarou proc_data que não é utilizada. LINHA pode ser excluída.

Olá, @Wevin7 . Experimente: Dim k As Long For k = 13 To 119 Step 53 proc_mat = Sheets("Dashboard (6)").Range("B" & k).Value While Sheets("Dashboard (6)").Range("D" & k + 2).Value <> "" 'coloque o seu código atual aqui 'a variável LINHA não é ...

O prazo para tratar é 24 hs corridas, exceto para o sábado domingos e feriados. A fórmula que eu sugeri é para calcular data/hora do encerramento do prazo para tratar os pedidos, com base no que entendi do seu comentário acima. No entanto, tentando adivinhar, me parece que o que você quer é calcula...

Olá, @leowp . O código abaixo replica os dados de A4:F4 na Tabela, ordena a Tabela e limpa A4:F4. Antes de testar bloqueie as células da planilha e desbloqueie somente A4:F4. # Sub CadastraProdutoOrdenaTabela() Dim LR As Long Application.ScreenUpdating = False ActiveSheet.Unprotect "123" '...