Ajuda vinculação de data e valor em uma região específica da planilha (HELP VINCULATION DATE E VALUE)

[rogerioafonso]

Bom dia.
Criei uma planilha de fluxo de caixa para gerenciar os negócios de um cliente.

Dividi os negócios dele em três planilhas: Negócio A, Negócio B e Negócio C (de acordo com o que ele me pediu);

Criei uma planilha FLUXO onde o cliente vai adicionar os fluxos de entrada e saída.

Preciso direcionar cada fluxo para o respectivo negócio.

Porem, estou tendo algumas dificuldades nos códigos.

1º) Como faço para criar uma vinculação com o negócio à Planilha marcada pelo cliente?
Ex. o cliente marca a opção “Negócio B” então a entrada (ou saída) vai para a planilha “Negócios B"

Comecei a criar o código mas não funcionou:

If Opt_Button1 = False And Opt_Button2 = False And Opt_Button3 = False Then
'se os botões OptionButton1,OptionButton2 e OptionButton3 forem vazios então
MsgBox ("Favor, selecionar um dos Negócios") ' mostra a mensagem
Opt_Button1.SetFocus 'dá foco novamente no botão
Exit Sub 'encerra o procedimento
End If ' encerra o teste lógico

Criei as variaveis para receber o valor digitado.

2º) Mas como faço para vincular os valores na planilha A, B ou C?

3º) Preciso que o valor inserido pelo cliente seja vinculado na planilha negocio própria (problema anterior) mas na data que o cliente digitar.
Ex: O cliente entra com a entrada de fluxo de R$100.000,00 pela venda de feijão para o dia 25/03/2015.. preciso que estes 100mil sejam inseridos na célula do negócio feno no dia 25/03/2015.

Quem puder me ajudar já ficarei eternamente agradecido.

 

[ITWare2008]

Bom dia Rogério,

O ideal é vincular os botões de opção a uma única célula. Assim consoante o botão seleccionado a célula terá um determinado valor. Então podemos associar cada valor a uma folha (planilha) e transferir os valores digitados na folha de fluxo para a folha de negócio correspondente ao número que consta na célula que está associada aos botões de opção.

Se tiver dúvidas não hesite em perguntar.

Vândalo

 

[rogerioafonso]

Bom dia Rogério,

O ideal é vincular os botões de opção a uma única célula. Assim consoante o botão seleccionado a célula terá um determinado valor. Então podemos associar cada valor a uma folha (planilha) e transferir os valores digitados na folha de fluxo para a folha de negócio correspondente ao número que consta na célula que está associada aos botões de opção.

Se tiver dúvidas não hesite em perguntar.

Vândalo

Ola Vandalo,
Obrigado pela ajuda.
Entendi.. para vincular um botão de seleção a uma célula, basta criar o código abaixo? Ou vc tem alguma outra sugestão?

ActiveCell.Offset(x, y).Select 'seleciona a célula da linha x coluna y
cmb_classe = ActiveCell 'insere o valor na célula (x,y) da varíavel cmb_classe

Não sei agora como vincular o botao à variavel cmb_classe..
(me ajude aí por favor)
Na verdade, pensando melhor, não deve ser este código pois preciso saber qual é a data inserida pelo cliente.. estes dados serão inseridos na planilha "Negocio x", na data que o cliente escolheu para o lançamento.


Acrescentei ainda o seguinte codigo:

If opt_entrada = True Then ' se o botão de opção entrada estiver selecionado então
ActiveCell = "Entrada" ' a célula ativa recebera o valor "Entrada"
Else ' caso contrario
ActiveCell = "Saída" ' a célula ativa receberá o valor de "Saída"
End If 'fim do teste lógico

If opt_entrada = False And opt_saida = False Then 'se o botão de opção entrada e saída forem igual a vazio então
MsgBox ("Favor, selecionar o tipo de movimento") ' mostra a mensagem
opt_entrada.SetFocus 'dá foco novamente nas opções
Exit Sub 'encerra o procedimento
End If


Outra dúvida: Inseri no formulario 5 OpptionButton.. Duas, conforme já mencionado, para definir a "entrada" ou "saída" (uma exclui a outra. Se é entrada, não pode ser marcada opção saída, e vice versa.

Outras 3 para definir a qual negócio se refere a entrada ou saída do valor (negocio cafe, negocio feno, negocio milho, por exmeplo)
Qual o código para definir o valor inserido pelo cliente na planilha "Negocio Cafe" ou "Negocio Feno" ou "Negocio milho"?

Se precisar posso te enviar a minha planillha com o codigo por email.. só me passar o email..

Mais uma vez obrigado pela ajuda.
Abs

 

[ITWare2008]

Bom dia Rogério,

O cenário que utilizei foi o seguinte:

=> Temos duas Groupbox (uma para as acções e outra para as empresas)
=> Cada uma tem dois optionbuttons
=> Os optionbuttons da groupbox das acções estão vinculados a uma célula à qual demos o nome de optaccao
=> Os optionbuttons da groupbox das empresas estão vinculados a uma célula à qual demos o nome de optnegocio
=> Temos uma célula que se chama dtnegocio onde vamos escrever a data do movimento
=> Temos uma célula que se chama valornegocio onde vamos escrever o valor do movimento

O código que utilizei para armazenar os valores nas folhas correspondentes aos diferentes negócios foi o seguinte (este código está associado a um commandbutton que se chama cmdRegisto:

Sub cmdRegisto_Click()
Dim strCodigo As String
Dim lngLinha As Long


strCodigo = ""


Worksheets("MrExcel Board").Activate
If Range("optaccao").Value = 1 Then
strCodigo = strCodigo & "1"
ElseIf Range("optaccao").Value = 2 Then
strCodigo = strCodigo & "2"
End If


If Range("optnegocio").Value = 1 Then
strCodigo = strCodigo & "1"
ElseIf Range("optnegocio").Value = 2 Then
strCodigo = strCodigo & "2"
End If


Select Case strCodigo
Case "11"
Worksheets("Café").Activate
Range("A1").Select
lngLinha = Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & lngLinha + 1).Value = "Entrada"
Range("B" & lngLinha + 1).Value = Range("dtnegocio")
Range("C" & lngLinha + 1).Value = Range("valornegocio")


Case "21"
Worksheets("Café").Activate
Range("A1").Select
lngLinha = Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & lngLinha + 1).Value = "Saída"
Range("B" & lngLinha + 1).Value = Range("dtnegocio")
Range("C" & lngLinha + 1).Value = Range("valornegocio")

Case "12"
Worksheets("Maracujá").Activate
Range("A1").Select
lngLinha = Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & lngLinha + 1).Value = "Entrada"
Range("B" & lngLinha + 1).Value = Range("dtnegocio")
Range("C" & lngLinha + 1).Value = Range("valornegocio")

Case "22"
Worksheets("Maracujá").Activate
Range("A1").Select
lngLinha = Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & lngLinha + 1).Value = "Saída"
Range("B" & lngLinha + 1).Value = Range("dtnegocio")
Range("C" & lngLinha + 1).Value = Range("valornegocio")

End Select
End Sub

Espero ter ajudado, qualquer dúvida é só falar.

Vândalo.