Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Agenda Fones - Contribuição
Re: Agenda Fones - Contribuição
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?
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?
- Mauro Coutinho
- 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
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
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
Re: Agenda Fones - Contribuição
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?
- Mauro Coutinho
- 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
[]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
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
-
- Colaborador
- Mensagens: 23
- Registrado em: Seg Mar 05, 2012 3:07 pm
Re: Agenda Fones - Contribuição
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
AgendaFonesMVC.rar: O cabeçalho do arquivo "???" está corrompido.
O que pode ser?
Grato
[]´s
Jaime
- Mauro Coutinho
- 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
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
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
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Qua Jul 04, 2012 10:28 am
Re: Agenda Fones - Contribuição
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?
-
- Acabou de chegar
- Mensagens: 3
- Registrado em: Sex Jul 19, 2013 4:06 pm
Re: Agenda Fones - Contribuição
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.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 abraços
-
- Acabou de chegar
- Mensagens: 3
- Registrado em: Sex Jul 19, 2013 4:06 pm
Re: Agenda Fones - Contribuição
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.
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.