Murillo Leite Moreira

Funcionou aqui cara..

 

 

Muito obrigado!!

Boa tarde,

 

Tenho duas dúvidas que talvez vocês consigam me ajudar.

 

A primeira é como faço para identificar o nome de uma tabela presente na planilha via código vba.

Ex.: A aba contem uma tabela, como identificar o nome dela via código?

 

A segunda questão é de como eu faço para converter essa tabela em um intervalo de células normal (via vba).

 

Espero que possam me ajudar..

 

Obrigado galera.

 

Ninguem consegue me ajudar?

eu formatei meu pc ontem (coloquei o windows 10 pro), e até agora não consegui entrar na rede. 

 

Raramente meu notebook detecta a rede, e quando detecta ele não consegue conectar.

Boa tarde,

 

Pessoal, venho tendo um grande problema com relação a minha conexão de internet. Meu notebook não conecta à rede do meu apartamento (muitas vezes nem a localiza). 

 

Para complicar ainda mais a situação, quando levo o notebook para outros lugares ele conecta normalmente em todos as redes que preciso. 

 

E no meu apartamento somente o meu notebook não conecta a rede, todos os celulares e notebooks dos outros moradores conectam normalmente.

 

Vocês poderiam me ajudar??

Walter, obrigado mas isso eu sei!

 

O problema que esses dados são copias de uma outra planilha, e eu gostaria de saber se teria como classificar sem precisar travar as células.

 

 

Boa tarde,

 

Estou com um problema em uma planilha e gostaria que vocês me ajudassem. 

 

Gostaria de um código que classifique os funcionários pela maior média obtida, o problema é que a coluna a classificar contem formulas, e quando eu classifico, as informações se alteram. 

 

Além disso, se for preciso incluir algum funcionário na tabela o código para classificar acaba não considerando a ultima linha.

 

Segue em anexo um exemplo da planilha que estou com o problema.

Pasta12.xlsx

Boa tarde,

 

Estou precisando de uma macro, que pesquise o nome desejado em uma coluna da planilha, e caso o nome não for encontrado seja mostrada uma mensagem informando que não foi localizado.

 

Espero que possam me ajudar.

 

Desde já, agradeço a atenção de vocês.

 

 

Bom dia Pessoal,

 

Estou tentando usar a seguinte fórmula:

=se(e(M9=$L$5;P9=$N$3);L9*1,32;se(e(M9=$L$3;P9=$N$2;N9=$Microsoft2;O9=$o$4);L9*1,54;se(e(M9=$L$3;P9=$N$2;N9=$Microsoft4;O9=$o$4);L9*1,54;se(e(M9=$L$3;P9=$N$2;N9=$Microsoft4;O9=$o$3);L9*1,60;se(e(M9=$L$3;P9=$N$2;N9=$Microsoft2;O9=$o$3);L9*1,60;se(e(M9=$L$3;P9=$N$2;N9=$Microsoft3;O9=$o$3);L9*1,90;se(e(M9=$L$3;P9=$N$2;N9=$Microsoft3;O9=$o$2);L9*1,96;se(e(M9=$L$3;P9=$N$3;N9=$Microsoft3;O9=$o$3);L9*1,90;se(e(M9=$L$3;P9=$N$3;N9=$Microsoft3;xx=$o$2);L9*1,96;se(e(M9=$L$2;P9=$N$2;N9=$Microsoft2;O9=$o$3);L9*1,656;se(e(M9=$L$2;P9=$N$2;N9=$Microsoft4;O9=$o$3);L9*1,656;se(e(M9=$L$2;P9=$N$3;N9=$Microsoft2;O9=$o$3);L9*1,678;se(e(M9=$L$2;P9=$N$3;N9=$Microsoft4;O9=$o$3);L9*1,678;se(e(M9=$L$2;P9=$N$3;N9=$Microsoft3;O9=$o$3);L9*1,988;se(e(M9=$L$2;P9=$N$3;N9=$Microsoft3;O9=$o$2);L9*2,054;se(e(M9=$L$4;P9=$N$2;N9=$Microsoft2;O9=$o$3);L9*1,65;se(e(M9=$L$4;P9=$N$2;N9=$Microsoft4;O9=$o$3);L9*1,65;se(e(M9=$L$4;P9=$N$2;N9=$Microsoft2;O9=$o$2);L9*1,76;se(e(M9=$L$4;P9=$N$2;N9=$Microsoft4;O9=$o$2);L9*1,76;se(e(M9=$L$4;P9=$N$3;N9=$Microsoft3;O9=$o$3);L9*2,05;se(e(M9=$L$4;P9=$N$2;N9=$Microsoft3;O9=$o$3);L9*2,05)))))))))))))))))))))

 

porém o excel não aceita, devido ao uso de mais níveis de alinhamento do que permitido. Gostaria se possível, de uma sugestão de como resolvo esse tipo de problema. Achei um tópico semelhante no fórum, porém a planilha com a solução do problema não se encontra mais disponível.

 

Desde já agradeço pela atenção de vocês.

 

Abraços.

Boa tarde Pessoal,

Estou precisando de uma ajuda em uma planilha aqui do excel.

Gostaria de um código que atualizasse um gráfico a medida que fosse adicionado um conteúdo a celula. De forma mais informal, segue o problema:

Gostaria que toda vez que um dado fosse adicionado a uma base de dados, um gráfico já pronto seria atualizado.

Exemplo:

No dia 01 de janeiro  – foram registradas 40 propostas

No dia 01 de fevereiro  – foram registradas 30 propostas

No dia 02 de janeiro  – foram registradas 50 propostas

No dia 02 de fevereiro  – foram registradas 40 propostas

 

O gráfico ficaria da seguinte maneira (em anexo).

 

Quando chegar no dia 03, assim que as informações referentes a esse dia fossem preenchidas, o gráfico seria atualizado.

 

Em anexo, segue a planilha que será usada.

 

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

 

teste.xlsx

@osvaldomp , gostaria que me ajudasse mais um pouco (se possível).

 

No codigo informado acima, gostaria de executar o comando "'Escreve os dados na planilha" , apenas quando as condições anteriores forem satisfeitas. Caso alguma das condições forem feridas, os dados não são gravados na planilha.

 

É possível?

 

Obrigado.

Problema resolvido.

 

Muito obrigado @osvaldomp !!

Boa noite, estou com um problema no código abaixo, a linha em negrito apresenta um erro que não consigo solucionar de jeito nenhum. Alem do mais, os valores não estão sendo inseridos na planilha. Gostaria de um auxílio para resolver esse problema.

 

 

Private Sub btnCadastrar_Click()

Dim iLin As Long

Dim ws As Worksheet

Set ws = Worksheets("Plan1")

lin = ws.Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).Row

'Verifica se o nome da Empresa foi digitado
If Trim(Me.TxtEmpresa) = "" Then
    MsgBox "Informe a Empresa."
    Me.TxtEmpresa.SetFocus
End If

'Verifica se o nome da Carteira foi digitado
If Trim(Me.txtCarteira) = "" Then
    MsgBox "Informe a Carteira."
    Me.TxtEmpresa.SetFocus

End If

'Verifica se a quantidade enviada é numérica
If Not (IsNumeric(Me.txtQuantidade)) Then
    MsgBox "Quantidade informada não é numérica."
    Me.txtQuantidade.SetFocus
 
End If

'Verifica se o saldo enviado é numérico
If Not (IsNumeric(Me.txtSaldo)) Then
    MsgBox "Quantidade informada não é numérica."
    Me.txtSaldo.SetFocus

End If

'Verifica se o nome da Grafica foi digitado
If Trim(Me.txtGrafica) = "" Then
    MsgBox "Informe a Gráfica."
    Me.txtGrafica.SetFocus

End If

'Verifica se o nome da Tipo de Ação foi digitado
If Trim(Me.txtTipoAcao) = "" Then
    MsgBox "Informe o tipo de ação utilizada."
    Me.txtTipoAcao.SetFocus

End If

'Verifica se o produto da Ação foi digitado
If Trim(Me.txtProdutoAcao) = "" Then
    MsgBox "Informe o produto da ação utilizada."
    Me.txtProdutoAcao.SetFocus

End If

'Verifica se a data enviada é numérica
If Not (IsNumeric(Me.txtDataEnvio)) Then
    MsgBox "Quantidade informada não é numérica."
    Me.txtDataEnvio.SetFocus

End If

'Verifica se o mes de vencimento foi digitado
If Trim(Me.txtMesVenc) = "" Then
    MsgBox "Informe o mês de vencimento da ação."
    Me.txtMesVenc.SetFocus

End If

'Escreve os dados na planilha
ws.Cells(lin, 1).Value = Me.TxtEmpresa.Value
ws.Cells(lin, 2).Value = Me.txtCarteira.Value
ws.Cells(lin, 3).Value = Me.txtQuantidade.Value
ws.Cells(lin, 4).Value = Me.txtSaldo.Value
ws.Cells(lin, 5).Value = Me.txtGrafica.Value
ws.Cells(lin, 6).Value = Me.txtTipoAcao.Value
ws.Cells(lin, 7).Value = Me.txtProdutoAcao.Value
ws.Cells(lin, 8).Value = Me.txtDataEnvio.Value
ws.Cells(lin, 9).Value = Me.txtMesVenc.Value
ws.Cells(lin, 10).Value = Me.txtCusto.Value
ws.Cells(lin, 11).Value = Me.txtQtdeRec.Value
ws.Cells(lin, 12).Value = Me.txtValorRec.Value
ws.Cells(lin, 13).Value = Me.txtPerf.Value
ws.Cells(lin, 14).Value = Me.txtRetorno.Value
ws.Cells(lin, 15).Value = Me.txtColchao.Value
ws.Cells(lin, 16).Value = Me.txtReceitaVista.Value
ws.Cells(lin, 17).Value = Me.txtReceitaPrazo.Value
ws.Cells(lin, 18).Value = Me.txtPart.Value

'Limpa as caixas de texto e volta o foco pra Caixa Empresa
Me.TxtEmpresa.Value = ""
Me.txtCarteira.Value = ""
Me.txtQuantidade.Value = ""
Me.txtSaldo.Value = ""
Me.txtGrafica.Value = ""
Me.txtTipoAcao.Value = ""
Me.txtProdutoAcao.Value = ""
Me.txtDataEnvio.Value = ""
Me.txtMesVenc.Value = ""
Me.txtCusto.Value = ""
Me.txtQtdeRec.Value = ""
Me.txtValorRec.Value = ""
Me.txtPerf.Value = ""
Me.txtRetorno.Value = ""
Me.txtColchao.Value = ""
Me.txtReceitaVista.Value = ""
Me.txtReceitaPrazo.Value = ""
Me.txtPart.Value = ""
Me.TxtEmpresa.SetFocus

End Sub

 

Boa tarde,

 

Estou com um problema que talvez vocês possam me ajudar. Estou criando uma planilha aqui, e gostaria que os gráficos que são mostrados variem de acordo com a seleção da caixa de combinação.

 

Em anexo segue imagem de exemplo do problema. Espero que possam me salvar dessa rsrs

 

Desde já, obrigado.

 

Atenciosamente,

Murillo Leite

Obrigado pela resposta Osvaldo!

 

Mas o problema é um pouquinho mais complicado, acho que me expressei um pouco mal.

 

Feito essa etapa, no próximo dia de preenchimento as colunas inseridas devem ser entre P e Q, depois entre W e X e por aí vai...

Boa tarde Pessoal,

 

Sou novo aqui no fórum e gostaria de esclarecer uma dúvida que tem me dificultado muito em um trabalho.

 

Diariamente preencho uma planilha de controle de tempo, para evitar o retrabalho gostaria de saber se é possível de alguma forma eu resolver o seguinte problema:

 

Exemplo: No 1º Dia eu preencho as informações das colunas C até a coluna I,e a coluna J já está preenchida de forma fixa.No dia seguinte insiro 7 colunas entre a coluna I e a coluna J. São sempre 7 colunas a serem inseridas.

 

Espero que possam me ajudar.

 

Obrigado.