Este fórum está sendo desativado

Cole na linha 1 de qualquer coluna e arraste para baixo.

=INT((LIN()+1)/2)

Apague o comando que eu sugeri e que foi colocado no código Initialize e coloque-o no código do botão, conforme abaixo. Private Sub CommandButton1_Click() Conferente = InputBox("Insira o seu nome", "Conferente") If Conferente = "" Then Exit Sub frmConfere.Show End Sub s...

Disponibilize uma amostra do seu arquivo Excel.

Experimente acrescentando a segunda linha abaixo.

Conferente = InputBox("Insira o seu nome", "Conferente")
If Conferente = "" Then Exit Sub

Nin escreveu:... quando eu coloco na verificação imediata da erro de compilação

Remova o ponto do início da linha abaixo (em vermelho)

.Cells(Target.Row, 11).Value = Str(Now)

Segue uma fórmula com base no que eu entendi do seu post anterior, pois no último você nada esclareceu, além de ser desanimador olhar para a planilha que você postou ... No arquivo que você disponibilizou primeiro, na Plan1, coloque 14/09/2017 em J1 e coloque 12:00 em K1. A fórmula abaixo irá retorn...

Disponibilize uma nova amostra com as alterações que você comentou.

VANDERSONLAUREANO escreveu:... e as formulas serão sem manutenção.

Experimente: cole a fórmula abaixo em C2 da Plan1, arraste até H2 e em seguida arraste a seleção para baixo. =SOMASES(Sheet1!$I:$I;Sheet1!$A:$A;"14/09/2017";Sheet1!$B:$B;">=12:00";Sheet1!$D:$D;$B2;Sheet1!$P:$P;C$1)+SOMASES(Sheet1!$I:$I;Sheet1!$A:$A;"15/09/2017";Sheet1!$...

Veja se o Tuto do link abaixo pode ajudar.

https://support.microsoft.com/pt-br/hel ... office-pro

sugestão - disponibilize uma amostra do seu arquivo Excel, com o código instalado e descreva com exatidão na própria planilha o que você pretende que o código faça. Se possível coloque alguns dados como exemplo e coloque também o resultado esperado.

Experimente:

=DIATRABALHO(INT(B9);TETO(MÁXIMO((C$2-MÁXIMO(C$5-MÁXIMO(B$5;B9-INT(B9));0))/(C$5-B$5);0);1);FERIADOS!B$3:B$15)+SE(MOD((B9-MÁXIMO(C$5-MÁXIMO(C$5;B9-INT(B9));0));C$5-B$5)>0;MOD(C$2-MÁXIMO(C$5-MÁXIMO(B$5;B9-INT(B9));0);C$5-B$5)+B$5;C$5)

Experimente: Sub ORDENAV2() ' Ordenar 4 Numeros em Crescente Dim m As Integer, n As Integer, Aux As Integer Sheets("Plan1").Activate For m = 1 To 3 For n = m + 1 To 4 Cells(m, 3) = Cells(m, 1): Cells(m + 1, 3) = Cells(m + 1, 1) If Cells(m, 1) > Cells(n, 1) Then Aux = Cells(n, 1) Cells(n, 1...

Minha pergunta é: Essa função só roda no excel (colocando a formula na celula), ou ela tambem trabalha no VBA? Sim, essa função pode ser utilizada também em VBA. Coloquei a data inicial 04/09/2017 em A1 e a data de um feriado 07/09/2017 em K1. O código abaixo adiciona 5 dias úteis à data em A1. Nes...

Lembra disto ? Experimente o código abaixo. Considerei a estrutura das planilhas MAI, JUN e JUL. Se você precisar para as outras, com estruturas diferentes, será preciso ajustar o código. Aí você aplicou o código em outra planilha com estrutura diferente :?: :?: :?: Dureza !!! :shock: Obs.: Basear-s...

... somente a célula inserida não esta entrando na soma (Valor Bruto e Valor Liquido) ... Na sua planilha, na coluna 'F', a fórmula está assim =SOMA(F2:F2 5 ) ao rodar o código uma vez o código irá atualizar a fórmula para =SOMA(F2:F2 6 ) ao rodar o código mais uma vez a fórmula ficará assim =SOMA(...

Experimente o código abaixo. Considerei a estrutura das planilhas MAI, JUN e JUL. Se você precisar para as outras, com estruturas diferentes, será preciso ajustar o código. Sub InsereLinha() Dim LR As Long LR = Cells(Rows.Count, 6).End(3).Row Rows(LR).Insert Range("A" & LR - 1).Resize(...

Diego, faça os testes com o código abaixo. Aqui o código processou as 145 mil linhas em aprox 2 min. Na sua tabela há mais de 1.200 blocos sem o termo "FABRICANTE" e estes blocos não serão processados pelo código. Sub OrganizaDados() Dim LR As Long, k As Long, m As Long, v As Long, f As Ra...