Modificar, Excluir e Localizar

[Diego_moreira]

Pessoal,

Estou fazendo uma planilha de controle ponto de funcionário. Porém não consegui fazer as seguintes rotinas:
Editar cadastro
Excluir cadastro
Localizar Funcionário

Gostaria que me dessem uma ajudinha.

Agradeço desde já.

[vbalexandre]

Bom dia!!!

Assim como no Planilhando.....
Para sanar sua causa sugiro que seja persistente em usar a pesquisa do fórum!!!


Tente também...
viewtopic.php?f=16&t=595&p=8521&hilit=aplicativo#p8521

[Diego_moreira]

Eu não estou conseguinda executar a seguinte rotina:

Ao clicar no botão btn_procurar, verifica-se a opção selecionada na combobox1, se nada for selecionado, aparece uma mensagem, se selecionar uma das opções, deveria levar para a sheet selecionada.

Mais não está dando certo, alguem poderia dar uma olhada para ver no que eu errei?

Código: Selecionar todos

Private Sub btn_localizar_Click()
ComboBox1.SetFocus
If ComboBox1.Text = "" Then
     MsgBox "Selecione uma opção!"
     ComboBox1.SetFocus
     Exit Sub
End If

Worksheet("ComboBox1.value").range("A1")

End Sub

[Mauro Coutinho]

Diego, o seu anexo não encontrei o Botão "btn_localizar", poderia dar mais detalhes.

No Forum dicas tem um modelo que fiz adaptação de uma function disponibilizada no Modelo do Tomas, que serve para realizar varios tipos de pesquisa, de uma olhada e acredito ajudrará a solucionar a sua duvida.

Function para Pesquisar
viewtopic.php?f=17&t=1484#.T-pQW4GylIo

[]s

[Diego_moreira]

Diego, o seu anexo não encontrei o Botão "btn_localizar", poderia dar mais detalhes.
[]s

Mauro, vou explicar melhor.

Dentro da pasta de trabalho terão varias planilhas, cada planilha será o registro ponto de um funcionário. Eu preciso de um localizador, que quando eu selecionar um funcionário dentro do combobox, e ao clicar no botão localizar, abra a planilha referente ao funcionário selecionado. "obs.: O nome de cada planilha, será o nome de cada funcionário."

No Forum dicas tem um modelo que fiz adaptação de uma function disponibilizada no Modelo do Tomas, que serve para realizar varios tipos de pesquisa, de uma olhada e acredito ajudrará a solucionar a sua duvida.

Nesse modelo disponibilizado pelo Tomas, a pesquisa informa onde está o que eu quero pesquisa. No meu caso, eu preciso que a pesquisa abra a planilha selecionada no campo de pesquisa.

Em anexo eu coloquei o arquivo com a rotina postada anteriormente.

[telessbci]

Assim como no Planilhando.....

[Diego_moreira]

Eu fiz o código abaixo que teria que funcionar da seguinte forma:
Ao clicar no combo é selecionada a planilha em questão.
Porem não estou conseguindo popular o combo com o nome das planilhas. Obs: dentro do combo só pode aparecer o nome dos funcionários, não pode aparecer a plan matriz e nem a plan empresa.

Se alguem puder me ajudar....segue o código abaixo e a pasta de trabalho em anexo.

Código: Selecionar todos

Option Explicit
Private Sub btn_fechar_Click()
Unload Me
End Sub

Private Sub UserForm3_Initialize()

 Dim W As Worksheet
 
 For Each W In Worksheets
 ComboBox1.AddItem W.Name
 If W.Name <> "matriz" And W.Name <> "Abertura" Then ComboBox1.AddItem W.Name
 Next
 '  For Each plan In Worksheets
 '       ComboBox1.AddItem plan.Name
 '       Next
 End Sub
Private Sub ComboBox1_Click()
    Sheets(ComboBox1.List(ComboBox1.ListIndex)).Select
End Sub



Anúncios