Multiplicação de Indice (Acumulação)  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Multiplicação de Indice (Acumulação)

Mensagempor DIVINORS » Qui Fev 20, 2020 9:14 am

Olá! I Estou trabalhando esse código sendo que o mesmo está ocorrendo um erro na linha 4. Se alguém puder me ajudar. divino_rs@outlook.com

Private Sub CommandButton1_Click()
DataInicial = CDbl(DateValue(TextBox1))
DataFinal = CDbl(DateValue(TextBox2))
TextBox3 = Application.WorksheetFunction.Product(Plan1.Range("C3:C16"), Plan1.Range("B3:B16"), ">=" & DataInicial, Plan1.Range("B3:B16"), "<=" & DataFinal)
End Sub
DIVINORS
Membro
Membro
 
Mensagens: 25
Registrado em: Ter Dez 20, 2016 10:57 pm
Has thanked: 10 times
Have thanks: 1 time

{ SO_SELECT }

Testei e funcionou sem nenhum erro  [Resolvido]

Mensagempor klarc28 » Qui Fev 20, 2020 11:02 am

Código: Selecionar todos
Private Sub CommandButton1_Click()
Dim DataInicial As Date
Dim DataFinal As Date
DataInicial = CDate(TextBox1.Text)
DataFinal = CDate(TextBox2.Text)
Dim i As Integer
Dim res As Double
res = 1
For i = 3 To 16
If CDate(Plan1.Range("B" & i).Value) <= DataFinal Then
If CDate(Plan1.Range("B" & i).Value) >= DataInicial Then
res = res * Plan1.Range("C" & i).Value

End If

End If

Next i

Me.TextBox3.Text = res

End Sub
É estudando que se consegue. Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 1410
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 35 times
Have thanks: 588 times

Re: Multiplicação de Indice (Acumulação)

Mensagempor DIVINORS » Qui Fev 20, 2020 11:26 am

Fantástico!!!!!!
DIVINORS
Membro
Membro
 
Mensagens: 25
Registrado em: Ter Dez 20, 2016 10:57 pm
Has thanked: 10 times
Have thanks: 1 time

Re: Multiplicação de Indice (Acumulação)

Mensagempor EdsonBR » Qui Fev 20, 2020 12:02 pm

ivomorais escreveu:...Moderadores, é o Klarc28, mas meu usuário foi mudado automaticamente pelo site para ivomorais.


Isso aconteceu comigo também: quando fui ver, no canto superior direito meu login name estava como "Adalberto7", nosso grande Patropi! Que honra, me senti um verdadeiro Ninja na hora 8-) , mas depois de recarregar a página voltou ao normal :cry: hehehe.
Imagem
Avatar do usuário
EdsonBR
Membro
Membro
 
Mensagens: 676
Registrado em: Qui Nov 05, 2015 11:43 pm
Localização: Joinville, SC
Has thanked: 147 times
Have thanks: 442 times

Re: Multiplicação de Indice (Acumulação)

Mensagempor JSCOPA10 » Qui Fev 20, 2020 12:55 pm

.
DIVINORS, você deve marcar "Resolvido" na melhor solução, não na sua pergunta!! ... Fica a dica para os próximos!! ... Esse já corrigi!!!
.
Avatar do usuário
JSCOPA10
Ninja do Excel
Ninja do Excel
 
Mensagens: 369
Registrado em: Qua Jun 19, 2019 9:11 pm
Has thanked: 38 times
Have thanks: 135 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 8 visitantes