Boa noite senhores.


Procurei no Fórum algum debate relacionado ao tema, porém não encontrei nada que pudesse solucionar minha dúvida, portanto, a necessidade de um novo tópico.

Seguinte:

Preciso moldar um código para bloquear um certo intervalo de células, porém esse bloqueio só poderá ser realizado após certa hora do dia, no caso, às 20:00 e deverá perdurar até às 10:00 dia seguinte.


Sub BloquearCélulas()
'
' BloquearCélulas Macro
'
Range("J1:O10").Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("H1").Select

End Sub


Código para bloqueio das células bem simples, entretanto, não sei como atrelar a condição mencionada acima ..

Só para concluir: Seria garantir que o código mencionado fosse executado automaticamente, porém, só após às 20:00 do dia corrente e fazer com que o bloqueio perdure até as 10:00 do dia seguinte (quando o intervalo de células deverá ser desbloqueado).

Alguma ideia ?

Grato!

Vi que há vários sites oferecendo edição gratuita de PDF's online. Não acho seguro. Quem conhece algum programa que permita isso, sem ser do tipo "Experimente por 30 dias" ?

Resolvido: Achei o FreePDF.

Bom dia!

A Microsoft lança a versão Office online, confira:

Quase quatro anos depois de o Google ter lançado o Docs na nuvem, agora foi a vez da Microsoft. A empresa anunciou, nesta quarta-feira (13), o lançamento do Office Web Apps, gratuito para os 53 milhões de usuários do Hotmail no Brasil.

A partir de agora, quem tem conta no webmail da empresa poderá criar, editar, visualizar e compartilhar documentos por qualquer navegador ligado à internet.

Para acessar a versão do Office na nuvem da Microsoft, o usuário pode usar seu login no Windows Live ou acessar sua conta de Hotmail, que dá direito a armazenamento ilimitado.

O Hotmail também traz Messenger (programa de mensagem instantânea) embutido e o recurso de visualização ativa que permite o acesso a vídeos, áudios e fotos no próprio webmail.

O webmail da Microsoft também permite atualização em redes sociais e a possibilidade de o usuário limpar e-mails que não queiram mais, mas que não são spam. Caso o usuário queira usar um e-mail temporário para, por exemplo, vender seu carro, pode acrescentar a ação ao e-mail convencional (luiz_venda_carro@hotmail.com).

Lançado há pouco mais de seis meses lá fora, o Office Web Apps foi oferecido primeiro aos usuários da versão para PC. O pacote virtual da Microsoft salva automaticamente, permite compartilhamento e visualização de documentos em qualquer smartphone, além de exibir um histórico de todas as atualizações.

Segundo Carolina Aranha, gerente geral de online da Microsoft, o pacote virtual "garante que qualquer usuário possa usar o Office na nuvem a partir de qualquer computador, principalmente de LAN houses, usadas por muita gente para se comunicar". Segundo a empresa, 45% dos brasileiros acessam a internet em lugares públicos.

Caso os usuários trabalhem em colaboração, o programa permite atualizações ao mesmo tempo no Excel e no OneNote (bloco de anotações). Se estiverem usando o Word ou o PowerPoint, elas são feitas no próprio computador. Quem precisa acessar o programa de forma compartilhada pode iniciar o Web Apps a partir do Office. Também é possível abrir direto o Word no PC e salvar na nuvem.

Lançado há pouco mais de seis meses, o Office Web Apps já é usado por mais de 30 milhões de usuários, segundo a empresa. O produto deverá ser lançado para usuários de 17 países das Américas Central e do Sul.

Para acessar o Office Web Apps, basta criar ou acessar sua conta de Hotmail pelo site.

galera eu preciso que a celula fique em branco quando a data não for encontrada.

SE((AGORA()-D7)>=365;"INVALIDO";"VALIDO")

ou

SE(D8>AGORA();"VÁLIDO";SE(D8
a celulas das datas são as ''D" e as formulas estão na ''E''.

oque acontece e que se eu não colocar data nas celulas D as E ficam Invalido ou Vencido dependendo da Formula. eu queria que ficassem em branco se não houver datas digitadas.

Se souberem uma maneira de fazer diferente ou me ajudar eu agradeço.

se alguem quizer baixar a planilha amostra ai vai o link

http://www.4shared.com/document/CRoWwTKq/DUVIDA.html

Boa tarde, pessoal.

Estou fazendo uma planilha de comparação de preços ao longo do tempo.
Por exemplo, comparando o preço da banana nanica com a banana prata.

Tenho uma base com o histórico de preços de cada tipo de banana em diferentes datas.

Nanica - Data 1 - Preço X
Prata - Data 2 - Preço Y
Nanica - Data 3 - Preço Z
Nanica - Data 4 - Preço K
Prata - Data 5 - Preço W

Eu preciso reportar esse comparativo num determinado mês que pode ser o atual ou algum mês do passado.

O que eu queria era escolher em uma lista (já feito) algum mês de referência e que alguma fórmula me voltasse o último preço de daquele tipo de banana antes da data referência.

Por exemplo, eu escolho na lista dezembro de 2014.
A banana nanica tem um preço histórico medido em dezembro de 2014, então sem problema. Mas no caso da banana prata, o último mês que tem no histórico é agosto de 2014.

Segue a planilha de exemplo.

Eu até saberia fazer alguma gambiarra com macro e tabelas dinâmicas pra conseguir esses valores. Mas acho que seria uma bazuca pra matar um coelho.

Alguém já fez algo nesse sentido?

Obrigado!

Alguém poderia ajudar nessa fórmula?

=SE(E(D6="Parede Simples";F6<="2002");"Anual";"")*SE(E(D6="Parede Simples";F6>="2003";F6<="2007");"Bienal";"")*SE(E(D6="Parede Simples";F6>="2011");"Quinquenal";"")

A raciocínio deve ser o seguinte:

Se D6 for igual a Parede Simples, E6 for igual a Não e F6 for menor/igual a 2002 então G6 = Anual

Se D6 for igual a Parede Simples, E6 for igual a Não e F6 for maior/igual a 2007 ou F6 menor/igual a 2010 então G6 = Bienal

Se D6 for igual a Parede Simples, E6 for igual a Não e F6 for maior/igual a 2011 então G6 = Quinquenal

Valeu!

Olá todos,
Bom dia.

Reinstalei minha máquina inteira do zero, windows 8.1 e fiz upgrade para o 10. Mas perdi o pacote de linguagem em português para WORD, assim meu Word está em outra língua, onde comprei o cd de instalação, e não consigo mudar porque a microsoft descontinuou esses pacotes de idiomas. Alguém sabe como posso obter algum espelho para esse arquivo???

Os pacotes de idiomas do Office 2010, Office 2007 ou Office 2003 foram descontinuados e já não se encontram disponíveis. Isso pode ser visto aqui https://support.office.com/pt-pt/article/Preciso-de-um-pacote-de-idiomas-de-um-Pacote-de-Acess%C3%B3rios-de-Idiomas-LAP-ou-de-um-Language-Interface-Pack-LIP-4548ec6b-6d0e-40aa-8780-7bbee9554e04

valeu galera, agradeço quem souber de algo.

Senhores estou usando a seguinte fórmula de porcentagem simples:

=(B4/100)*C4

para poder calcular em % quantas mulheres foram contratadas em um número x de empregados, mas meu problema é o seguinte:

Meu resultado aparece maior que 100, ex:

ANO .................... CONTRATADOS................... MULHERES................... PORCENTAGEM

2011 ............................188.................................... 20................................... 3760%


Ja tentei de tudo e o resultado não me mostra apenas 2 algarismos, o que devo fazer?

Grato.

Ola, Pessoal estou precisando de uma Planilha de controle de estoque para material medico hospitalar - Farmácia hospitalar, que tenha cadastro de materiais, cadastro de fornecedores e setores, entrada e saída para mais de 15 setores e também o controle de lote e validade dos materiais.
E relatorios gerenciais.

Bom Noite grupo,

Nunca trabalhei com vba e estou enfrentando este novo desafio:

Estou elaborando uma planilha para controle de recebimento dos pagamentos feito em cartão de crédito. Cada mês está em uma planilha, logo as parcelas devem ser lançadas cada qual em sua planilha (mês):

1.consigo gerar as parcelas - A macro roda ao preencher o campo PARCELAS RESTANTES - linha a linha.
2.consigo lança-las em cada planilha
3.MEU PROBLEMA: a última parcela está repetindo após o fim.

Estou tentando controlar os pagamentos que recebo no cartão para saber qto vai cair na minha conta em cada dia do mês. Logo qdo o pagamento é feito em uma unica parcela, eu recebo em 30 dias. Qdo é feito em mais de uma... 30 dias a primeira e assim por diante.

Como recebo mais de 500 pagamentos por mês só no cartão, manter todas as parcelas na mesma planilha ficará grande e confuso.

- O Erro: a pagamento foi feita em 3x (janeiro), logo receberei em Fevereiro, Março e Abril - cada mês está em uma planilha. Até aí tudo bem. O erro é que a última parcela está se repetindo nos próximos meses (Maio, Junho, etc.) ao invés de sumir.

O arquivo está em anexo para melhor entendimento.

Agradeço desde já a ajuda.

Boa noite,

Estou tetando passar algumas informações do word pro excel, porém ocorre o seguinte problema:

O texto em word está no formato abaixo:
linha1
linha2
linha3
linha4
linha5

Quando passo pro excel ele fica assim:
célula A1: linha1
célula A2: linha2
célula A3: linha3
célula A4: linha4
célula A5: linha5

Porém o que eu quero fazer é colocar as 5 linhas em uma única célula do excel, uma linha embaixo da outra.

Alguém sabe como fazer isso? Obs: já tentei mesclar, mas não adiantou.


Valeu!

Olá,

Tenho algumas planilhas em excel e gostaria de criar uma "Caixa de Diálogo" para preencher manualmente dados em células específicas, por exemplo:

Em uma planilha:



As colunas "Matrícula" e "Desconto" são preenchidas automaticamente, as fórmulas já estão prontas, só precisa preencher o nome e o valor pra o resto aparecer sozinho.

Essa tabela que eu coloquei ai é um exemplo, a tabela real é umas 50 vezes maior que essa e já aconteceu várias vezes de escreverem por cima de uma fórmula e acabar com minha planilha. Então queria colocar nessa planilha um botão que abrisse uma Caixa de Diálogo e nessa um formulário que tivesse pra pessoa preencher só os dados que preciso e ela clicava num confirmar qualquer e ele preencheria a próxima linha da planilha...

Alguém pode me ajudar com isso?

Se me mostrarem pra esse exemplo ai eu já desenvolvo o resto.

Muito obrigado.

Boa noite

Venho aqui solicitar ajuda para tentar impedir que usem o Control+P ou utilizarem outra forma para imprimir.

Na Aba MapaHoras existe um botão que ao se clicar nele vai abrir a Aba HorasImprimir e imprime.

Não quero que a pessoa tente imprimir se não clicar nesse botão.

Se a pessoa tentar por outra forma de imprimir, ( seja ela por Ctrl+P, ou de outro modo ) deverá receber uma MsgBox a informar que deverá clicar nesse botão que se encontra na Aba MapaHoras.

Obrigado desde já.

Cumps

Edit:
Resolvido

Procurei na net e adaptei ao que pretendia e resolveu.

Fica aqui o código VBA usado a ser colocado em: EstaPasta_de_trabalho

Private Sub Workbook_BeforePrint(Cancel As Boolean)

 

        If ActiveSheet.Name = "MapaHoras" Then

     

        'verifica se o Range A1 está preenchido

        If Range("A1&quot.Value = "" Then

            MsgBox ("FAVOR DE USAR O BOTÃO PARA IMPRIMIR AONDE REGISTOU AS HORAS !!&quot & _

            vbLf & "                             ", vbInformation, " Botão Obrigatorio !!!"

            Cancel = True

         

        End If

        End If

End Sub

Bom fim de semana para todos

Cumps

Bom Dia!
Estou precisando da ajuda para formatar fórmula com numero negativo.
Tenho os seguintes dados:
Na Célula A3 (Projeção) : 23.927
Na Célula B3 (Realizado: (40.148)
Utilizei a Fórmula =soma(A3*100)/B3 e achei o resultado de -59,60%.
Fiquei em dúvida com o resultado. Gostaria apenas de saber se a fórmula correta seria essa. (Exemplo anexo)
Grato.

Bom dia, quem quiser fazer o teste do preview do Office 2016 aí está pra download:

[LIST=1]
Algumas novidades como integração com o serviço de nuvem da Microsoft o Onedrive...
A colaboração em tempo real de arquivos, o que já não é novidade para quem usa o Google Drive
Outra coisa boa, estará na forma como você vai salvar os arquivos, agora será assim: por padrão, todos os seus documentos serão armazenados diretamente no onedrive. sem esquecer os arquivos anexados em e-mails serão descartados, fazendo com que eles sejam enviados para o OneDrive. E você poderá enviar arquivos bem maiores (até 10 GB)
[/LIST]
....Não é possível usá-lo junto com o Office 2013, é necessário desinstalar o Office 2013 para poder testar o mesmo...

32 bits

64 bits

Bom dia, estou fazendo um código para utilizar aqui no trabalho, porém está dando o erro
Subscrito fora do intervalo (Erro 9).

o erro está dando referente linha - totalregistro = Worksheets("banco de dados").UsedRange.Rows.Count + 1
segue abaixo código completo:

Private Sub CommandButton1_Click()

'Abaixo criei a variavel para contagem de linhas armazenadas

totalregistro = Worksheets("banco de dados&quot.UsedRange.Rows.Count + 1

Worksheets("banco de dados&quot.Select

'Aqui começa a gravação dos dados

Cells(totalregistro, 1) = TextBox1.Text

Cells(totalregistro, 2) = TextBox2.Text

Cells(totalregistro, 3) = TextBox3.Text

Cells(totalregistro, 4) = TextBox4.Text

Cells(totalregistro, 5) = TextBox5.Text

Cells(totalregistro, 6) = TextBox6.Text

Cells(totalregistro, 7) = TextBox7.Text



'mensagem concluido

MsgBox "dados gravados"

'Limpar dados

TextBox1 = ""

TextBox2 = ""

TextBox3 = ""

TextBox4 = ""

TextBox5 = ""

TextBox6 = ""

TextBox7 = ""

ComboBox1 = ""

'voltar para batch

TextBox1.SetFocus





End Sub



Private Sub CommandButton2_Click()

Application.Quit



End Sub



Private Sub CommandButton3_Click()

Login.Show



End Sub



Private Sub Image1_Click()



End Sub



Private Sub Label1_Click()



End Sub



Private Sub Label6_Click()



End Sub



Private Sub Label8_Click()



End Sub



Private Sub Label9_Click()



End Sub



Private Sub RefEdit1_BeforeDragOver(Cancel As Boolean, ByVal Data As MSForms.DataObject, ByVal x As stdole.OLE_XPOS_CONTAINER, ByVal y As stdole.OLE_YPOS_CONTAINER, ByVal DragState As MSForms.fmDragState, Effect As MSForms.fmDropEffect, ByVal Shift As Integer)



End Sub



Private Sub TextBox1_Change()



End Sub



Private Sub TextBox2_Change()



End Sub



Private Sub TextBox3_Change()



End Sub



Private Sub TextBox6_Change()



End Sub



Private Sub UserForm_Click()

'colocar como pasta suspensa

'RefEdit1.AddItem "cells(1, totalregistro)"



End Sub



Private Sub UserForm_Initialize()



End Sub

Vamos lá pessoal.

Tenho uma planilha com alguns cadastros, e nela tenho uma coluna atribuída como "Data de Nascimento", usando o seguinte padrão DD/MM/AAAA.

Precisaria criar uma nova coluna porém só com os anos.

Gostaria de saber se através de fórmulas / scripts / máscaras é possível fazer isso, considerando que tenho dentro dessa planilha aproximadamente 4.000 linhas.

Abraços

[CODE=rich]RESOLVIDO ATRAVÉS DO SIMPLES:
=ANO(A1)[/CODE]

Bruno

Bom dia galera,

Tentei ocultar as colunas onde estão os dados que compõem meu gráfico, porém ao serem ocultadas os dados somem dos gráficos. Há possibilidade de ocultar esses dados de foma que continuem sendo exibidos nos gráficos?


Edit:
Encontrei a resposta no site do Office rsrs >> https://support.office.com/pt-br/article/Exibir-dados-ocultos-e-c%C3%A9lulas-vazias-em-um-gr%C3%A1fico-a1ee6f0c-192f-4248-abeb-9ca49cb92274

Todos os ícones dos aplicativos do pacote Office foram substituidos por esse ícone genérico...Como restaurar os ícones originais de cada aplicativo?
Win 7.....Office 2010


Resolvido......

Após a atualização do pacote, os ícones voltaram ao normal...Feliz Páscoa a todos.

Olá, creio que minha dúvida seja simples..

É o seguinte, tenho uma tabela com vendas e datas. Minhas datas estão na formatação (nomedodia, dd/mm/aa).

Gostaria de fazer uma condicional que quando "sexta-feira", "sabado" ou "domingo" ficasse marcado em vermelho.

E também, quando "segunda-feira" ficasse marcado em preto.

Podem me explicar?

Uso excel 2010!