Em D9

=SOMARPRODUTO((MOD(COL(L9:BZ9);6)=0)*(M9:CA9>0);(L9:BZ9))

=SOMARPRODUTO((MOD(COL(L9:BZ9);6)=0)*(M9:CA9="");(L9:BZ9))

=SOMARPRODUTO((MOD(COL(L9:BZ9);6)=0)*(O9:CC9="SIM");(L9:BZ9))

Experimente esta.

=SE(DIA(H4)>E5;FIMMÊS(H4;0)+10;H4-DIA(H4)+10+10*(E(DIA(H4)>=C$4;DIA(H4)<=E$4))+20*(E(DIA(H4)>=C$5;DIA(H4)<=E$5)))

Segue uma ideia, veja se aproveita. 1. elabore uma tabela ocupando duas colunas, na coluna da esquerda coloque a lista dos produtos e na da direita os respectivos valores 2. aplique Validação de Dados na célula, ou no intervalo, que deseja inserir o nome do produto e utilize na Validação a lista de ...

Preciso da ajuda de alguém que conheça bem sobre VBA , :?: :?: :?: Considerando o primeiro arquivo disponibilizado no seu post: Plan1 ~~~> em A6 não está aplicada a Formatação Condicional e a cor em D6 é diferente de todas as cores aplicadas na Formatação Condicional na coluna A; corrigidos esses d...

Pesquise ~~~> excel validação de dados condicional ou excel validação de dados dependente Veja algumas dicas no link abaixo. https://www.google.com/search?ei=HD--X-PTIPrH5OUPptKq6AE&q=excel+valida%C3%A7%C3%A3o+de+dados+condicional&oq=excel+valida%C3%A7%C3%A3o+de+dados+condicional&gs_lcp=CgZwc3ktYWIQ...

Sub ReplicaDadosV2() Dim m As Long, k As Long With Sheets("Modelos") .[D:J] = "" For m = 2 To .Cells(Rows.Count, 1).End(3).Row For k = 2 To Sheets("Opcionais").Cells(Rows.Count, 1).End(3).Row .Cells(Rows.Count, 4).End(3)(2) = .Cells(m, 1) .Cells(Rows.Count, 5).End(3)(2).Resize(, 6) = Sheets("Opcion...

Para a primeira linha o resultado desejado seria esse abaixo, nas colunas D:J ?

#########D##############E#######F############G############H##########I###########J#######
2PU91DLNGK04A0D0#####NN01#####E#####Airbag passageiro#####NO#####180,26695#####199,19

Experimente o código abaixo no lugar do anterior. O resultado será lançado pelo código nas colunas D:E de Modelos. Sub ReplicaDados() Dim m As Long, k As Long With Sheets("Modelos") .[D:E] = "" For m = 2 To .Cells(Rows.Count, 1).End(3).Row For k = 2 To Sheets("Opcionais").Cells(Rows.Count, 1).End(3)...

Seguem 3 chutes, apenas suposições, pois eu não entendi o que você quer. Se não for isso então disponibilize o seu arquivo Excel contendo o que você quer. Sub TesteV1() Range("J2").FormulaLocal = "=SE(E2=""diária"";A2*G2*I2+I2*(F2+H2)/2;A2*I2)" End Sub Sub TesteV2() Range("J2").Resize(9).FormulaLoca...

Disponibilize uma planilha com 3 ou 4 exemplos do resultado desejado.

Experimente:

Range("J6").FormulaLocal = "=SE(E5=""diária"";A5*G5*I5+I5*(F5+H5)/2;A5*I5)"

Experimente. O resultado será lançado pelo código na coluna D de Modelos. Sub ConcatenaDados() Dim m As Long, k As Long With Sheets("Modelos") For m = 2 To .Cells(Rows.Count, 1).End(3).Row For k = 2 To Sheets("Opcionais").Cells(Rows.Count, 1).End(3).Row .Cells(Rows.Count, 4).End(3)(2) = .Cells(m, 1)...

Olá, Teresa. Você pode utilizar a função HOJE() e aí todas as células com essa função inserida em datas passadas serão atualizadas para a data do dia. No entanto, se você não quer que as datas inseridas anteriormente sejam atualizadas então instale uma cópia do código abaixo no módulo de EstaPastaDe...

Olá, Sérgio. Talvez o comando abaixo não seja a causa do problema mas me parece que ele está incorreto, pois está duplicado o teste de caixa_dtfimproc . If caixa_dtfimproc.Text <> "" And caixa_ dtfimproc .Text<> "" Then Deveria ser ~~~> If caixa_dtfimproc.Text <> "" And caixa_ dtiniproc .Text <> "" ...

Insere fórmulas em O:P.

Sub InsereFórmulaV2()
 Dim k As Long
  For k = 6 To Cells(Rows.Count, 1).End(3).Row Step 4
   Cells(k, 15).FormulaR1C1 = "=SUM(RC[-11]:R[3]C[-11])/4/1000"
   Cells(k, 16).FormulaR1C1 = "=SUM(RC[-10]:R[3]C[-10])/4/1000"
  Next k
End Sub

... conforme anexo, aplicar a mesma formula so que na coluna 4 e 6 e os resultados mostrar na coluna 15 e 16 A planilha anexada não ajuda a entender o que você quer. Você quer aplicar a fórmula em uma célula mas quer o resultado em outra célula ... isso não faz sentido. Explique com clareza. Dispon...

... conforme anexo, aplicar a mesma formula so que na coluna 4 e 6 e os resultados mostrar na coluna 15 e 16 A planilha anexada não ajuda a entender o que você quer. Você quer aplicar a fórmula em uma célula mas quer o resultado em outra célula ... isso não faz sentido. Explique com clareza. Dispon...

Experimente:

Sub InsereFórmula()
 Dim k As Long
  For k = 6 To Cells(Rows.Count, 1).End(3).Row Step 4
   Cells(k, 4).Resize(, 2).FormulaR1C1 = "=SUM(RC[-2]:R[3]C[-2])/4/1000"
  Next k
End Sub

Na execução essa macro apresenta Erro em tempo de execuçao '91': O erro ocorre se o número de C não for encontrado em F. Experimente o código abaixo vinculado diretamente ao botão, não é necessário um segundo código. Private Sub CommandButton1_Click() With Range("D2:D" & Cells(Rows.Count, 6).End(3)...

Experimente.

=H4+10+10*(E(DIA(H4)>=C$4;DIA(H4)<=E$4))+20*(E(DIA(H4)>=C$5;DIA(H4)<=E$5))