Guru do Excel e Power BI

Enviado: **13 Nov 2015 às 00:03**

Bom dia !

Gostaria de saber se há possibilidade de criar um botão salvar para seguinte função: Primeiro vou criar uma lista com os meses do ano., depois vou em validação de dados para poder criar um select com essa lista. Até ai tudo bem. Quero poder escolher um desses meses e quando eu clicar no botão salvara informação que está na célula D14 possa ser salva em uma tabela que criei em outra aba, ou seja, quando eu escolher janeiro e clicar em salvar a informação que esta em D14 será salva na tabela na célula E3. quando escolher fevereiro será salva em E4 e assim sucessivamente. Estou também enviando a imagem da aba que contém o botão salvar com a lista dos meses e a tabela onde quero que seja salvo o dado. Imagem

,

.

Enviado: **13 Nov 2015 às 07:45**

Bom dia!!

favor ler as regras, quando postar uma mesma dúvida em outros fóruns, indique a postagem cruzada!
http://profwillianexcel.forumeiros.com/ ... lvar-dados

Quanto a sua dúvida, poste seu arquivo modelo compactado!

Att

Enviado: **18 Nov 2015 às 14:17**

Boa tarde, segue arquivo compactado conforme solicitado!

Para deixar claro, gostaria que quando clicasse no botão salvar que esta na primeira aba, o valor da célula D14 seja salvo na tabela da segunda aba de acordo com o mês que eu indicar na lista!

Desde já agradeço!

Enviado: **18 Nov 2015 às 14:41**

Boa tarde,

Mas os dados devem ser salvos em qual coluna do mês?

Enviado: **19 Nov 2015 às 01:37**

Bom dia!

Na verdade o arquivo que enviei deveria ter outras abas para que cada aba corresponda a uma coluna, ou seja, a aba cel 17 irá salvar na coluna cel 17, e assim sucessivamente. Por este motivo estou enviando um novo anexo.

Desde já agradeço pela atenção.

Enviado: **19 Nov 2015 às 08:07**

Tenta isso:

Código: Selecionar todos

Sub Parkeless()

Dim aba As String
Dim núm_linha As Integer
Dim núm_coluna As Integer
Dim Aba_Consolidada As Worksheet
Dim colunas As String


'Modificar dados:

'Determinar aba em que os dados serão salvos
    Set Aba_Consolidada = Sheets("Plan2")
'Determinar colunas em que está a área de salvar, na área consolidada
    colunas = "V:AD"


aba = ActiveSheet.Name
Application.ScreenUpdating = False
Aba_Consolidada.Activate 'seleciona aba consolidada

On Error Resume Next

núm_linha = Range("" & colunas & "").Find(What:="" & Sheets("" & aba & "").Range("F11") & "", After:=Range("V1"), LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Row

núm_coluna = Range("" & colunas & "").Find(What:="" & aba & "", After:=Range("w1"), LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Column

If núm_linha = 0 Then
MsgBox "Erro: mês de " & Sheets("" & aba & "").Range("F11") & " não encontrado na planilha " & Aba_Consolidada.Name & ", coluna V!", vbCritical
GoTo Final
ElseIf núm_coluna = 0 Then
núm_coluna = 23
MsgBox "Aviso: nome da aba, " & aba & ", não foi encontrada! Valor salvo na primeira célula.", vbInformation
End If

Cells(núm_linha, núm_coluna) = Sheets("" & aba & "").Range("D14")

Final:
Sheets("" & aba & "").Activate

Application.ScreenUpdating = True

End Sub

Em "Modificar Dados", você pode alterar as informações de onde você vai salvar.

Obs.: O código vai procurar a coluna que contém o nome da aba; se ele não achar, vai salvar o valor na primeira e dar uma mensagem de aviso.

Enviado: **20 Nov 2015 às 00:44**

Está dando erro, tem como testar no arquivo que lhe enviei? De qualquer forma vou inserir o print do resultado final, ou seja, o que deverá acontecer.Neste exemplo escolhi na lista o mês de abril, mas quando eu escolher outro mês e clicar em salvar ele deverá salvar na linha do mês referente. Imagem

Enviado: **20 Nov 2015 às 08:21**

Bom dia!!

Considerando que o cabeçalho (MÊS LOCAL RESULTADO), está em A1,B1,C1 e que o intervalo abaixo está completamente vazio.
Veja se ajuda.

Código: Selecionar todos

Sub AleVBA_911()
    Dim ws As Worksheet
     
    Application.ScreenUpdating = False
    Sheets("Plan2").Activate
     
    For Each ws In Worksheets
        If ws.Name <> "Plan2" Then
            ws.Range("F11").Copy
            ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
            ActiveSheet.Range("B65536").End(xlUp).Offset(1, 0) = ws.Name
            ws.Range("D14").Copy
            ActiveSheet.Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        End If
    Next ws
     
    Application.ScreenUpdating = True
End Sub

%%%%%%%%%%%%%%%%%%%%%%%%%%
Considerando que a tabela abaixo começa em E1
MÊS CEL 17 CEL 18 CEL 19 CEL 20 CEL 21 CEL 22 CEL 23 CEL 24
JANEIRO 73%
FEVEREIRO 187%
MARÇO 100%
ABRIL 93% 113%
MAIO 100%
JUNHO
JULHO
AGOSTO
SETEMBRO
OUTUBRO 100%
NOVEMBRO
DEZEMBRO 100%

%%%%%%%%%%%%%%
Em F2 use:
=SE(SOMARPRODUTO(--($E2=MesRng);--(F$1=LocalRng);--(ResultRng))<=0;"";SOMARPRODUTO(--($E2=MesRng);--(F$1=LocalRng);--(ResultRng)))

MesRng =DESLOC(Plan2!$A$2;0;0;CONT.VALORES(Plan2!$A:$A)-1)
LocalRng =DESLOC(Plan2!$B$2;0;0;CONT.VALORES(Plan2!$B:$B)-1)
ResultRng =DESLOC(Plan2!$C$2;0;0;CONT.VALORES(Plan2!$C:$C)-1)

Att

Enviado: **20 Nov 2015 às 09:30**

Bom dia!

Engraçado, fiz o teste do meu código com seu último anexo, e funcionou

, a única coisa que fiz foi colar o código no VBA, e atribuir a macro Parkeless para todos os botões... deu certo em todas as abas.

Bom, talvez o código do Alexandre funcione melhor, faz o teste aí.

Enviado: **20 Nov 2015 às 20:42**

o que está pegando é pra atribuir esse código a esse botao.... Podem min ajudar?

Enviado: **21 Nov 2015 às 17:31**

Boa tarde a todos!

O códiigo está dando erro, tem como enviar o anexo de volta com o código implementado?

Enviado: **21 Nov 2015 às 17:50**

Alex, onde vou colar este código: MesRng =DESLOC(Plan2!$A$2;0;0;CONT.VALORES(Plan2!$A:$A)-1)
LocalRng =DESLOC(Plan2!$B$2;0;0;CONT.VALORES(Plan2!$B:$B)-1)
ResultRng =DESLOC(Plan2!$C$2;0;0;CONT.VALORES(Plan2!$C:$C)-1)

????

Enviado: **21 Nov 2015 às 19:24**

Tenta aí Maquisuel. Só apertar o botão...

Obs.: Se você mudar o nome da aba "Plan2", vai ter que mudar o código também, senão não funciona ok?

Guru do Excel e Power BI

BOTÃO PARA SALVAR DADOS!

BOTÃO PARA SALVAR DADOS!

Re: BOTÃO PARA SALVAR DADOS!

BOTÃO PARA SALVAR DADOS!

BOTÃO PARA SALVAR DADOS!

Re: BOTÃO PARA SALVAR DADOS!

BOTÃO PARA SALVAR DADOS!

BOTÃO PARA SALVAR DADOS!

Re: BOTÃO PARA SALVAR DADOS!

BOTÃO PARA SALVAR DADOS!

BOTÃO PARA SALVAR DADOS!

BOTÃO PARA SALVAR DADOS!

BOTÃO PARA SALVAR DADOS!

Re: BOTÃO PARA SALVAR DADOS!