Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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 »

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: 1561
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 »

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


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 »

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: 1561
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 »

[]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


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 »

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: 1561
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 »

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


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 »

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 »

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 »

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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Agenda Fones - Contribuição

Mensagem por webmaster »

Hein?


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