Conteúdo em Excel no site

Pessoal o conteudo desse site será criado por vocês, vocês mesmo podem postar suas necessidade e com base nessa necessidades haverá respostas e tais respostas irá formar o conteudo do site, segue tutorial de como postar:


Clique em "Links para esta postagem"

E depois é só clicar em "Criar um link", escolha um título de depois clique em postar.

Planilha de aniversário

Amigos,
Diante de uma necessidade minha criei uma planilha para me alertar quando os meus funcionário ( ou qualquer pessoa) fazem aniversário, já que são muito e não consigo lembrar da data de nascimento de todos, para isso criei uma planilha que faz isso por mim, ela mostra a idade de cada pessoa, quantos meses e quantos dias, espero que ajudem vocês como está em ajudando.

DOWNLOAD

USO DA FUNÇÃO SE

Usuário: J. P e R e Z

Amigos estou com uma duvida...
Na planilha em anexo, existe umas condições... ao efetuar a função SE .. ele retorna como falso , porem na condição anterior esta correto...
alguem poderia me ajuda?

http://www.4shared.com/file/HwD9orOo/Pasta1.html
_________________________________________________________________

J. P e R e Z, Obrigado pelo seu contato, segue planilha ja corrigida, espero ter ajudado:

 Download

Comando FOR para add em uma combobox

Duvida do usuário: Elton da coomunidade (Excel VBA)
_______________________________________________________
Pessoal to com uma dúvida no comando FOR, gostaria de fazer um laço de repetição para adiconar a um combobox1 todos os códigos (Coluna A da planilha) que possuem o texto "Pendente" (Colula L da planilha).

Este codigo abaixo funciona com o primeiro item só preciso colocar o laço.

Dim y as integer

Set proc = Sheets("chamados").Range("L:L").Find("Pendente")

If proc = "Pendente" Then

y = (proc.Offset(0, -11).Value)
combobox1.AddItem (y)

O For eu tentei desse jeito e não deu certo

Dim num as integer
Dim x as integer
Dim y as integer


x = Range("AZ1") 'O "AZ1" guarda sempre o ultimo codigo + 1
x = x - 1 ' Iguala ao ultimo codigo


For num = y To x

Set contato = Sheets("chamados").Range("L:L").Find("Pendente")

If proc = "Pendente" Then

y = (proc.Offset(0, -11).Value)
combobox1.AddItem (y)


End If


Next
___________________________________________
Resposta do membro:Val.

Te sugiro fazer o seguinte:
Sub teste()
Dim x, UltimaCelula As Long

'Encontra a última célula usada na coluna L
UltimaCelula = Cells(Rows.Count, "L").End(xlUp).Row

'Percorre todo o intervalo da coluna L verificando o valor de cada célula e _
copiando o valor (se atendidas as condições) da célula da mesma linha da coluna B
For x = 1 To UltimaCelula

If Sheets("chamados").Cells(x, "L").Value = "Pendente" Then
combobox1.AddItem Sheets("chamados").Cells(x, "B").Value
End If

Next x
End Sub 


Obs. esse blog/ funcionára assim da forma descrita acima, mas não iremos pegar dados das comunidades e sim postar as dúvidas diretamente aqui, pois assim quem não tem acesso ao orkut por questão de segurança ou restrição nas empresas, terá a chance de tirar suas dúvidas ou auxilar alguém que esteja com dúvida.

Comunidade de Excel

Esse blog/ sites foi criado com base na necessidade das pessoas em ter auxilio sobre a ferramenta Excel no seu ambiente de trabalho, mas não tem permissão suficiente para acessar as comunidade no Orkut


a idéia de criar esse site foi com base na minha própria necessidade e usei como referencia três ótimas comunidades volta para Excel que são:


Microsoft Excel

AFICIONADOS POR EXCEL

Excel VBA   

As pessoas que ajudam as pessoas nessas comunidade são considerado a nata do Excel e merecem nossos agradecimento.


Espero que esse site ajude a todos e que esse esse seja apenas 0,01% do que está por vir, e isso vai depender de todos nós.

AXEI NA WEB: tetes

123

tetes

testes