ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Agenda Fones - Contribuição

Dúvidas gerais sobre Excel
jonatasnc
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Seg Mar 19, 2012 2:32 pm

Re: Agenda Fones - Contribuição

Mensagem por jonatasnc » Seg Mar 19, 2012 2:40 pm

Boa tarde,

Estou com um problema.

Alterei o layout dos Forms para atenderem a minha demanda, ja revisei todos os códigos da planilha porem tem alguma coisa errada:

o Modulo Cadastro ficou assim:
Sub confirma_Cad()
'Rotina das Variaveis Cadastro
With frmCAd
VarNome = .cpNome.Value
Varmat = .cpMatricula.Value
Varsetor = .cpsetor.Value
Varz = .cpz.Value
Varturno = .cpturno.Value
Varadmissao = .cpadmissao.Value
Varcargo = .cpcargo.Value
Varsupervisor = .cpsupervisor.Value
Varcelular = .cpcelular.Value
Varresidencial = .cpresidencial.Value
Varmovimentacao = .cpmovimentacao.Value
Varobservacao = .cpobservacao.Value


End With

Application.ScreenUpdating = False
'Entradas Registros Cadastro
With Worksheets("cadastro")
.Activate
Range("nome").FormulaR1C1 = VarNome
Range("matricula").FormulaR1C1 = Varmat
Range("setor").FormulaR1C1 = Varsetor
Range("z").FormulaR1C1 = Varz
Range("turno").FormulaR1C1 = Varturno
Range("admissao").FormulaR1C1 = Varadmissao
Range("cargo").FormulaR1C1 = Varccargo
Range("supervisor").FormulaR1C1 = Varsupervisor
Range("celular").FormulaR1C1 = Varcelular
Range("residencial").FormulaR1C1 = Varresidencial
Range("movimentacao") = Varmovimentacao
Range("observacao").FormulaR1C1 = Varobservacao


End With

Call RegistrarCadastro

End Sub

Sub RegistrarCadastro()
Application.ScreenUpdating = False

Range("ResCadastro").Activate
Selection.Copy
Application.GoTo Reference:="R65536C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.GoTo Reference:="R1C1"

End Sub

as linhas em negrito aparecem o erro 1004:
o metodo RANGE do objeto global falhou.

Alguém poderia me ajudaR?



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1559
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Agenda Fones - Contribuição

Mensagem por Mauro Coutinho » Seg Mar 19, 2012 11:30 pm

jonata, as linhas em Negrito se referem a Ranges NOMEADOS, e o erro é devido de os mesmos não existirem na Planilha.

Você fez a adaptação para seu uso, alterou os nomes dos campos "Nomeados" na rotina, mas não alterou na planilha.

Vá no Menu(excel 2003) Inserir / Nome / Definir e será exibido a lista dos nomes que foram atribuidos aos ranges, edite-os e altere.

[]s


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

jonatasnc
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Seg Mar 19, 2012 2:32 pm

Re: Agenda Fones - Contribuição

Mensagem por jonatasnc » Qua Mar 21, 2012 3:46 pm

Mauro Coutinho escreveu:jonata, as linhas em Negrito se referem a Ranges NOMEADOS, e o erro é devido de os mesmos não existirem na Planilha.

Você fez a adaptação para seu uso, alterou os nomes dos campos "Nomeados" na rotina, mas não alterou na planilha.

Vá no Menu(excel 2003) Inserir / Nome / Definir e será exibido a lista dos nomes que foram atribuidos aos ranges, edite-os e altere.

[]s

Obrigado pela resposta Mauro, onde fica este atalho no 2007?



Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1559
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Agenda Fones - Contribuição

Mensagem por Mauro Coutinho » Qua Mar 21, 2012 4:56 pm

[]s[/quote]

Obrigado pela resposta Mauro, onde fica este atalho no 2007?[/quote]

Definir um nome usando a caixa de diálogo Novo Nome
http://office.microsoft.com/pt-br/excel ... create_nam

[]s


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Jaime Rib.Preto
Colaborador
Colaborador
Mensagens: 23
Registrado em: Seg Mar 05, 2012 3:07 pm

Re: Agenda Fones - Contribuição

Mensagem por Jaime Rib.Preto » Qua Mar 28, 2012 9:53 am

Bom dia, baixei a planilha e qdo vou descomprimir aparece um erro:
AgendaFonesMVC.rar: O cabeçalho do arquivo "???" está corrompido.

O que pode ser?

Grato
[]´s

Jaime



Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1559
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Agenda Fones - Contribuição

Mensagem por Mauro Coutinho » Qua Mar 28, 2012 2:44 pm

Jaime, de fato, o arquivo se corrompeu na epoca que tivemos problemas no forum, qdo chegar em cas procuro a cópia e atualizo.

OK - Anexo Atualizado em 29/03/12 - é só baixar.

O Tomas publicou a mesma no Blog (http://www.tomasvasquez.com.br/blog/) dele, de uma olhada se tambem está corrompida, aqui no serviço não temos acesso a Blogs.

[]s


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

fireangelsc
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qua Jul 04, 2012 10:28 am

Re: Agenda Fones - Contribuição

Mensagem por fireangelsc » Qua Jul 04, 2012 10:31 am

Bom dia gostei muito da agenda realemente é o que estou precisando mas não entendo muito de excel ainda mais programação...precisava acrescentar algumas informações no radapé junto aos creditos com seu nome mas parece que é bloqueado poderia me ajudar?



jayrmellooliveira
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sex Jul 19, 2013 4:06 pm

Re: Agenda Fones - Contribuição

Mensagem por jayrmellooliveira » Sex Jul 19, 2013 4:25 pm

Mauro Coutinho escreveu:Anexo uma Agenda de Telefones e outros que criei ja faz algum tempo e fiz algumas correções, não usa as mesmas rotinas do Modelo de Cadastro do Tomaz, mas é uma outra opção um pouco mais simples.

Os códigos estão abertos para qualquer modificação e adaptações a quem interessar.

Anexo Atualizado em 29/03/12
AgendaFonesMVC.zip
abraços
Olá! Agradeço aos colaboradores que disponibilizam exemplos tão completos como esse, porem, gostaria que fosse incluído as seguintes funções: No local de pesquisa fosse ampliado para localizar qualquer campo do cadastro e não só o nome, e fosse acrescentado mais campos de cadastro do tipo Outro e-mail e outro celular e empresa, resumindo, gostaria que tivesse mais ou menos uns 15 a 20 campos. Obrigado e agradeço antecipadamente.



jayrmellooliveira
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sex Jul 19, 2013 4:06 pm

Re: Agenda Fones - Contribuição

Mensagem por jayrmellooliveira » Ter Jul 23, 2013 11:37 am

Bom dia colaboradores.
Gostaria que fosse incluído as seguintes funções: No local de pesquisa fosse ampliado para localizar qualquer campo do cadastro e não só o nome, e fosse acrescentado mais campos de cadastros.
Agradeço antecipadamente.

DESCONSIDERE ESSA PRECIPITADA MENSSAGEM.

Existe sim varia opções de Pesquisas.
O caso agora é que eu vou tentar acrescentar mais uns campos.

Valeu webmaster.
Editado pela última vez por jayrmellooliveira em Qui Jul 25, 2013 5:38 pm, em um total de 2 vezes.




Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder