Tomás Vásquez Fórum

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?

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 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?

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

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

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

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?

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.

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.

Hein?